delphi7中idHTTP的使用

大家好，又见面了，我是你们的朋友全栈君。

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

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/159693.html原文链接：https://javaforall.cn