THTTPClient unter Windows geht nicht richtig

[Der schöne Günther]

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.

[t2000]

Wie ist das mit dem "https"
Wir haben dazu einfach eine Indy TIdHttp mit passender TIdServerIOHandlerSSLOpenSSL Komponente genommen.

Alternativ: Direkt mit Windows Funktion Download

URLDownloadToFile(nil,PChar(MeineURLzumDownload),P Char(DerLokaleDateiname),0,nil)

[jaenicke]

Image1.Bitmap.LoadFromStream(stream); Dort dürfte eher das Problem liegen.
Um welches Betriebssystem geht es denn? Die meisten, die das hier testen, verwenden vermutlich Windows 10, so auch ich. Dort ist das Laden mit den in Windows integrierten Codecs auch kein Problem. Bei älteren Betriebssystemen muss das nicht unbedingt funktionieren.

Was passiert denn, wenn du dir das im Debugger schrittweise anschaust?
Ist Stream.Size z.B. nach dem Laden korrekt?
Gibt es eine Exception?