| 導購 | 订阅 | 在线投稿
分享
 
 
 

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

來源:互聯網網民  2006-12-16 17:27:40  評論

如果我們開發的對象,不是在公網的環境內上網,是使用內網的,我們應該怎麽樣檢測你的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使用的代理服務器呢?接下來我們通過以下實例來學習:    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;
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有