Question

我需要使用Delphi对应用程序进行编程，该应用程序进入此站点并使用该表单获取.exe文件（实际上，该站点发送了一个必须手动重命名的.ex_文件）。

http://www.bmf.com.br/arquivos1/arquivos_ipn.asp?idioma=pt-BR&status=ativo

通过浏览器我只需单击“CenáriosdeMargem - CORE”左侧的复选框，然后单击“下载”按钮并自动获取文件。

我设法使用其他网站的.dat文件，现在我不知道可能出现了什么问题。

我认为问题应该是内容类型或我如何保存文件。

这是我到目前为止所得到的：

procedure DownloadViaPost;
var
  objHttp: TIdHttp;
  sUrl: String;
  sGetRequest: String;
  objParametrosPost: TStringList;
  objRespostaPost: TStringStream;
  sViewState: String;
  sEventValidation: String;
begin
  sUrl := 'http://www.bmf.com.br/arquivos1/arquivos_ipn.asp';
  objHttp := TIdHTTP.Create(nil);
  objParametrosPost := TStringList.Create;
  objRespostaPost := TStringStream.Create;
  try
    objHttp.HandleRedirects := true;
    objHttp.AllowCookies := true;
    objParametrosPost.Add('hdnStatus=ativo');
    objParametrosPost.Add('chkArquivoDownload_ativo=36');
    objParametrosPost.Add('txtDataDownload_ativo=21/08/2014');
    objParametrosPost.Add('imgSubmeter.x=31');
    objParametrosPost.Add('imgSubmeter.y=9');
    objParametrosPost.Add('imgSubmeter=ativo');
    objHttp.Request.ContentType := 'application/octet-stream exe';
    objHttp.Post(sUrl, objParametrosPost, objRespostaPost);
    objRespostaPost.SaveToFile('C:\Download.ex_');
  finally
     FreeAndNil(objHttp);
     FreeAndNil(objParametrosPost);
     FreeAndNil(objRespostaPost);
  end;
end;

Answer 1

就像浏览器一样，您需要首先检索下载页面以获取服务器的cookie，然后发布下载请求，以便将cookie发送回服务器。

试试这个：

procedure DownloadViaPost;
var
  objHttp: TIdHttp;
  objRespostaPost: TMemoryStream;
  objParametrosPost: TStringList;
begin
  objHttp := TIdHTTP.Create(nil);
  try
    objHttp.HandleRedirects := true;
    objHttp.AllowCookies := true;

    objHttp.Get('http://www.bmf.com.br/arquivos1/arquivos_ipn.asp?idioma=pt-BR&status=ativo');

    objRespostaPost := TMemoryStream.Create;
    try
      objParametrosPost := TStringList.Create;
      try
        objParametrosPost.Add('hdnStatus=ativo');
        objParametrosPost.Add('chkArquivoDownload_ativo=36');
        objParametrosPost.Add('txtDataDownload_ativo=22/08/2014');
        objParametrosPost.Add('imgSubmeter.x=37');
        objParametrosPost.Add('imgSubmeter.y=6');

        objHttp.Request.Referer := 'http://www.bmf.com.br/arquivos1/arquivos_ipn.asp?idioma=pt-BR&status=ativo';
        objHttp.HTTPOptions := objHttp.HTTPOptions + [hoKeepOrigProtocol, hoTreat302Like303];

        objHttp.Post('http://www.bmf.com.br/arquivos1/download_ipn.asp', objParametrosPost, objRespostaPost);
      finally
        FreeAndNil(objParametrosPost);
      end;
      objRespostaPost.SaveToFile('C:\Download.exe');
    finally
      FreeAndNil(objRespostaPost);
    end;
  finally
    FreeAndNil(objHttp);
  end;
end;

Idhttp +下载+ Delphi + ASP.NET

1 个答案: