delphi THTTPClient PostURL

2022-11-03 13:50:00 网络 Delphi

本文整理自网络，侵删。

 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判断字符串是否是数字、字母、大小写字母

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi内存对齐

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