delphi 中 使用 TIdHTTP 提交Post数据


本文整理自网络,侵删。

 
var
fhttpRequest: TIdHTTP;
PostData : TStringStream;
tmpStr : String;

begin
  fhttpRequest := TIdHTTP.Create(nil);
  with fhttpRequest do
  begin
    ProtocolVersion := pv1_1;
    AllowCookies := True;
    ProxyParams.BasicAuthentication := False;
    ProxyParams.ProxyPort := 0;
    Request.ContentLength := -1;
    Request.ContentRangeEnd := -1;
    Request.ContentRangeStart := -1;
    Request.ContentRangeInstanceLength := -1;
    Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Request.BasicAuthentication := False;
    Request.Ranges.Units := 'bytes';
    Request.ContentType := 'application/x-www-form-urlencoded';
    //HTTPOptions := [hoForceEncodeParams];  
    HTTPOptions :=[hoKeepOrigProtocol, hoNoProtocolErrorException, hoInProcessAuth];  
  end;
  PostData := TStringStream.Create;
  PostData.WriteString('这里写上要post的数据');
  tmpStr := fhttpRequest.Post('要提交的网址',PostData); //tmpStr是提交后返回的数据

  fhttpRequest.free;
  PostData.Free;
end;

相关阅读 >>

Delphi 熊猫烧香核心源码

Delphi 把mp3做背景音乐

Delphi opendialog设置默认打开路径

Delphi中使用spcomm来实现串口通讯

Delphi for 循环 to和downto的理解

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 缓冲文件流-tbufferedfilestream tfilestream 性能测试

Delphi xe2 - 点点滴滴

Delphi 单元文件结构

Delphi ioutils tdirectory获取一个目录下所有文件名,包括子目录

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...