delphi7中idHTTP的使用

delphi7中idHTTP的使用1 直接 idhttp Tidhttp 声明一个 var 变量是不能使用的 必须有控件 2 使用 IdHTTP 调 post 接口 xml 格式 IdHTTP1 HandleRedire True 允许头转向 IdHTTP1 ReadTimeout 30000 请求超时设置 IdHTTP1 HTTPOptions IdHTTP1

1.直接idhttp:Tidhttp声明一个var变量是不能使用的。必须有控件

2.使用IdHTTP调post接口,xml格式

IdHTTP1.HandleRedirects := True;//允许头转向
IdHTTP1.ReadTimeout := 30000;//请求超时设置
IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];
IdHTTP1.ProtocolVersion:=pv1_1;
IdHTTP1.Request.Connection := ‘keep-alive’;
IdHTTP1.Request.CacheControl := ‘no-cache’;
IdHTTP1.Request.AcceptLanguage:=’zh-cn’;
IdHTTP1.Request.AcceptEncoding:=’gzip, deflate’;
IdHTTP1.Request.ContentType := ‘text/xml;application/x-www-form-urlencoded; Charset=UTF-8’;

postStream:=TStringStream.Create(ansitoUTF8(gv_mz_cf_xml));

responseStr:=IdHTTP1.Post(gv_hlyy_post_url,postStream);

可以post成功

注意点:a. var postStream:TStringStream

postStream:=TStringStream.Create(ansitoUTF8(gv_mz_cf_xml));

如果用Tstringlist,接受不到参数,改成TStringStream时,可以接受到数据,但是编码后的

b.解决编码后的参数

IdHTTP1.Request.ContentType := ‘text/xml;application/x-www-form-urlencoded; Charset=UTF-8’;

必须用text/xml

如果是json,使用text/json

编程小号
上一篇 2025-04-27 14:30
下一篇 2025-07-27 12:17

相关推荐

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/hz/127130.html