NetHTTPClient 获取跳转URL

您可以使用Delphi的TNetHTTPClient组件来发送HTTP请求并获取跳转URL。以下是一个示例代码：

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

function GetRedirectURL(const URL: string): string;
var
  Client: TNetHTTPClient;
  Response: IHTTPResponse;
begin
  Client := TNetHTTPClient.Create(nil);
  try
    Response := Client.Get(URL);

    // 查找跳转URL
    if Response.StatusCode in [301, 302, 303, 307, 308] then
      Result := TURL.URLDecode(Response.Headers.Values['Location'])
    else
      Result := '';
  finally
    Client.Free;
  end;
end;

在上述代码中，我们使用TNetHTTPClient的Get方法发送GET请求，并检查响应的状态码来确定是否发生了重定向。如果状态码为301、302、303、307或308，则从响应头中获取跳转URL。

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

相关问题

delphi11 NetHTTPClient 获取跳转URL

在Delphi 11中，您仍然可以使用TNetHTTPClient组件来发送HTTP请求并获取跳转URL。以下是一个示例代码：

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

function GetRedirectURL(const URL: string): string;
var
  Client: TNetHTTPClient;
  Response: IHTTPResponse;
begin
  Client := TNetHTTPClient.Create(nil);
  try
    Response := Client.Get(URL);

    // 查找跳转URL
    if Response.StatusCode in [301, 302, 303, 307, 308] then
      Result := TURL.URLDecode(Response.Headers.Values['Location'])
    else
      Result := '';
  finally
    Client.Free;
  end;
end;

在上述代码中，我们使用TNetHTTPClient的Get方法发送GET请求，并检查响应的状态码来确定是否发生了重定向。如果状态码为301、302、303、307或308，则从响应头中获取跳转URL。

请注意，您需要在使用前添加`System.Net.HttpClient`和`System.Net.URLClient`单元，并确保您的项目引用了适当的库。

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

NetHTTPClient post获取跳转网址

您可以使用TNetHTTPClient组件来发送POST请求并获取跳转网址。以下是一个示例代码：

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

function GetRedirectURL(const URL: string): string;
var
  Client: TNetHTTPClient;
  Response: IHTTPResponse;
begin
  Client := TNetHTTPClient.Create(nil);
  try
    Client.HandleRedirects := False; // 禁止自动重定向
    Response := Client.Post(URL, nil); // 发送POST请求

    // 查找跳转网址
    if Response.StatusCode = 302 then
      Result := TURL.URLDecode(Response.Headers.Values['Location'])
    else
      Result := '';
  finally
    Client.Free;
  end;
end;

您可以将待发送的POST数据作为第二个参数传递给`Post`方法，例如`Client.Post(URL, PostData)`。`URL`是目标网址，`PostData`是POST数据（可以是TStream、TBytes、TString、TStrings等）。

请注意，上述代码仅处理了302重定向，如果需要处理其他类型的重定向，请根据具体情况进行修改。

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