怎样建立一个站点及配置WEB服务器(100分)

  • 主题发起人 主题发起人 liuqiongliu
  • 开始时间 开始时间
L

liuqiongliu

Unregistered / Unconfirmed
GUEST, unregistred user!
是这样的,我现在用PHP做了一个网站的程序(PHP+MYSQL),但我想用DELPHI做一个安装程序,能够建立一个站点及配置好WEB服务器,能够用PHP页面
 
安装程序的主要步骤
1、拷贝web程序到硬盘(如c:/test,后面的程序要用到这个目录)
2、用程序建立虚拟目录,
 先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb新建一个单元,声明。
然后建立一个过程,中间的代码就像里面一样的
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');//variantest是虚拟目录名自已定
 VDir.AccessRead := True;
 VDir.Path := 'C:/test';//上面的实际目录
 VDir.SetInfo;
end;
 
接受答案了.
 
后退
顶部