Problemas no ACBrDownload

fabiofranzini · 30 Março, 2016

Olá ,

Venho desenvolvendo uma aplicação que utiliza o ACBrDownload para baixar um arquivo por HTTP. Em testes verifiquei que vezes baixa normalmente e vezes retorna o erro:

Citar

Não foi possível renomear o arquivo: arquivo.ext.part para arquivo.ext.

Logo comecei a pesquisar sobre aqui no fórum e verifiquei que existiam pessoas com o mesmo problema mas nenhuma solução. Então fui para a linha onde o erro acontece no arquivo ACBrDownloadClass e verifiquei que ele tenta renomear o arquivo .part.

Esse é o trecho ORIGINAL do código onde o problema acontece(linhas 336 a 345):

Citar

if (fResultCode = 200) or (fResultCode = 206) or (fResultCode = 226) then
begin
sFileName := Copy(fFilePart, 1, Length(fFilePart) -5);
if FileExists(sFileName) then
if not DeleteFile(sFileName) then
raise Exception.Create(Format('Não foi possível excluir o arquivo: %s', [sFileName]));

CopyFile(PChar(fFilePart),PChar(sFileName), False);
if not RenameFile(fFilePart, sFileName) then
raise Exception.Create(Format('Não foi possível renomear o arquivo: %s para %s', [fFilePart, sFileName]));
end;

O sFileName representa o arquivo em seu formato original então se ele já existe ele tenta deletar o arquivo , e se o arquivo não existe ele renomeia o .part para o formato original. Nessa lógica pensei na seguinte problemática: "E se o .part estiver completo mas não foi liberado para uso?" então fiz uma A.T.E(Gambiarra):

Citar

if (fResultCode = 200) or (fResultCode = 206) or (fResultCode = 226) then
begin
sFileName := Copy(fFilePart, 1, Length(fFilePart) -5);
if FileExists(sFileName) then
if not DeleteFile(sFileName) then
raise Exception.Create(Format('Não foi possível excluir o arquivo: %s', [sFileName]));

CopyFile(PChar(fFilePart),PChar(sFileName), False);
//if not RenameFile(fFilePart, sFileName) then
// raise Exception.Create(Format('Não foi possível renomear o arquivo: %s para %s', [fFilePart, sFileName]));
end

Bom e para minha surpresa funcionou! 10/10 vezes de execução do mesmo código.

Logo após verifiquei um problema: o componente passa 2x pelo mesmo trecho te código, então ele não valida o primeiro if:

Citar

if FileExists(sFileName) then
if not DeleteFile(sFileName) then
raise Exception.Create(Format('Não foi possível excluir o arquivo: %s', [sFileName]));

porém na segunda passagem pelo trecho ele DELETA o arquivo baixado e por fim retorna erro por não achar o .part

Citar

if not RenameFile(fFilePart, sFileName) then
raise Exception.Create(Format('Não foi possível renomear o arquivo: %s para %s', [fFilePart, sFileName]));

Então refatorei o código:

Citar

if (fResultCode = 200) or (fResultCode = 206) or (fResultCode = 226) then
begin
sFileName := Copy(fFilePart, 1, Length(fFilePart) -5);
if FileExists(sFileName) and FilesExists(fFilePart) then
if not DeleteFile(sFileName) then
raise Exception.Create(Format('Não foi possível excluir o arquivo: %s', [sFileName]));

if FilesExists(fFilePart) then
if not RenameFile(fFilePart, sFileName) then
raise Exception.Create(Format('Não foi possível renomear o arquivo: %s para %s', [fFilePart, sFileName]));
end;

Concluindo o problema era que o código deletava o arquivo baixado e tentava renomear o download(.part) que já tinha sido renomeado anteriormente. Essa foi a solução que encontrei...

Até mais !

Daniel Cunha