鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

Delphi IDHTTP控件:GET/POST 请求

来源:互联网 作者:佚名 时间:2017-09-08 09:48
最近一直在使用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,下面是一些关于 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   try
13     //请求地址
14     Url := 'http://dict.youdao.com/';
15     try
16       IdHttp.Get(Url,ResponseStream);
17     except
18       on e : Exception do
19       begin
20         ShowMessage(e.Message);
21       end;
22     end;
23     //获取网页返回的信息
24     ResponseStr := ResponseStream.DataString;
25     //网页中的存在中文时,需要进行UTF8解码
26     ResponseStr := UTF8Decode(ResponseStr);
27   finally
28     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 begin
11   //创建IDHTTP控件
12   IdHttp := TIdHTTP.Create(nil);
13   //TStringStream对象用于保存响应信息
14   ResponseStream := TStringStream.Create('');
15 
16   RequestStream := TStringStream.Create('');
17   RequestList := TStringList.Create;
18   try
19     Url := 'http://f.youdao.com/?path=fanyi&vendor=fanyiinput';
20     try
21       //以列表的方式提交参数
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     except
29       on e : Exception do
30       begin
31         ShowMessage(e.Message);
32       end;
33     end;
34     //获取网页返回的信息
35     ResponseStr := ResponseStream.DataString;
36     //网页中的存在中文时,需要进行UTF8解码
37     ResponseStr := UTF8Decode(ResponseStr);
38   finally
39     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

 

网友评论
<