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 copyrect实现的几个图片的转换效果

Delphi 字符串的分割

Delphi 如何判断html编码格式，解决乱码问题

Delphi hide

Delphi 给 tcombobox 添加图标

Delphi 字节数转换为kb或mb字符串

Delphi tstringlist utf8编码保存并开启bom

Delphi 显示windows断开网络驱动器对话框

Delphi x秒生成大量垃圾字符

Delphi 公历到农历的转换法

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

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