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 unigui中cookies使用中文汉字的方法

Delphi 模仿qq截图

Delphi获取宽带ip

Delphi unigui hyperserver

Delphi 截取两个字符之间的内容

Delphi与用windows 7下的用户账户控制(uac)机制

Delphi中设置系统时间方法

Delphi 常用控件属性

Delphi thread类的创建及使用(关于线程函数的传递例子)

Delphi 通过api 隐藏任务栏所有托盘图标

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

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