请问有没有简便的方法用编程的方式去创建虚拟目录和站点? 请问有没有简便的方法用编程的方式去创建虚拟目录和站点?(网上的方法好象要用ADSI等的方式,比较麻烦,不知道还有没有其它的方式?),谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 其它的方式? 有,更麻烦~~~~~~~`要自己写WebServer~~~~~~~~ 自己写Web server,这肯定不行!能否给出一个比较实用的创建站点的方法。 创建站点是多么麻烦的一件事情啊~~~~~~~~我感觉是简单不来得~~~~~~~~看别人的WebServer代码头晕还没有看懂~~~~~~`不过感觉ADSI并不麻烦啊---下面是猛料中的:Delphi中用Adsi创建IIS虚拟目录 先引入类型库(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;方法二(使用接口)、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; 函数问题 form2.show form1.close,这两句按顺序执行后,怎么两个窗体都不见了! 一个DELPHI接连SQLSERVER的问题请教 一个简单的过滤器的写法 如何让窗体变成我所想要的大小 要做爸爸了,不知生儿子还是女儿,起名字太头痛,借借各位的智慧吧! 请问用adotable怎样动态建表!!! TByteDynArray转string乱码 myobject.free和FreeAndNil(myobject)有什么区别呢? 小问题,所以只给20分 紧急求助(DEPHI数据库问题) 我的DELPHI7是安装是出问题了吗?一个关于报表的问题
Delphi中用Adsi创建IIS虚拟目录
先引入类型库(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;
方法二(使用接口)、
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;