Delphi IDHTTP控件:GET/POST 请求

Posted marklove

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi IDHTTP控件:GET/POST 请求相关的知识,希望对你有一定的参考价值。

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

一、GET 请求

procedure GetDemo;
var
  IdHttp : TIdHTTP;
  Url : string;//请求地址
  ResponseStream : TStringStream; //返回信息
  ResponseStr : string;
begin
  //创建IDHTTP控件
  IdHttp := TIdHTTP.Create(nil);
  //TStringStream对象用于保存响应信息
  ResponseStream := TStringStream.Create(‘‘);
  try
    //请求地址
    Url := http://dict.youdao.com/;
    try
      IdHttp.Get(Url,ResponseStream);
    except
      on e : Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
    //获取网页返回的信息
    ResponseStr := ResponseStream.DataString;
    //网页中的存在中文时,需要进行UTF8解码
    ResponseStr := UTF8Decode(ResponseStr);
  finally
    IdHttp.Free;
    ResponseStream.Free;
  end;   
end;

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

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

二、Post 请求

procedure PostDemo;
var
  IdHttp : TIdHTTP;
  Url : string;//请求地址
  ResponseStream : TStringStream; //返回信息
  ResponseStr : string;

  RequestList : TStringList;     //请求信息
  RequestStream : TStringStream;
begin
  //创建IDHTTP控件
  IdHttp := TIdHTTP.Create(nil);
  //TStringStream对象用于保存响应信息
  ResponseStream := TStringStream.Create(‘‘);

  RequestStream := TStringStream.Create(‘‘);
  RequestList := TStringList.Create;
  try
    Url := http://f.youdao.com/?path=fanyi&vendor=fanyiinput;
    try
      //以列表的方式提交参数
      RequestList.Add(text=love);
      IdHttp.Post(Url,RequestList,ResponseStream);

      //以流的方式提交参数
      RequestStream.WriteString(text=love);
      IdHttp.Post(Url,RequestStream,ResponseStream);
    except
      on e : Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
    //获取网页返回的信息
    ResponseStr := ResponseStream.DataString;
    //网页中的存在中文时,需要进行UTF8解码
    ResponseStr := UTF8Decode(ResponseStr);
  finally
    IdHttp.Free;
    RequestList.Free;
    RequestStream.Free;
    ResponseStream.Free;
  end;
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 请求

delphi中使用HTTP控件,怎么使用POST的异步方式

delphi中IdHTTP控件怎么实现下载

idHttp 中GET POST应用

delphi 获取网页js返回数据

delphi 网页源代码