Forum: Programmieren allgemein
Delphi
by KodeZwerg,
16. Dez 2021
Hier ein mini Beispiel ohne Wrapper:
function DownLoadInternetFile(Source, Dest : String): Integer;
begin
try
Result := URLDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil);
except
Result := -1;
end;
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
16. Dez 2021
Sollte es nicht so genutzt werden?
procedure DownStream(const AURL: String; const ALocalFile: String);
var
URLStream: TDownloadUrl;
begin
URLStream := TDownLoadURL.Create(Self);
try
URLStream.URL := AURL;
URLStream.FileName := ALocalFile;