Delphi HTTPClient Async异步获取网页代码

本文整理自网络，侵删。

 
procedure TForm1.Button10Click(Sender: TObject);
var
  Http: THTTPClient;
  Response: IHTTPResponse;
begin
  Http := THTTPClient.Create;
  try
    Response := Http.Get(Edit8.Text);
    Memo6.Text := Response.ContentAsString;
  finally
    Http.Free;
  end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  NetHTTPClientAsync.Get(Edit8.Text);
end;
 

相关阅读 >>

Delphi windows 编程[4] - 学习窗体生成的过程四

Delphi 字符串分割

Delphi 关闭uac 单元

Delphi 限制文本框中只接受数字

Delphi 调用js脚本

Delphi提取网页中的所有链接、点击第n个链接

Delphi idhttp登录网站教程代码

Delphi 安卓原生的toast温柔提示

Delphi 用ini记录combobox的itemindex

Delphi将xm音乐文件嵌入自己的程序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi HTTPClient Async异步获取网页代码