TNetHTTPClient获取请求标头

在 Delphi 中，您可以使用 TNetHTTPClient 组件来发送 HTTP 请求并获取响应的标头信息。以下是一个示例代码，演示如何获取请求的标头：

uses
  System.Net.HttpClient, System.Net.URLClient, System.Classes;

procedure SendRequest(const URL: string);
var
  Client: TNetHTTPClient;
  Response: IHTTPResponse;
  Headers: TNetHeaders;
  Header: TNameValuePair;
begin
  Client := TNetHTTPClient.Create(nil);
  try
    // 发送请求
    Response := Client.Get(URL);

    // 获取响应标头
    Headers := Response.Headers;

    // 遍历标头并输出
    for Header in Headers do
      Writeln(Header.Name + ': ' + Header.Value);

  finally
    Client.Free;
  end;
end;

在上述代码中，我们创建了一个 TNetHTTPClient 对象，然后使用其 Get 方法发送 GET 请求并获取响应。通过访问 Response.Headers 属性，我们可以获取响应的标头信息。然后，我们可以遍历标头并将其输出。

请注意，如果您发送的是 POST 请求或其他类型的请求，您可以相应地使用 TNetHTTPClient 的 Post、Put 或 Delete 方法来发送请求，并获取相应的标头信息。

希望对您有所帮助！如果您有任何其他问题，请随时提问。