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 datasnap清除僵死连接

Delphi xe6 android下捕获功能键

Delphi app检测智能手机震动

Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串

Delphi 获取网页源代码的最简单办法

Delphi让tedit控件的内容居中或右对齐，限制位数，仅允许输入数字

Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的

Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear

Delphi 如何快速读写文件中的字符串

Delphi webbrowser 加载html成web

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

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