您的位置: 首页  >  IT文章  >  Delphi 转载：Delphi 如何GET/POST 调用HTTP请求

Delphi 转载：Delphi 如何GET/POST 调用HTTP请求

分类: IT文章 • 2023-11-25 21:44:13


Delphi 如何GET/POST 调用HTTP请求

https://blog.csdn.net/quan278905570/article/details/79724022

--------------------------**HTTP请求的GET方法**----------------------------------------

 1 **HTTP请求的GET方法**
 2 procedure GetDemo;
 3 var
 4   IdHttp : TIdHTTP;
 5   Url : string;//请求地址
 6   ResponseStream : TStringStream; //返回信息
 7   ResponseStr : string;
 8 begin
 9   //创建IDHTTP控件
10   IdHttp := TIdHTTP.Create(nil);
11   //TStringStream对象用于保存响应信息
12   ResponseStream := TStringStream.Create('');
13   try
14     //请求地址
15     Url := 'http://dict.youdao.com/';
16     try
17       IdHttp.Get(Url,ResponseStream);
18     except
19       on e : Exception do
20       begin
21         ShowMessage(e.Message);
22       end;
23     end;
24     //获取网页返回的信息
25     ResponseStr := ResponseStream.DataString;
26     //网页中的存在中文时，需要进行UTF8解码
27     ResponseStr := UTF8Decode(ResponseStr);
28   finally
29     IdHttp.Free;
30     ResponseStream.Free;
31   end;   
32 end;
View Code

如果Get需要添加请求参数，则直接在地址后添加，各参数间用&连接 
如：http://dict.youdao.com？param1=1&param2=2

---------------------------<><><><><><><><><><><>-----------------------------------------

---------------------------HTTP请求的GET方法----------------------------------------------

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;
View Code

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

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

已上面代码为例：

提交 JSON 格式：IdHttp.Request.ContentType :=’application/json’;

提交 XML 格式： IdHttp.Request.ContentType :=’text/xml’;

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

---------------------------<><><><><><><><><><><>-----------------------------------------

相关推荐