HanDs
管理员

[Delphi文章] Delphi 实现控制IIS 



可不要忘记加Comobj哦 现在在研究控制IIS相关的东西呢 给自己管理的服务器写个软件来玩

Delphi代码
  1. uses Comobj;   
  2.   
  3. procedure TForm1.btn_stopClick(Sender: TObject);   
  4. var  
  5.   InstallPath: String;   
  6.   WebSite, WebServer, WebRoot: Variant;   
  7. begin  
  8.    try  
  9.       WebSite :=CreateOLEObject('IISNamespace');   
  10.       WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  11.       WebServer := WebSite.GetObject('IIsWebServer''1');   
  12.       if string(webserver.ServerState) ='2' then  
  13.       begin  
  14.         webserver.stop;   
  15.         showmessage('停止服务成功');   
  16.       end;   
  17.    except  
  18.       showmessage('停止服务失败');   
  19.    end;   
  20.   
  21. end;   
  22.   
  23. //启动WEB站点   
  24.   
  25. procedure TForm1.btn_startClick(Sender: TObject);   
  26. var  
  27.   InstallPath: String;   
  28.   WebSite, WebServer, WebRoot: Variant;   
  29. begin  
  30.     try  
  31.       WebSite :=CreateOLEObject('IISNamespace');   
  32.       WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  33.       WebServer := WebSite.GetObject('IIsWebServer''1');   
  34.       if string(webserver.ServerState) ='4' then  
  35.       begin  
  36.         webserver.start;   
  37.         showmessage('启动服务成功');   
  38.       end;   
  39.     except  
  40.       showmessage('启动服务失败');   
  41.     end;   
  42.   
  43.   
  44. end;   
  45.   
  46. //暂停WEB站点   
  47.   
  48. procedure TForm1.btn_pauseClick(Sender: TObject);   
  49. var  
  50.   InstallPath: String;   
  51.   WebSite, WebServer, WebRoot: Variant;   
  52. begin  
  53.   try  
  54.     WebSite :=CreateOLEObject('IISNamespace');   
  55.     WebSite := WebSite.GetObject('IIsWebService''localhost/w3svc');   
  56.     WebServer := WebSite.GetObject('IIsWebServer''1');   
  57.     if string(webserver.ServerState) ='2' then  
  58.     begin  
  59.       webserver.pause;   
  60.       showmessage('暂停服务成功');   
  61.     end;   
  62.   except  
  63.     showmessage('暂停服务失败');   
  64.   end;   
  65.   
  66. end;   


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
Delphi 实现控制 IIS
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复