[Lang_it] Prima prova sul campo del fatidico prism… Domani da un cliente ho un workshop per migrare l’architettura attuale basata su COM e socket verso i Web Service… e dato che loro sono in molti ad usare Delphi, quale migliore occasione? Per farsi un giro su questo nuovo promettente ambiente di sviluppo… noi programmatori siamo…
Leggi tutto
|
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
