delphi11 post跳转链接真实链接

在 Delphi 11 中，您可以使用 TNetHTTPClient 组件来发送 POST 请求，并获取跳转链接的真实链接。以下是一个示例代码：

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

function GetRealRedirectURL(const URL: string; const Params: TStringList): string;
var
  Client: TNetHTTPClient;
  Response: IHTTPResponse;
begin
  Client := TNetHTTPClient.Create(nil);
  try
    Response := Client.Post(URL, Params);

    // 获取跳转后的真实链接
    Result := Response.GetRealURL;
  finally
    Client.Free;
  end;
end;

在上述代码中，我们使用 TNetHTTPClient 的 Post 方法发送 POST 请求，并通过 Response.GetRealURL 来获取跳转后的真实链接。

您需要将 URL 参数替换为要发送 POST 请求的链接，Params 参数是一个 TStringList 对象，可以用于设置 POST 请求的参数。根据需要，您可以根据实际情况进行调整。

请注意，在获取真实链接之前，服务器端必须返回一个重定向响应（状态码为 301 或 302）。否则，GetRealURL 方法将返回原始 URL。

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