Ivan Revelli - Synaptica srl

Creare da codice una Virtual Directory su IIS

per Ivan Revelli
in Delphi
on Aprile 4, 2008

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;

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

Cool Stuff [FL – Studio]

per Ivan Revelli
in Delphi
on Aprile 4, 2008

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

PDF to Semantic Text

per Ivan Revelli
in Pascal, Programmazione
on Marzo 17, 2008

Piccola implementazione di un parser PDF, l’articolo è una bozza in corso d’opera, comunque l’argomento è relativo al parsng in batch di documenti pdf estraendo tutte le informazioni di rilievo dai documenti , e questo sarebbe semoplicemente un PDF to Text. Mi è balenata in mente l’idea di pesare i contenuti in funzione delle proprietà …
Leggi tutto

Il magico mondo EPIA (the sn18000)

per Ivan Revelli
in Articoli
on Marzo 1, 2008

Wow ogni volta che vedo quella scheda sogno…. Fantastica, imperdibile stupefacente !!! le due versioni sono qualcosa di imperdibil, ma con la sn10000 immaginate che media center verrebbe fuori? consumerebbe come un classico videoregistratore ma con 4gb di ram un nemian C7 una sk grafica PCI-Express , 4usb e tutto il resto. Su entrambe le…
Leggi tutto