delphi THTTPClient PostURL-木庄网络博客

本文整理自网络，侵删。

 function PostURL(const AURL: string; Parameters: TStrings): string;
var
  HttpClient: THttpClient;
  HttpResponse: IHttpResponse;
begin
  HttpClient := THTTPClient.Create;
  try
    HttpClient.ConnectionTimeout:=3000;
    HttpClient.ResponseTimeout:=3000;
    HttpResponse := HttpClient.Post(AURL, Parameters, nil, TEncoding.UTF8);
    Result := HttpResponse.ContentAsString();
  finally
    HttpClient.Free;
  end;
end;

相关阅读 >>

Delphi篇之写托盘图标

Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法

Delphi 计算ip地址范围

Delphi image1 图像旋转90

用Delphi判断操作系统是否win10

Delphi 将dbgrid的数据导出到excel文件保存

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi调用游戏call代码

Delphi中操作olevariant、variant和stream

Delphi 实现透明窗体

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