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;
end;