如何从TIdHTTP get读取标头

从TIdHTTP get读取标头的方法如下：

导入必要的单元：

uses
  IdHTTP;

创建一个TIdHTTP对象：

var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create;

发送GET请求并获取响应：

var
  Response: TStringList;
begin
  Response := TStringList.Create;
  try
    IdHTTP.Get('http://www.example.com', Response);
  finally
    Response.Free;
  end;

读取标头信息：

var
  Headers: TStrings;
begin
  Headers := IdHTTP.Response.RawHeaders;
  // 遍历标头信息
  for I := 0 to Headers.Count - 1 do
  begin
    // 处理每个标头
    // Headers.Strings[I] 包含标头的名称和值
  end;
end;

完整的代码示例：

uses
  IdHTTP, Classes;

procedure ReadHeadersFromGetRequest;
var
  IdHTTP: TIdHTTP;
  Response: TStringList;
  Headers: TStrings;
  I: Integer;
begin
  IdHTTP := TIdHTTP.Create;
  Response := TStringList.Create;
  try
    IdHTTP.Get('http://www.example.com', Response);
    Headers := IdHTTP.Response.RawHeaders;
    for I := 0 to Headers.Count - 1 do
    begin
      // 处理每个标头
      // Headers.Strings[I] 包含标头的名称和值
    end;
  finally
    Headers.Free;
    Response.Free;
    IdHTTP.Free;
  end;
end;

以上代码演示了如何使用Delphi中的TIdHTTP组件从GET请求中读取标头信息。您可以根据需要进行修改和扩展。对于更详细的TIdHTTP文档，请参考TIdHTTP文档。如果您需要使用腾讯云相关产品进行云计算开发，您可以参考Tencent Cloud官方网站获取更多信息。