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;
 

相关阅读 >>

Delphi getprocesshandleasname 获取进程句柄

Delphi 判断tcp端口是否被占用的方法

Delphi unigui 获取当前ip

Delphi tnethttpclient https忽略证书验证

Delphi统计字数（汉字+字母+符号）

Delphi Delphi写的一个上位机

Delphi感染文件的例子

Delphi文件监视主单元文件

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

Delphi idhttp友好错误信息的捕获

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

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