Delphi NetHttpClient post 函数

本文整理自网络，侵删。

 
uses System.Net.URLClient,System.Net.HttpClient, System.Net.HttpClientComponent;

function HttpPost(Url: String; ID: Integer; Cookie: string): String;
  var
  NetHttp: TNetHTTPClient;
  TmpSS: TStringStream;
  ParmList: TStringList;
begin
  Result := '';
  NetHttp := TNetHTTPClient.Create(nil);
  ParmList := TStringList.Create;
  TmpSS := TStringStream.Create('', TEncoding.UTF8);
  try
    //NetHttp.Asynchronous := True;  异步
    NetHttp.ConnectionTimeout := 10000;
    NetHttp.ResponseTimeout := 20000;
   // NetHttp.CustomHeaders['Cookie'] := 'sscSESSID=' + Cookie;
    NetHttp.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36';
    ParmList.Add('op=getCurIssue');
    ParmList.Add('op=getCurIssue');
    ParmList.Add('lotteryId=' + IntToStr(ID));
    NetHttp.Post(Url, ParmList, TmpSS);
    Result := Trim(TmpSS.DataString);
  finally
    NetHttp.Free;
    ParmList.Free;
    TmpSS.Free;
  end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Memo1.Text:= HttpPost('http://www.baidu.com/',1,'123');
end;
 

相关阅读 >>

Delphi7判断字符是否是数字

Delphi通过窗口标题结束指定进程函数

Delphi 数据模块池

Delphi文本加密解密

Delphi获取优盘的id

Delphi中combobox.items.indexof用法

Delphi测试数据库连接时间

Delphi判断某一个点是否在一个区域内

Delphi中的各种文件类型介绍

Delphi 文件大小 显示k kb mb gb tb

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

转载请注明出处：木庄网络博客 » Delphi NetHttpClient post 函数