Delphi11.0使用TNetHttpClient下载图片简易测试

原创

MrReady 2023-11-01 15:34:48 博主文章分类：Delphi ©著作权

文章标签 Delphi11.0 TNetHttpClient https ssl 网络 文章分类 软件研发

©著作权归作者所有：来自51CTO博客作者MrReady的原创作品，请联系作者获取转载授权，否则将追究法律责任

Delphi11.0使用TNetHttpClient下载图片简易测试

这里Delphi11.0使用TNetHttpClient下载图片,这里可以看到使用Delphi是能快捷的开发出同时支持多操作系统应用的。新版本Delphi11.0封装的TNetHttpClient调用https不需要再附带ssl相关的库了

效果图

Delphi11.0使用TNetHttpClient下载图片简易测试_TNetHttpClient

新建应用

新建一个支持多个操作系统的(Multi-Device Application)应用工程

Delphi11.0使用TNetHttpClient下载图片简易测试_网络_02

拖入一个TNetHttpClient控件到窗口上，一个TButton按扭控件,一个TImage图片控件

将按扭的Text修改为下载图片

Delphi11.0使用TNetHttpClient下载图片简易测试_https_03

编写代码

双击按扭下载图片，编写代码


procedure TForm1.Button1Click(Sender: TObject);
var
  url: String;
  responseStream: TMemoryStream;
  vResponse: IHTTPResponse;
  aPath: String;
begin
  url := 'https://s2.51cto.com/images/100/media/logo.png';
  responseStream := TMemoryStream.Create;
  try
    vResponse := NetHTTPClient1.Get(url, responseStream);
    if vResponse.StatusCode = 200 then
    begin
      responseStream.Position := 0;
      Image1.Bitmap.LoadFromStream(responseStream);
    end;
  finally
    responseStream.Free;
  end;
end;