怎样检测你的IE使用的代理服务器

最新推荐文章于 2018-07-26 15:03:08 发布

原创最新推荐文章于 2018-07-26 15:03:08 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ie #integer #string #internet #服务器 #delete

delphi文档专栏收录该内容

16 篇文章

订阅专栏

博客介绍了获取IE代理服务器信息的方法。通过引用WinInet单元，定义GetProxyInformation和GetProxyServer函数来获取代理信息。还给出使用范例，在按钮点击事件中调用函数，根据代理端口情况显示相应信息。

//-----------------------------------------------
//记得引用 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;