delphi - 使用Indy下载时出现 "302 Found"异常该怎么办？

Question

我正在尝试将文件下载到字符串:

function FetchUrl(const url: string): string;
var
 idhttp : TIdHTTP;
begin
  idhttp := TIdHTTP.Create(nil);
  try
    Result := idhttp.Get(url);
  finally
    idhttp.Free;
  end;
end;

这段代码有什么问题？我收到异常:HTTP/1.1 302 Found

Answer 1

将 TIdHTTP.HandleRedirects 属性设置为 True。默认情况下为 False。

function FetchUrl(const url: string): string; 
var 
 idhttp : TIdHTTP; 
begin 
  idhttp := TIdHTTP.Create(nil); 
  try 
    idhttp.HandleRedirects := True;
    Result := idhttp.Get(url); 
  finally 
    idhttp.Free; 
  end; 
end;