BCB 6中利用TCppWebBrowser 的 Navigate 通過代理訪問特定網站, 但又不想改變現有流覽器中Proxy設定。 該如何實作??
uj5u.com熱心網友回復:
CInternetSession session;CHttpFile* pFile = NULL;
INTERNET_PROXY_INFO proxyInfo;
proxyInfo.dwAccessType = INTERNET_OPEN_TYPE_PROXY;
proxyInfo.lpszProxy = _T("192.168.1.21:8080");
proxyInfo.lpszProxyBypass = NULL;
AnsiString UserName = "usr";
AnsiString UserPassWord = password";
session.SetOption(INTERNET_OPTION_PROXY,(LPVOID)&proxyInfo,sizeof(INTERNET_OPTION_PROXY),0);
UrlMkSetSessionOption(INTERNET_OPTION_PROXY,&proxyInfo,sizeof(proxyInfo),0);
CHttpConnection *pConnection = session.GetHttpConnection(_T("www.baidu.com"));
session.SetOption(INTERNET_OPTION_PROXY_USERNAME, UserName.c_str(), DWORD(UserName.Length())+1);
session.SetOption(INTERNET_OPTION_PROXY_PASSWORD, UserPassWord.c_str(), DWORD(UserPassWord.Length())+1);
if(pConnection == NULL)
{
ShowMessage("對不起,連接服務器失敗!");
return;
}
WebBrowser1->Navigate(L"http://www.baidu.com");
pConnection->Close();
delete pConnection;
session.Close();
return;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/120986.html
標籤:網絡及通訊開發
