|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Procedure Create_IIS_VirtualDir(VirtualDirectoryName : String;PhisicalPath : String = 'c:\';AccessRead : Boolean = True;EnableDirBrowsing : Boolean = False); Var IIS, IIS_WServer, Root, NewDir: Variant; Begin If not DirectoryExists(PhisicalPath) then If not ForceDirectories(PhisicalPath) then Exit; IIS := CreateOleObject('IISNamespace'); IIS := IIS.GetObject('IIsWebService', 'localhost/w3svc'); IIS_WServer := IIS.GetObject('IIsWebServer', '1'); Root := IIS_WServer.GetObject('IIsWebVirtualDir', 'Root'); NewDir := Root.Create('IIsWebVirtualDir', VirtualDirectoryName); // setting web dir property NewDir.AccessRead := AccessRead; NewDir.EnableDirBrowsing := EnableDirBrowsing; NewDir.Path := PhisicalPath; NewDir.SetInfo; End; |
Tramite questa procedura è possibile creare dinamicamente virtual directory da codice. Ciò può risultare utile nel caso si debba scrivere un programma di installazione per la propria applicazione Web oppure creare delle procedure remote. E’ inoltre possibile impostare in modo semplice moltissimi parametri e gestire IIS in modo semplice utilizzando I metodi descritti da…
Leggi tutto
FL – Studio FL Studio è un a pplicazione spettacolare scritta in Delphi per la gestione audio professionale, è veramente bella e gode di 5’000’000 di download al suo attivo. Il sito del prodotto : http://www.flstudio.com/index.html Nick Hodges (noto sviluppatore di fama mondiale ) ne ha fatto un post sul suo blog , casualmente…
Leggi tutto
