Delphi IDHTTP控件：GETPOST 请求

概述  最近一直在使用IDHTTP，下面是一些关于 GET、POST 请求基本使用方法的代码 一、GET 请求 1 procedure GetDemo; 2 var 3 IdHttp : TIdHTTP; 4 Url : string;//请求地址 5 ResponseStream : TStringStream; //返回信息 6 ResponseStr : string  

最近一直在使用IDhttp，下面是一些关于 GET、POST 请求基本使用方法的代码

一、GET 请求

 1 procedure GetDemo; 2 var 3   IDhttp : TIDhttp; 4   Url : string;//请求地址 5   ResponseStream : TStringStream; //返回信息 6   ResponseStr : string; 7 begin 8   //创建IDhttp控件 9   IDhttp := TIDhttp.Create(nil);10   //TStringStream对象用于保存响应信息11   ResponseStream := TStringStream.Create(‘‘);12   try13     //请求地址14     Url := ‘http://dict.youdao.com/‘;15     try16       IDhttp.Get(Url,ResponseStream);17     except18       on e : Exception do19       begin20         ShowMessage(e.Message);21       end;22     end;23     //获取网页返回的信息24     ResponseStr := ResponseStream.DataString;25     //网页中的存在中文时，需要进行UTF8解码26     ResponseStr := UTF8Decode(ResponseStr);27   finally28     IDhttp.Free;29     ResponseStream.Free;30   end;   31 end;

如果Get需要添加请求参数，则直接在地址后添加，各参数间用&连接

如：http://dict.youdao.com？param1=1&param2=2

二、Post 请求

 1 procedure PostDemo; 2 var 3   IDhttp : TIDhttp; 4   Url : string;//请求地址 5   ResponseStream : TStringStream; //返回信息 6   ResponseStr : string; 7  8   RequestList : TStringList;     //请求信息 9   RequestStream : TStringStream;10 begin11   //创建IDhttp控件12   IDhttp := TIDhttp.Create(nil);13   //TStringStream对象用于保存响应信息14   ResponseStream := TStringStream.Create(‘‘);15 16   RequestStream := TStringStream.Create(‘‘);17   RequestList := TStringList.Create;18   try19     Url := ‘http://f.youdao.com/?path=fanyi&vendor=fanyiinput‘;20     try21       //以列表的方式提交参数22       RequestList.Add(‘text=love‘);23       IDhttp.Post(Url,RequestList,ResponseStream);24 25       //以流的方式提交参数26       RequestStream.WriteString(‘text=love‘);27       IDhttp.Post(Url,RequestStream,ResponseStream);28     except29       on e : Exception do30       begin31         ShowMessage(e.Message);32       end;33     end;34     //获取网页返回的信息35     ResponseStr := ResponseStream.DataString;36     //网页中的存在中文时，需要进行UTF8解码37     ResponseStr := UTF8Decode(ResponseStr);38   finally39     IDhttp.Free;40     RequestList.Free;41     RequestStream.Free;42     ResponseStream.Free;43   end;44 end;

Post请求在网页中多使用List形式提交参数。

不过在一些API中规定了POST的请求格式为 JsON 格式或 XML，这是需要注意发起请求前需要先设置 ContentType 属性，使用Stream方式提交

已上面代码为例：

提交 JsON 格式：IDhttp.Request.ContentType :=‘application/Json‘;

提交 XML 格式： IDhttp.Request.ContentType :=‘text/xml‘;

如未按要求格式提交，一般会返回 http 1.1 / 415

总结

以上是内存溢出为你收集整理的Delphi IDHTTP控件：GET/POST 请求全部内容，希望文章能够帮你解决Delphi IDHTTP控件：GET/POST 请求所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。