Delphi應用程序如何檢測Windows PC的網絡代理設置？

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

Via WinAPI - WinHttpGetIEProxyConfigForCurrentUser。你必須愛MS的長WINAPI名字^ _ ^。

OP編輯後：您可以從註冊表中讀取，AFAIR將設在這裏：

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

Answer 2

你必須讓代理從瀏覽器設置，這可能是根據幾個不同的地點正在使用的瀏覽器。

您可能會考慮查看Web Proxy Autodiscovery Protocol，它會自動檢測網絡上的代理設置。

Answer 3

爲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 4

這裏的另一種方法，我用的，它並不需要直接註冊表訪問。這在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;