W jaki sposób aplikacja Delphi może wykryć ustawienia sieciowego serwera proxy na komputerze z systemem Windows?

Question

Mam aplikację Delphi, która komunikuje się z serwerami WWW w Internecie za pomocą Indy components. Większość użytkowników aplikacji ma bezpośrednie połączenia z Internetem, ale niektóre znajdują się za serwerem proxy sieci lokalnej. Nie chcę, aby poprosić użytkowników do wyszukiwania ich serwera proxy w Internet Options/Connections/LAN Settings dialog

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

jak szczerze mówiąc większość ludzi nie wie, czy obchodzi mnie, co to ustawienie.

Czy mogę uzyskać te informacje za pośrednictwem niektórych wywołań systemowych z aplikacji Delphi-7?

Wielkie dzięki!

Answer 1

Via WinAPI - WinHttpGetIEProxyConfigForCurrentUser. Musisz kochać długie nazwy WINAPI MS^_ ^.

Po edycji OP: można odczytać z rejestru, AFAIR byłoby znaleźć tutaj:

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

Answer 2

Trzeba by uzyskać ustawienia serwera proxy w przeglądarce, która może być w kilku różnych miejscach w zależności od używana przeglądarka.

Możesz rozważyć zaglądanie pod numer Web Proxy Autodiscovery Protocol, który automatycznie wykrywa ustawienia proxy w sieci.

Answer 3

Kod Delphi for Kornel Kisielewicz „s answer:

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

Oto kolejny sposób, że używam, która nie wymaga bezpośredniego dostępu do rejestru. Działa to pod D2007, ale nie rozumiem, dlaczego nie działałoby pod 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;