| 订阅 | 在线投稿
分享
 
 
 

用Delphi检测IE使用的代理服务器

来源:互联网网民  宽屏版  评论
2006-12-16 17:27:40

本文为【用Delphi检测IE使用的代理服务器】的汉字拼音对照版显示拼音

ruguowomenkaifadeduixiangbushizaigongwangdehuanjingneishangwangshi使shiyongneiwangdewomenyinggaizenmeyangjiancenideIE使shiyongdedailifuwuqinejiexialaiwomentongguoyixiashililaixuexi

BR clear=all>

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

//jideyinyong WinInet danyuan

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

uses

WinInet

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

//dingyiyao使shiyongdehanshu

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

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;

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

//使shiyongfanli

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

procedure TForm1.Button1Click(Sender: TObject);

var

ProxyServer: string;

ProxyPort: Integer;

begin

GetProxyServer('http', ProxyServer, ProxyPort);

if ProxyPort=0 then

begin

ShowMessage('nideIEmeiyou使shiyongdedailifuwuqi')

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- 王朝网络 版权所有