先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb新建一个单元，声明。
unit ActiveDs;

interface

　function ADsGetObject(const PathName: WideString; const GUID: 

TGUID; out I: IUnknown): HRESULT; stdcall;

implementation

　function ADsGetObject; 　　external  activeds.dll  name  ADsGetObject ;

end. 

方法一(参照C++)、

var

　I: IADsContainer;

　ADs: IADs;

begin

　if ADsGetObject( IIS://localhost/w3svc , IID_IADsContainer, IUnknown(I)) = S_Ok then

　begin

　　ADs := IADs(I.GetObject( IIsWebServer ,  1 ));

　　ShowMessage(ADs.ADsPath);

　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then

　　begin

　　　ADs := IADs(I.GetObject( IIsWebVirtualDir ,  Root ));

　　　ShowMessage(ADs.ADsPath);

　　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then

　　　begin

　　　　ADs := IADs(I.Create( IIsWebVirtualDir ,  DelphiTest ));

　　　　ADs.Put( AccessRead ,  True );

　　　　ADs.Put( Path ,  c:Temp );

　　　　ADs.SetInfo;

　　　end;

　　end;

　end;

end;

 
Delphi中用Adsi创建IIS虚拟目录 
 
2001-04-04· ·董晓光··yesky

 
上一页  1 2  

方法二(使用接口)、

procedure TForm3.BitBtn4Click(Sender: TObject);

var

　Disp: IDispatch;

begin

　Disp := IISNamespace1.GetObject( IIsWebService ,  localhost/w3svc );

　Disp := (Disp as IADsContainer).GetObject( IIsWebServer ,  1 );

　Disp := (Disp as IADsContainer).GetObject( IIsWebVirtualDir ,  Root );

　Disp := (Disp as IADsContainer).Create( IIsWebVirtualDir ,  DelphiADSITest );

　(Disp as IADs).Put( AccessRead ,  True );

　(Disp as IADs).Put( Path ,  c:ADSITest );

　(Disp as IADs).SetInfo;

end;

方法三(使用Variant，就是类似VB和ASP的方法)、

procedure TForm2.BitBtn1Click(Sender: TObject);

var

　WebSite, WebServer, WebRoot, VDir: Variant;

begin

　WebSite := CreateOleObject( IISNamespace );

　WebSite := WebSite.GetObject( IIsWebService ,  localhost/w3svc );

　WebServer := WebSite.GetObject( IIsWebServer ,  1 );

　WebRoot := WebServer.GetObject( IIsWebVirtualDir ,  Root );

　VDir := WebRoot.Create( IIsWebVirtualDir ,  VariantTest );

　VDir.AccessRead := True;

　VDir.Path :=  C:Test ;

　VDir.SetInfo;

end;