Delphi XE2下使用Idhttp实现带Header头发送get请求

Delphi XE2下使用Idhttp实现带Header头发送get请求

TIdHttp带自定义头部信息发送请求的应用场景，一般是使用post请求中比较多，不过使用Get请求也是类似的。本文介绍一个简单的实现方法。

在窗口中放一个TIdHttp控件，以下是具体实现的代码：

procedure TForm2.Button4Click(Sender: TObject);

var

  aStream: TStringStream;

begin

  IdHTTP1.HandleRedirects := True;

  IdHTTP1.Request.CustomHeaders.Clear;

  IdHTTP1.Request.ContentType := 'application/json';

  IdHTTP1.Request.CustomHeaders.Add('token:'+edit2.Text); //留意这里的格式，很多时候报错是因为格式不正确

  aStream := TStringStream.Create;

  try

    IdHTTP1.Get('http://192.168.0.1:8888/auth',aStream);

    aStream.Position := 0;

    ShowMessage(astream.DataString);//如果需要就获取一下，不需要则不用aStream参数

  finally

    FreeAndNil(aStream);

  end;

————————————————

原文链接：https://blog.csdn.net/yueyun889/article/details/102954430