如何在delphi中编写adsi的程序 参考一下DELPHI对COM操作方面的资料 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我知道用COM方式进行对ADSI的读取,但是我找不到adsi的com接口 Project|Import Type Libraryadsiis.dll它的接口太多了,我也不知道具体怎么写。 1、使用接口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;2、使用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;详细内容请看http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=468148 如何将接收到的数据包(WPE)的字符还原成汉字。 ?高分求救,为在MDI的子窗体的一个按钮中事件中无法SHOWMODULE窗体呢? COM+组件开发问题? 请问在打开Excel Files时,用户名是填什么,密码又指什么?谢谢1 关于SOCKET传输数据的问题,在线等待,分不够再加!!! 想买些delphi方面的书 如何解决SPCOMM接收数据丢包和接收数据错误的问题?? 如何判断某个端口已经打开(nmudp控件) 如何重启动FTP服务器? 特急!!请问dephi中在一过程中如何调用另一过程; 怎么在canvas上画透明的位图? 怎样写Query的查询语句,着急SOSSOS
adsiis.dll
它的接口太多了,我也不知道具体怎么写。
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;2、使用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;详细内容请看
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=468148