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重定向，如果需要处理其他类型的重定向，请根据具体情况进行修改。

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