Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Proxy-Einstellungen automatisch erkennen mit IDHttp (https://www.delphipraxis.net/173776-proxy-einstellungen-automatisch-erkennen-mit-idhttp.html)

MartinK 15. Mär 2013 15:33

Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Einige meiner Programm bieten die Option der verwendung eines Proxy-Servers nach Vorgabe Proxy-Server / Port / Username / Passwort an
Diese Einstellungen sind aber leider nicht immer bekannt.

Diverse Programme haben hierzu auch eine komfortablere Funktion wie"Proxy-Einstellungen automatisch erkennen"
wie realisiert man so etwas zuverlässig zusammen mit IDHttp ?

lG Martin

geskill 15. Mär 2013 17:06

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Ich würde mal ins blaue Raten und sagen die werden aus dem Internet Explorer übernommen. Also müsste man schauen wie man an die Daten des Internet Explorers kommt.

DeddyH 15. Mär 2013 17:27

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Zitat:

Zitat von geskill (Beitrag 1207606)
Also müsste man schauen wie man an die Daten des Internet Explorers kommt.

http://www.delphipraxis.net/19756-pr...-abfragen.html

GPRSNerd 15. Mär 2013 23:18

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Zitat:

Zitat von DeddyH (Beitrag 1207609)
Zitat:

Zitat von geskill (Beitrag 1207606)
Also müsste man schauen wie man an die Daten des Internet Explorers kommt.

http://www.delphipraxis.net/19756-pr...-abfragen.html

Die Funktionen zum Auslesen der Proxyeinstellungen nutze ich auch.
Ich biete dem User in meinem Programm, welches auch IdHTTP nutzt, drei Optionen für den Proxy:
1. Automatische Einstellungen (mit den Funktionen oben)
2. Manuelle Einstellungen
3. Kein Proxy

IdHTTP parametrisiere ich dann folgendermaßen:

Delphi-Quellcode:
    with IdHTTP do
    begin
      case ProxyTyp of
      1:
        begin
          if STGCommonUnit.GetProxyServer(STGCommonUnit.http, ProxyServerAuto, ProxyPortAuto) then
          begin
            ProxyParams.ProxyServer := ProxyServerAuto;
            ProxyParams.ProxyPort  := ProxyPortAuto;
          end
          else
          begin
            ProxyParams.Clear;
          end;
        end;
      2:
        begin
          ProxyParams.ProxyServer  := ProxyServer;
          ProxyParams.ProxyPort    := ProxyPort;
          ProxyParams.ProxyUsername := ProxyUser;
          ProxyParams.ProxyPassword := ProxyPassword;
        end;
      else
        begin
          ProxyParams.Clear;
        end;
      end;

Andreas L. 16. Mär 2013 07:54

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Mozilla Firefox speichert seine Proxy-Einstellungen in der Datei prefs.js im Verzeichnis %APPDATA%\Mozilla\Firefox\profiles\<<PROFILENAME>> \ ab.

Mit pos und copy kann man die Daten wunderbar extrahieren.

Auszug aus prefs.js:
Code:
user_pref("network.proxy.http", "127.0.0.1");
user_pref("network.proxy.http_port", 8080);
user_pref("network.proxy.type", 1);

MartinK 17. Mär 2013 02:49

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Vielen Dank für die tips !

Liebe Grüße ...Martin

MartinK 18. Mär 2013 16:54

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Hmmm
Zumindest hier in unserem Firmen-Netzwerk funktioniert "GetProxyServer" nicht.
Ich vermute mal, dass das daran liegt das wir dabei Username / Passwort aus den Windows-Anmeldedaten übernehmen.

Interessant ist aber, dass es Software gibt die hiermit problemlos zurecht kommt (automatische Verwendung der proxy-Einstellungen). Zb DropBox, Napster etc.
Wie machen das denn diese Programme?

lG M

CCRDude 19. Mär 2013 08:01

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Vermutlich verwenden die direkt die wininet.dll, und übergeben MSDN-Library durchsuchenInternetOpen das Flag INTERNET_OPEN_TYPE_PRECONFIG.

mjustin 19. Mär 2013 08:24

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Zitat:

Zitat von MartinK (Beitrag 1207908)
Hmmm
Zumindest hier in unserem Firmen-Netzwerk funktioniert "GetProxyServer" nicht.
Ich vermute mal, dass das daran liegt das wir dabei Username / Passwort aus den Windows-Anmeldedaten übernehmen.

Interessant ist aber, dass es Software gibt die hiermit problemlos zurecht kommt (automatische Verwendung der proxy-Einstellungen). Zb DropBox, Napster etc.
Wie machen das denn diese Programme?

Die erste Frage die sich stellt ist: gibt GetProxyServer keinen Server zurück, oder gibt es einen zurück aber die Anmeldung ist nicht möglich?

Die Indy IdHTTP Komponente unterstützt auch NTLM Anmeldung. Dann wird die Verbindung mit den Anmeldedaten des Betriebssystems hergestellt. Im Prinzip sollte es also gehen (aktuelle Indy Version?)

MartinK 22. Mär 2013 11:13

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp
 
Erneut Hallo
- getProxyServer gibt keinen Server und keinen Port zurück

- Ich denke mal ich muss die Authentication mit NTLM machen. Aber das ist nicht so leicht wie gesagt. Ich finde keine funktionierenden Beispiele was alles zu tun ist.
was ich aktuell mache und leider NICHT funktioniert (407 Proxy Authorisation required) ist

Delphi-Quellcode:
uses IdAuthenticationNTLM

//.....

procedure TForm1.IdHTTPSelectProxyAuthorization(Sender: TObject; var AuthenticationClass: TIdAuthenticationClass; AuthInfo: TIdHeaderList);
begin
  IDHTTP.ProxyParams.BasicAuthentication := False;
  AuthenticationClass := TIdNTLMAuthentication;
end;

//.....
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP.HTTPOptions := IdHTTP.HTTPOptions + [hoKeepOrigProtocol] + [hoInProcessAuth];
  IdHTTP.ProxyParams.ProxyServer  := eProxyServer.Text;
  IdHTTP.ProxyParams.ProxyPort    := StrToInt(eProxyPort.Text);
  IdHTTP.ProxyParams.ProxyUsername := eUsername.Text;
  IdHTTP.ProxyParams.ProxyPassword := ePassword.Text;
  Memo1.text := IdHTTP.Get('http://www.google.de');
end;


lG Martin

PS: Seit nun fast 2 Wochen ohne Internet und Festnetzanschluss. Danke liebe Telekom für die "superflüssige Umstellung" von meinem vorherigen Provider :(


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:26 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf