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