知识大全 Delphi中用Adsi创建IIS虚拟目录

Posted 2022-07-14 知

篇首语：欠伸展肢体，吟咏心自愉。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中用Adsi创建IIS虚拟目录相关的知识，希望对你有一定的参考价值。

Delphi中用Adsi创建IIS虚拟目录  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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/w svc IID_IADsContainer IUnknown(I)) = S_Ok then

　begin

　　ADs := IADs(I GetObject( IIsWebServer ));

　　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;

方法二(使用接口)

procedure TForm BitBtn Click(Sender: TObject);

var

　Disp: IDispatch;

begin

　Disp := IISNamespace GetObject( IIsWebService localhost/w svc );

　Disp := (Disp as IADsContainer) GetObject( IIsWebServer );

　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 TForm BitBtn Click(Sender: TObject);

var

　WebSite WebServer WebRoot VDir: Variant;

begin

　WebSite := CreateOleObject( IISNamespace );

　WebSite := WebSite GetObject( IIsWebService localhost/w svc );

　WebServer := WebSite GetObject( IIsWebServer );

　WebRoot := WebServer GetObject( IIsWebVirtualDir Root );

　VDir := WebRoot Create( IIsWebVirtualDir VariantTest );

　VDir AccessRead := True;

　VDir Path := C:\\Test ;

　VDir SetInfo;

相关参考

知识大全 .Net中如何操作IIS的虚拟目录原理分析

.Net中如何操作IIS的虚拟目录原理分析  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 

知识大全 IIS下多站点利用虚拟目录 访问共用(图片)文件夹

IIS下多站点利用虚拟目录访问共用(图片)文件夹  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　

知识大全 使用JS创建虚拟目录,并引导进入浏览

使用JS创建虚拟目录,并引导进入浏览  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！使用JS可以替代

知识大全 配置Web服务器（IIS）虚拟站点

ASP.NET开发宝典：配置Web服务器（IIS）虚拟站点  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一

知识大全 JAVA中用递归函数来删除子目录

JAVA中用递归函数来删除子目录  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　Java是一门强

知识大全 php 在windows下配置虚拟目录的方法介绍

　　先打开Apache的conf目录下的文件在末尾添加如下代码复制代码代码如下:<VirtualHost*:>ServerNamemydemoDocumentRoot"D:/mydemo"

知识大全 Delphi中用ICMP探测远程主机是否存活

Delphi中用ICMP探测远程主机是否存活  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！网络通讯

知识大全 用Delphi实现虚拟盘映射

用Delphi实现虚拟盘映射  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！本实例演示如何映射和断开

知识大全 asp生成目录与无限生成多级目录创建

　　asp教程生成目录与无限生成多级目录创建这里提供二款asp目录生成函数第一款是只能创建一级目录后一款函数可以支持多目录同时生成 　　subefolder(foldername)dimfs

知识大全 在Delphi中用拼音首字符序列来实现检索功能

在Delphi中用拼音首字符序列来实现检索功能  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在