我是一个WEB程序员,最近自己写自己程序的时候,想实现绑定IIS目录,但是我不会,我只会一点DELPHI,请求那个大哥哥给点提示,最好是代码,告诉我怎么操作IIS,主要功能就是添加与删除网站,绑定域名,
解决方案 »
- 我想自己做个DNS服务器程序,请问怎么做啊?
- 如何控制treeview的行高
- 修改数据的问题
- SQL语句,送分
- shelllistview中禁止重命名和双击事件问题!
- ======如何替换开始菜单(开始按钮)?在线等=====
- 基础问题,表中字段的类型。这一百分很好拿的。
- WebBrowser中如何提交这种参数?详见内容,感谢参与!
- 怎么处理单击右键弹出菜单,并可以单击菜单触发相应事件?
- 编写ISAPI中所遇的问题。数据库链接的。以及Request的使用。新手只有22分,可希望您能帮帮我。
- Delphi版服评选结果以及奖励情况
- delphi 为什么在 FormMouseDown 事件里面 Cursor 不起作用
procedure makevpath(v,dir,vold:String;canbrowse:Boolean);
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');
if (v<>'') and (dir<>'') then
Begin
try
FormIISvpath.log('CreateVpath:'+v+'|'+dir);
VDir := WebRoot.Create('IIsWebVirtualDir', v{'VariantTest'});
VDir.AccessRead := True;
VDir.EnableDirBrowsing:=canbrowse;
VDir.Path := dir;
except
end;
End;
if vold<>'' then
try
FormIISvpath.log('DeleteVpath:'+vold);
WebRoot.delete('IIsWebVirtualDir', vold);
except
end;
VDir.SetInfo;
end;
先裝上IIS,才行的。這個不可能說這裏說下就明白了。