Delphi中用Adsi创建IIS虚拟目录

页面导航:首页 > 软件编程 > Delphi > Delphi中用Adsi创建IIS虚拟目录

Delphi中用Adsi创建IIS虚拟目录

来源: 作者: 时间:2016-02-05 11:47 【

先引入类型库(Project|ImportTypeLibrary)adsiis.dll、iisext.dll和activeds.tlb新建一个单元,声明。unitActiveDs;interface functionADsGetObject(const

 

 

  先引入类型库(Project|Import Type Library)adsiis.dlliisext.dllactiveds.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/w3s’, 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;

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<