Proxy-Einstellungen automatisch erkennen mit IDHttp

[MartinK]

Vielen Dank für die tips !

Liebe Grüße ...Martin

[MartinK]

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]

Vermutlich verwenden die direkt die wininet.dll, und übergeben InternetOpen das Flag INTERNET_OPEN_TYPE_PRECONFIG.

[mjustin]

Zitat von MartinK:

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]

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

[MartinK]

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

[CCRDude]

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;

[DeddyH]

Und die WinInet-Referenz findet man hier.