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;