Download einer Datei

[himitsu]

String-Result + TStringStream und Binär?

Natürlich, dass da was nicht passt.

[TM6]

Zitat von himitsu:

String-Result + TStringStream und Binär?

Natürlich, dass da was nicht passt.

Okay, wo Du Recht hast, hast Du Recht!
Aber was nutzt Ihr denn?

[TM6]

Ich habe jetzt eine Variante gefunden, die auf den ersten Blick zu funktionieren scheint:
https://www.cryer.co.uk/brian/delphi..._file_http.htm

Code:

function DownloadFile(
    const url: string;
    const destinationFileName: string): boolean;
var
  hInet: HINTERNET;
  hFile: HINTERNET;
  localFile: File;
  buffer: array[1..1024] of byte;
  bytesRead: DWORD;
begin
  result := False;
  hInet := InternetOpen(PChar(application.title),
    INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenURL(hInet,PChar(url),nil,0,0,0);
  if Assigned(hFile) then
  begin
    AssignFile(localFile,destinationFileName);
    Rewrite(localFile,1);
    repeat
      InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);
      BlockWrite(localFile,buffer,bytesRead);
    until bytesRead = 0;
    CloseFile(localFile);
    result := true;
    InternetCloseHandle(hFile);
  end;
  InternetCloseHandle(hInet);
end;

[AuronTLG]

Probier mal den stinknormalen Indy-TIDHTTP. Das ist deutlich einfacher und funktioniert problemlos.

[Uwe Raabe]

Alternativ kannst du auch mal in die Implementierung von TDownLoadURL.ExecuteTarget oder REST.Client.TDownloadURL schauen. Beide wenden unterschiedliche Verfahren an.

[himitsu]

Alternativen wurden schon Einige genannt (von noch viel mehr),

ansonsten, bezüglich dieses Codes,
z.B. TMemoryStream oder TFileStream, anstatt des TStringStream.