AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Proxy-Einstellungen automatisch erkennen mit IDHttp

Proxy-Einstellungen automatisch erkennen mit IDHttp

Ein Thema von MartinK · begonnen am 15. Mär 2013 · letzter Beitrag vom 2. Mai 2013
Antwort Antwort
Seite 2 von 2     12
MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
74 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#11

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 27. Mär 2013, 14:55
Es ist echt zum Haare raufen
ich bekomme das aufgrund fehlender Beispiele echt nicht gebacken

Kennt sich jemand mit WinINET aus?
..evtl würde ich von indy weg auf win.init wechselen.
Allerdings bräuchte ich auch hier ein Beispiel.

lG M
Martin Kuhn
  Mit Zitat antworten Zitat
CCRDude

Registriert seit: 9. Jun 2011
656 Beiträge
 
FreePascal / Lazarus
 
#12

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 27. Mär 2013, 15:22
Ein Beispiel wofür?

FInternetHandle := InternetOpenA('MyAppUserAgent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); Das Herunterladen mal grob skizziert:

Delphi-Quellcode:
function TpkInternetHTTP.Download(Server, Path: AnsiString; Stream: TStream): boolean;
var
   hSession, hRequest: TInternetHandle;
   dwConnIC, dwConnHOR, dwSize, dwIndex: DWord;
   iEC: integer;
   pc: PAnsiChar;
   buf: string[32];
   wPort: Word;
   sPort: AnsiString;
begin
   Result := false;
   FCurrentBytes := 0;
   FTotalBytes := 0;
   FErrorCode := 0;
   // InternetConnect
   dwConnIC := 0;
   wPort := INTERNET_DEFAULT_HTTP_PORT;
   if Pos(':', Server) > 0 then begin
      sPort := Server;
      Delete(sPort, 1, Pos(':', sPort));
      SetLength(Server, Length(Server) - Length(sPort) - 1);
      wPort := StrToIntDef(sPort, INTERNET_DEFAULT_HTTP_PORT);
   end;
   hSession := InternetConnectA(FInternetHandle, PAnsiChar(Server), wPort, nil, nil, INTERNET_SERVICE_HTTP, 0, dwConnIC);
   if hSession = 0 then begin
      FErrorCode := GetLastError;
      Exit;
   end;
   try
      // HttpOpenRequest
      dwConnHOR := 0;
      hRequest := HttpOpenRequestA(hSession, nil, PAnsiChar(Path), nil, nil, nil, INTERNET_FLAG_RELOAD or INTERNET_FLAG_NO_CACHE_WRITE, dwConnHOR);
      if hRequest = 0 then begin
         FErrorCode := GetLastError;
         Exit;
      end;
      try
         // HttpSendRequest
         dwSize := 0;
         if HttpSendRequestA(hRequest, nil, 0, nil, 0) then begin
            // HttpQueryInfo - status
            SetLength(buf, 32);
            dwSize := Length(buf);
            dwIndex := 0;
            if HttpQueryInfoA(hRequest, HTTP_QUERY_STATUS_CODE, buf[1], dwSize, dwIndex) then begin
               Val(Copy(buf, 1, dwSize), FStatusCode, iEC);
               if iEC > 0 then begin
                  FStatusCode := 0;
                  // TODO : error handling
               end;
            end else begin
               FStatusCode := 0;
               // TODO : error handling
            end;
            if (FStatusCode = 404) then begin
               FErrorCode := ERROR_NO_MORE_FILES;
               Exit;
            end;
            // HttpQueryInfo - length
            SetLength(buf, 32);
            dwSize := Length(buf);
            dwIndex := 0;
            if HttpQueryInfoA(hRequest, HTTP_QUERY_CONTENT_LENGTH, buf[1], dwSize, dwIndex) then begin
               Val(Copy(buf, 1, dwSize), FTotalBytes, iEC);
               if iEC > 0 then begin
                  FTotalBytes := 0;
                  // TODO : error handling here
               end;
            end else begin
               FTotalBytes := 0;
               // TODO : error handling here
            end;
            GetMem(pc, FBlockSize + 1);
            try
               repeat
                  if InternetReadFile(hRequest, pc, FBlockSize, dwSize) then begin
                     Stream.WriteBuffer(pc^, dwSize);
                     Inc(FCurrentBytes, dwSize);
                     // FireProgress;
                  end
                  else dwSize := 0;
               until dwSize = 0;
               // FireProgress;
            finally
               FreeMem(pc);
            end;
            // FireProgress;
            Result := true;
         end else begin
            FErrorCode := GetLastError;
         end;
      finally
         InternetCloseHandle(hRequest);
      end;
   finally
      InternetCloseHandle(hSession);
   end;
   Stream.Seek(0, soFromBeginning);
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.255 Beiträge
 
Delphi 10.4 Sydney
 
#13

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 27. Mär 2013, 15:35
Und die WinInet-Referenz findet man hier.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
74 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#14

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 2. Apr 2013, 12:43
Ich bin generell niemand der erwartet alles "ins nest gelegt zu bekommen".
ich kann nur folgendes sagen: wer sich mal auf die WWW-recherche zum Thema "NTLM" macht wird viele Fragen, (Fehl)Versuche, etc finden
allerdings aber wenige (keine?) echten Hilfen und v.a. keine "ja ich hab's geschafft und zwar so" Informationen.

Das gilt übrigens auch für die Indy-entwickler selbst.
Aber ich lasse mich gerne eines besseren belehren.

Meine eigenen Bemühungen diesbzgl. muss ich wohl leider einfrieren . Das Thema ist einfach ziemlich speziell bzw. komplex und/oder "ich bin dafür einfach programmierseitig nicht gut genug" bzw. kann derzeit nicht die dafür notwendige Energie einfliessen lassen.
Martin Kuhn
  Mit Zitat antworten Zitat
Benutzerbild von kuba
kuba

Registriert seit: 26. Mai 2006
Ort: Arnsberg
552 Beiträge
 
Delphi XE7 Professional
 
#15

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 26. Apr 2013, 00:06
Wer bis hier gelesen hat sollte vielleicht hier weiterlesen ...
Stefan Kubatzki
E=mc2
  Mit Zitat antworten Zitat
MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
74 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#16

AW: Proxy-Einstellungen automatisch erkennen mit IDHttp

  Alt 2. Mai 2013, 16:38
Ich habe mich heute nochmal an das Thema gemacht.

Good news: inzwischen funktioniert IDHTTP bei mir auf einem NTML authentifiziertem Proxy-Server!
Der Code sollte ebenso "Digest" und "Basic" Proxy Authentifizierung beherrschen, was ich aber in Ermangelung eines entsprechenden Proxies noch nicht austesten konnte.

Was ist zu tun:
- Ein IDHTTP Element auf das Form legen
- Ein IdSSLIOHandlerSocketOpenSSL auf das Form legen
- Beim IDHTTP Element im IOHandler "IdSSLIOHandlerSocketOpenSSL" auswählen

- Folgende evtl. noch fehlenden Anweisungen in die Uses Klausel aufnehmen:
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdAuthenticationSSPI , IdAuthentication , IdAuthenticationDigest , IdHeaderList, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL ;

- URL und Port des Proxies irgendwo übergeben (uB in FormCreate)

Delphi-Quellcode:
           IdHTTP1.ProxyParams.ProxyServer := 'MyProxyServer';
           IdHTTP1.ProxyParams.ProxyPort := 'MyProxyPort';


- Folgendes in IdHTTPMainSelectProxyAuthorization aufnehmen

Delphi-Quellcode:
procedure TForm1.IdHTTPMainSelectProxyAuthorization(Sender: TObject; var AuthenticationClass: TIdAuthenticationClass; AuthInfo: TIdHeaderList);
begin
  // First check for NTLM authentication, as you do not need to set username and password because Indy will automatically
  // handle passing your Windows Domain username and password to the proxy server
  if (pos('Proxy-Authenticate: NTLM', IdHTTPMain.Response.RawHeaders.Text)>0)
    then begin
           IdHTTP1.ProxyParams.BasicAuthentication := false;
           AuthenticationClass := TIdSSPINTLMAuthentication;
         end
    else begin
           //Next check for Basic
           if (pos('Proxy-Authenticate: Basic', IdHTTP1.Response.RawHeaders.Text)>0)
             then begin
                    AuthenticationClass := TIdBasicAuthentication;
                    IdHTTP1.ProxyParams.BasicAuthentication := true;
                   end
             else begin
                    // Then Digest
                    if (pos('Proxy-Authenticate: Digest', IdHTTPMain.Response.RawHeaders.Text)>0)
                      then AuthenticationClass := TIdDigestAuthentication
                  end;
           //.------------
           IdHTTP1.ProxyParams.ProxyUsername := 'YourUsername';
           IdHTTP1.ProxyParams.ProxyPassword := 'YourPassword';
         end;

end;

- Get-Funktion aufrufen um etwas zu machen. Z.B.

  Memo1.Lines.Text := IdHTTP1.Get('http://www.google.de'); Viel Spaß
Martin
Martin Kuhn

Geändert von MartinK ( 2. Mai 2013 um 16:43 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 21:29 Uhr.
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