Question

我有一个Delphi应用程序，它使用Indy components与Internet上的Web服务器通信。该应用程序的大多数用户具有直接的Internet连接，但有些用户位于本地网络的代理服务器之后。我不想要求用户在Internet Options / Connections / LAN Settings dialog

中查找他们的代理服务器

alt text http://toybase.files.wordpress.com/2008/11/ie-proxy-settings.png

坦率地说，大多数人都不会知道或关心这个设置是什么。

我可以通过Delphi-7应用程序的某些系统调用获取此信息吗？

非常感谢！

Answer 1

通过WinAPI - WinHttpGetIEProxyConfigForCurrentUser。你必须爱MS的长WINAPI名字^ _ ^。

OP编辑后：您可以从注册表中读取AFAIR，它将位于此处：

 [ HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings ]

Answer 2

Kornel Kisielewicz的answer的Delphi代码：

uses Registry, Windows;

function detectIEProxyServer() : string;
begin
  with TRegistry.Create do
    try
        RootKey := HKEY_CURRENT_USER;
        if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then begin
          Result := ReadString('ProxyServer');
          CloseKey;
        end
        else
          Result := '';
    finally
      Free;
    end;
end;

Answer 3

这是我使用的另一种方法，它不需要直接注册表访问。这可以在D2007下工作，但我不明白为什么它在D7下不起作用。

uses
  WinInet,
  SysUtils;

function UseIEProxyInfo(var ProxyHost: String; var ProxyPort: Integer): Boolean;
var
  ProxyInfo: PInternetProxyInfo;
  Len: LongWord;
  ProxyDetails: String;
  s2: String;
  i1: Integer;

  procedure RemoveProtocol(var str: string);
  var
    i1 : integer;
  begin
    i1 := PosText('://', str);
    if i1 > 0 then
      Delete(str, 1, i1 + 2);
    i1 := PosText('http=', str);
    if i1 > 0 then begin
      Delete(str, 1, i1 + 4);
      str := SubStr(str, 1, ' ');
    end;
  end;

begin
  Result := False;

  Len := 4096;
  GetMem(ProxyInfo, Len);
  try
    if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
    begin
      if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
      begin
        Result := True;
        ProxyDetails := ProxyInfo^.lpszProxy;

        RemoveProtocol(ProxyDetails);
        s2 := SubStr(ProxyDetails, 2, ':');
        if s2 <> '' then
        begin
          try
            i1 := StrToInt(s2);
          except
            i1 := -1;
          end;

          if i1 <> -1 then
          begin
            ProxyHost := SubStr(ProxyDetails, 1, ':');
            ProxyPort := i1;
          end;
        end;
      end;
    end;
  finally
    FreeMem(ProxyInfo);
  end;
end;

Answer 4

您必须从浏览器获取代理设置，该设置可能位于多个不同位置，具体取决于所使用的浏览器。

您可以考虑查看Web Proxy Autodiscovery Protocol，它会自动检测网络上的代理设置。

Delphi应用程序如何检测Windows PC的网络代理设置？

4 个答案: