delphi HttpClient下载图片

uses System.Net.HttpClient;

procedure TMainForm.Button1Click(Sender: TObject);

 var HttpClient: tHttpClient;

     m: tMemoryStream;

 begin

 m:=tMemoryStream.Create;

 try

  HttpClient:=tHttpClient.Create;

  try

   HttpClient.Get('https://www.embarcadero.com/images/logos/logo-black-corp-grey.png', m);

  finally

   FreeAndNil(HttpClient);

  end;

  m.SaveToFile('r:\img.png');

 finally

  FreeAndNil(m);

 end;

end;

官方学习：http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Net.HttpClient.THTTPClient