UrlDownloadToFile mit einem Proxy?

[himitsu]

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

[Andreas L.]

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
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.