本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject); var s: String; Resp_Json: string; Req_Json:TStream;begin s:='state=1'; s:=s+'&kind=0'; s:=s+'&tblid=0'; Req_Json:=TstringStream.Create(s); Req_Json.Position:=0;
try IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36'; IdHTTP1.Request.Accept := 'application/json, text/javascript, */*; q=0.01'; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8'; IdHTTP1.Request.CharSet:='utf-8'; Resp_Json:=IdHTTP1.Post('http://[your URL]', Req_Json); finally Req_Json.Free; end;
memo1.Lines.Add(IdHTTP1.ResponseText); memo1.Lines.Add(Resp_Json);end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>