UrlDownloadToFile mit einem Proxy?

[himitsu]

schau mal, was da noch so alles wie http.Request.Proxy... klingt, bzw. so anfängt.

[Andreas L.]

Zitat:

Zitat von Sherlock

also mit einem Passwort ist es doch bei einem Proxy nicht getan. Man sollte zumindest irgendwo angeben können wie denn der Proxy heisst. ;)

Sherlock

Dachte man könnte sich herleiten das es noch mehr Eigenschaft gibt die mit http.Request.Proxy beginnen.

http.Request.ProxyUserName
http.Request.ProxyPassword
http.Request.ProxyPort
http.Request.ProxyHost oder http.Request.ProxyServer (bin mir nicht sicher...)

[Lannes]

Hallo,

hab mal in meinen älteren Codes gesucht.
Der hat mit einem Proxy funktioniert, den ich aber später nicht mehr benötigt habe und auskommentiert wurde.

Delphi-Quellcode:

function LoadFromURL(url:string;var Data:string):Boolean;
const BufferSize = 256;
var   Buffer    : array[1..BufferSize] of char;
      BufferLen : DWORD;
      ok        : Boolean;
      hSession  : HInternet;
      hHttp     : HInternet;
      hUrl      : HInternet;
begin
  result:=false;
  data:='';
  try            //ProxyServer = proxy-....
    hSession := InternetOpen({PChar('Agent')}nil,
                             {INTERNET_OPEN_TYPE_PROXY}INTERNET_OPEN_TYPE_PRECONFIG,
                             {PChar('proxy-.....')}nil,
                             {PChar('passwort')}nil,0);
    if hSession = nil then
      begin
      Showmessage('Kann nicht auf WinInit.DLL zugreifen');
      exit;
      end;
    hHttp := InternetConnect(hSession,'http://...',
                             INTERNET_DEFAULT_HTTP_PORT,nil,nil,INTERNET_SERVICE_HTTP,0,0);
    if hHttp = nil then
      begin
      Showmessage('Es besteht keine Verbindung zum "Intranet"');
      exit;
      end;
    hURL := InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);
    if hURL = nil then
      begin
      exit;
      end
      except
        exit;
      end;
  try
    if hURL <> nil then
      begin
      repeat
        ok := InternetReadFile(hURL, @Buffer, SizeOf(buffer), BufferLen);
        if not ok then
          begin
          data:='';
          result:=false;
          exit;
          end;
        data:=data+copy(buffer,1,bufferlen);
      until bufferlen<SizeOf(Buffer);
      Result:=True;
      end;
  finally
    InternetCloseHandle(hURL);
    InternetCloseHandle(hSession);
    InternetCloseHandle(hHttp);
  end;
end;

[DeddyH]

WinInet greift aber AFAIK auch auf den IE zurück, oder?

[Lannes]

Hallo,

in dem Zusammenhang :gruebel:
müsste ich mal meinen alten Rechner aus dem Keller holen, den reaktivieren und den IE aus dem alten System killen, und dann testen.

[himitsu]

soweit ich es denke zu wissen, greift WinInet (InternetConnect und Co.) auch auf den IE zu.

bzw. ist es eher andersrum, der IE greift wohl darauf zu.

[DeddyH]

Ich meinte damit, dass WinInet die Proxy-Einstellungen auch aus dem IE ausliest.

[AlexII]

:)

[himitsu]

Also die Dateien laufen über die BrowserCache ... will man etwas neu/direkt runterladen, dann hat man ein winziges Problemchen.

[DeddyH]

Es sei denn, man löscht vorher.