C++Builder使用ADSI建立web站點 (轉)
C++Builder使用ADSI建立站點
以下是我學習MSDN中的文章。總結出適合在C++Builder下建立WebServer的例子:
其中使用ADSI的一些介面,注意要將Activeds.Lib新增入工程,
還要包含以下幾個頭。
比較簡單,希望能拋磚引玉。
#include
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma re "*.dfm"
#include "iads.h"
#include "adssts.h"
#include "Adshlp.h"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
個引數:ip:字串,ain:域名(),DiskPath:虛擬目錄路徑(C:www)
BOOL CreateWebServer(String ip,String domain,String DiskPath)
{
IADntainer *pCont=NULL;
IADs* pAds=NULL;
IADs* pVrAds=NULL;
IADsServiceOperations *pSrvOp;
IDispatch *pDisp = NULL;
IDispatch *pVrDisp = NULL;
AnsiString WNumer=IntToStr(random(1000)); 一個隨機數建立站點
String newBindings=ip+":80:"+domain;
/* 獲得WebServer */
if(ADsGet(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&pCont)==S_OK)
{ /建站點
if(pCont->Create(L"IIsWebServer",(wchar_t*)WString(WNumer),&pDisp)==S_OK)
{
pDisp->QueryInterface(IID_IADs, (void**)&pAds);
pDisp->QueryInterface(IID_IADsServiceOperations, (void**)&pSrvOp);
pAds->Put(L"ServerSize",Variant(int(1)));
pAds->Put(L"ServerComment",Variant(String("xiwei")));//註釋,沒太多用處,xiwei我的名字
pAds->Put(L"ServerBindings",Variant(String(newBindings)));
pAds->SetInfo();
建主目錄
pCont->GetObject(L"IIsWebServer",(wchar_t*)WideString(WNumer),&pDisp);//得到剛才建立地網站
if(pDisp->QueryInterface(IID_IADsContainer,(void**)&pCont)==S_OK)
{
if(pCont->Create(L"IIsWebVirtualDir",L"Root",&pVrDisp)==S_OK)
{
pVrDisp->QueryInterface(IID_IADs, (void**)&pVrAds);
pVrAds->Put(L"AccessRead",Variant(BOOL("True")));
pVrAds->Put(L"AccessWrite",Variant(BOOL("True")));
pVrAds->Put(L"AccessScript",Variant(BOOL("True")));
pVrAds->Put(L"EnableDirBrowsing",Variant(BOOL("True")));
pVrAds->Put(L"Path",Variant(String(DiskPath)));
pVrAds->Put(L"AppRoot",Variant(String(DiskPath)));
pVrAds->SetInfo();
pVrAds->Release();
pAds->Release();
pCont->Release();
}
動新建的WebServer
pSrvOp->Start();
pSrvOp->Release();
}
}
}
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
CreateWebServer(Edit1->Text,"",Edit2->Text);
}
以上內容缺少錯誤處理,諸如ip地址已被佔用等,我認為技術這東西用不著保守,沒等生利息呢,已經貶值了。
哈哈,希望各位給以指正!我的E:">proton@yeah.net
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-991332/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 怎樣在C++Builder中建立使用DLL (轉)UI
- 建立高效能移動 web 站點Web
- AD & ADSI入門 (轉)
- 將現有的靜態 Web 站點轉變為動態 Web 站點Web
- 用C++Builder建立數字簽名 (轉)C++UI
- c++ 建立虛擬站點 (轉)C++
- 在C++Builder中建立共享記憶體段 (轉)C++UI記憶體
- 使用C++Builder建立自定義VCL元件時的一些問題 (轉)C++UI元件
- 在C++Builder使用TTS(Text To Speech) (轉)C++UITTS
- 使用 Web 標準生成 ASP.NET 2.0 Web 站點WebASP.NET
- Web站點崩潰的原因總結(轉)Web
- 在C++Builder中建立Access odbc資料來源 (轉)C++UI
- VS2005入門之建立WEB站點和建立新頁面Web
- 使用點陣圖選單項——建立點陣圖 (轉)
- 如何使用 Apache Web 伺服器配置多個站點ApacheWeb伺服器
- Win7建立FTP站點Win7FTP
- c++builder快捷鍵大全 (轉)C++UI
- C++BUILDER 6 新特色 (轉)C++UI
- 通過單擊操作建立 IBM Lotus Web Content Management 站點結構IBMWeb
- 自我防護Web站點和惡意連結的方法(轉)Web
- 建立自己的家(網站) (轉)網站
- 用Tomcat構建WEB站點TomcatWeb
- 【Web Services】建立過程之四(完) (轉)Web
- 用 C++Builder 編寫 Tray 程式 (轉)C++UI
- Borland C++Builder .RES 中文化 (轉)C++UI
- C++Builder常用程式碼片斷 (轉)C++UI
- C++Builder的編譯超頻 (轉)C++UI編譯
- Javascript資源站點(轉)JavaScript
- Web 2.0網站的九個特點Web網站
- 建立點陣圖選單 (轉)
- C++BUILDER中幾種容器的使用C++UI
- C++Builder的幾則小應用 (轉)UI
- C++Builder下實現埠讀寫 (轉)C++UI
- Socket程式設計,從TCP分析到建立web網站程式設計TCPWeb網站
- Cookie的建立使用 (轉)Cookie
- Abp框架Web站點的安全性提升框架Web
- CentOS7 Apache+Mono Web站點部署CentOSApacheMonoWeb
- 在C++Builder 5中使用ADO資料庫程式設計 (轉)C++UI資料庫程式設計