Delphi从Web获得具有表单授权的文件

Question

我需要授权从Web下载文件。 我使用Delphi和Indy组件。 当Get方法执行下载时，出现错误“ HTTP / 1.0 404 Not Found”。 这似乎表明授权失败，但是文件Response.html包含网页，类似于登录后出现的网页……

我使用Firefox Web开发工具获得的PS Prams授权表。

function TForm1.Login: string;
var
    Request: TStringList;
begin
    Result := '';
    try
        Request := TStringList.Create;
        try
            Request.Add('backurl=%2Fnewupgrade%2Findex.php');
            Request.Add('AUTH_FORM=Y');
            Request.Add('TYPE=AUTH');
            Request.Add('USER_LOGIN=xxxx');
            Request.Add('USER_PASSWORD=XXXX');
            IdHTTP1.AllowCookies := True;
            IdHTTP1.HandleRedirects := True;
            IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
            IdHTTP1.Request.Connection := 'keep-alive';
            Result := IdHTTP1.Post('http://www.uniko.ru/newupgrade/index.php?login=yes', Request);
        finally
            Request.Free;
        end;
    except
        on E: Exception do ShowMessage(E.Message);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    Response: string;
    fs: TStreamWriter;
    MS: TMemoryStream;
begin
    Response := Login;
    fs := TStreamWriter.Create('C:\Response.html');
    fs.Write(Response);
    fs.Free;

    // Download file
    MS := TMemoryStream.Create;
    try
        IdHTTP1.Request.ContentType := 'application/force-download; name="Setup.EXE"';
        IdHTTP1.Get('http://www.uniko.ru/newupgrade/izyat/Setup.EXE', MS);
        MS.SaveToFile('C:\Setup.tmp');
    finally
        MS.Free;
    end
end;

Answer 1

HTTP响应代码404表示找不到请求的URL。 您正在考虑401，这是服务器的身份验证请求。 TIdHTTP内部处理401，但是根据其要求的身份验证类型（基本，NTLM，SSPI等），您可能需要在uses子句中添加各种IdAuthentication...单元，以启用Indy对它们的支持。

您的代码写入Response.html的唯一方法是Post()报告HTTP响应代码200而不是401，但是将其发送回登录页面。 该网站使用的是Webform身份验证，而不是HTTP身份验证。 发布用于Webform身份验证的TStrings ，请勿对内容进行url编码。 Post()在内部为您处理。 具体来说，此行：

Request.Add('backurl=%2Fnewupgrade%2Findex.php');

应该是这样的：

Request.Add('backurl=/newupgrade/index.php');

这可能会导致Web表单失败，并可能导致404错误。看看发送回的HTML，其中可能包含错误消息。

Answer 2

我找到解决办法！！！

我读了这篇文章： http : //www.programmersclub.ru/%D0%90%D0%B2%D1%82%D0%BE%D1%80%D0%B8%D0%B7%D0%B0%D1% 86％D0％B8％D1％8F-％D0％BD％D0％B0-邮件rU-亚％D1％81-％D0％BF％D0％BE％D0％BC％D0％BE％D1％89％D1 ％8C％D1％8E-印/

并确定将Cooke参数添加到HTTP1.Response.RawHeaders：

procedure TForm1.Button1Click(Sender: TObject);
var
  header, cookie: string;
  MS: TMemoryStream;
  p, p2: Integer;
begin
  Login;

  cookie := '';
  header := IdHTTP1.Response.RawHeaders.Text;
  while true  do begin
    p := pos('Cookie:', header);
    if p=0 then break;
    p := p+length('Cookie:')+1;
    p2 := pos(#$D#$A, copy(header, p, length(header)));
    if p2=0 then p2 := length(header);
    cookie := cookie + copy(header, p, p2-1)+';';
    header := copy(header, p+p2+1, length(header))
  end;

  if cookie<>'' then begin
    cookie := StringReplace(cookie, 'path=/;', '', [rfReplaceAll]);
    cookie := copy(cookie, 1, length(cookie)-1);
    IdHTTP1.Request.CustomHeaders.Add('Cookie: ' + cookie);
  end;

  // Download file
  MS := TMemoryStream.Create;
  try
    IdHTTP1.Request.ContentType := 'application/force-download; name="Setup.EXE"';
    IdHTTP1.Get('http://www.uniko.ru/newupgrade/izyat/Setup.EXE', MS);
    MS.SaveToFile('C:\Setup.tmp');
  finally
    MS.Free;
  end
end;

和它的工作！