用Delphi檢測IE使用的代理服務器

如果我們開發的對象,不是在公網的環境內上網,是使用內網的,我們應該怎麽樣檢測你的IE使用的代理服務器呢?接下來我們通過以下實例來學習:

BR clear=all>

//-----------------------------------------------

//記得引用 WinInet 單元

//-----------------------------------------------

uses

WinInet

//----------------------------------------------

//定義要使用的函數

//----------------------------------------------

function GetProxyInformation: string;

var

ProxyInfo: PInternetProxyInfo;

Len: LongWord;

begin

Result := '';

Len := 4096;

GetMem(ProxyInfo, Len);

try

if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then

if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then

begin

Result := ProxyInfo^.lpszProxy

end;

finally

FreeMem(ProxyInfo);

end;

end;

procedure GetProxyServer(protocol: string; var ProxyServer: string;

var ProxyPort: Integer);

var

i: Integer;

proxyinfo, ps: string;

begin

ProxyServer := '';

ProxyPort := 0;

proxyinfo := GetProxyInformation;

if proxyinfo = '' then

Exit;

protocol := protocol + '=';

||||||

i := Pos(protocol, proxyinfo);

if i > 0 then

begin

Delete(proxyinfo, 1, i + Length(protocol));

i := Pos(';', ProxyServer);

if i > 0 then

proxyinfo := Copy(proxyinfo, 1, i - 1);

end;

i := Pos(':', proxyinfo);

if i > 0 then

begin

ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);

ProxyServer := Copy(proxyinfo, 1, i - 1)

end

end;

//----------------------------------------------------------------

//使用範例

//----------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

var

ProxyServer: string;

ProxyPort: Integer;

begin

GetProxyServer('http', ProxyServer, ProxyPort);

if ProxyPort=0 then

begin

ShowMessage('你的IE沒有使用的代理服務器')

end

else

Label1.Caption := ProxyServer;

label2.Caption := IntToStr(ProxyPort);

end;

 
怎樣檢測你的IE使用的代理服務器
//-----------------------------------------------//記得引用 WinInet 單元//-----------------------------------------------usesWinInet //----------------------------------------------//定義要使用的函數/...查看完整版>>怎樣檢測你的IE使用的代理服務器
 
用DELPHI設計代理服務器程序(前面一貼,沒貼好,請原諒)
用DELPHI設計代理服務器程序摘自《天極網學習中心》 (文/萬雪勇)  用Delphi開發串口通信軟件一般有兩種方法:一是利用Windows的通信API函數,另一種是采用Microsoft的MSComm控件。利用API編寫串口通信程序較爲複雜...查看完整版>>用DELPHI設計代理服務器程序(前面一貼,沒貼好,請原諒)
 
如何禁止更改IE的代理服務器設置
  問:爲了限制家裏的小孩上網,我故意將WindowsXP中的IE的代理服務器設置爲一個無效的代理服務器,現在我想禁止更改代理服務器設置,不知如何才能達到目的?  答:單擊“開始→運行”,輸入“gpedit.msc”,依次...查看完整版>>如何禁止更改IE的代理服務器設置
 
IE代理服務器設置程序實現
  首先用Delphi來實現.delphi實現很簡單.因爲delphi的單元WinInet中就封裝了該API調用的所有文檔所以就簡單多了.首先做一級面向對象的封裝.一個對象TsetProxy,然後定義兩個數據分別是代理主機和代理端口.然後一個負...查看完整版>>IE代理服務器設置程序實現
 
IE 代理服務器設置程序實現
  因爲最近閑的要命.所以總喜歡去些BBS聊天室之類的地方打發時間可是.突然發現這些地方總是喜歡記錄IP真是麻煩.別人一跟蹤馬上就查出你的位置.實在是不爽.所以.就只好設置代理服務器.IE的設置是帶這個功能的.所以很...查看完整版>>IE 代理服務器設置程序實現