Der nachfolgende Code lädt bei mir unter 10.0 Seattle und 10.4.0 Sydney problemlos die 139 KB große Sonnenblumenwiese herunter, unter Windows 32 und 64 Bit.
Irgendwelche spannenden Proxies auf deinem System? Und welche Delphi-Version genau?
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
System.Classes,
System.Net.HttpClient;
procedure p();
const
url = '
https://cdn.wallpapersafari.com/81/79/vl5G7p.jpg';
filePath = '
c:\users\localUser\Desktop\picture.jpg';
var
http: THttpClient;
stream: TMemoryStream;
begin
stream := TMemoryStream.Create();
try
http := THTTPClient.Create();
try
http.HandleRedirects := True;
http.Get(
url, stream);
stream.Seek(0, TSeekOrigin.soBeginning);
stream.SaveToFile(filePath);
finally
http.Destroy();
end;
finally
stream.Destroy();
end;
end;
end.