delphi实现post请求
<h1>delphi实现post请求，前提头部先引用IDHttp组件</h1><p> </p>
<p>var</p>
<p>fhttpRequest: TIdHTTP;</p>
<p>PostData : TStringStream;</p>
<p>tmpStr : String;</p>
<p>begin</p>
<p>fhttpRequest := TIdHTTP.Create(nil);</p>
<p> fhttpRequest.HandleRedirects := True;//允许头转向</p>
<p> fhttpRequest.ReadTimeout := 5000;//请求超时设置</p>
<p> fhttpRequest.Request.ContentType := 'application/x-www-form-urlencoded';//设置内容类型为json</p>
<p> PostData := TStringStream.Create('');</p>
<p> //PostData.Position := 0;//将流位置置为0</p>
<p> PostData.WriteString('encode=123');</p>
<p> PostData.WriteString('asd');</p>
<p> tmpStr := fhttpRequest.Post('http://10.32.8.34:8081/phis/EncodeServlet',PostData); //tmpStr是提交后返回的数据</p>
<p> fhttpRequest.free;</p>
<p> PostData.Free;</p>
<p> Result:=tmpStr;</p>
<p>end;</p>
<p> </p><br><br>
来源：https://www.cnblogs.com/zhaisd/p/13516797.html
頁:
[1]