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。

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