Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: THTTPClient unter Windows geht nicht richtig

  Alt 25. Jan 2021, 16:08
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.
  Mit Zitat antworten Zitat