Download FTP com indy

[masterbsb 2]

bom pessoal, tento fazer o download do FTP com o componente idftp, até consigo, só que os arquivos vem corrompidos, o código que uso é esse, se alguém poder me auxiliar em mais essa! abraços!

 

function TFrmVisualiza.ftpget(dirRemotro, DirLocal, filefrom, fileto: string) : string;
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    try
      ftp.Connect();
      AssErt(ftp.Connected);
      ftp.ChangeDir(dirRemotro); // Definir a pasta no servidor
      ftp.Get(filefrom, DirLocal+fileto, true); // Receber o arquivo do servidor
      ShowMessage('Arquivo Recebido');
      Result :=  DirLocal+fileto;
    finally
      ms.Free;
    end;
  except
    ShowMessage('Uma tentativa de receber um arquivo do servidor com falha');
 end;

e pra chamar a função uso:

ftpget(CaminhoServidor,CaminhoLocal, listaFile.Items[listaFile.ItemIndex], 'Temp'+listaFile.Items[listaFile.ItemIndex])

 

[Roberto Fagundes 40]

Altere a propriedade TransferType do IdFTP de ftASCII para ftBinary...

 

o ftASCII serve somente para texto...

[masterbsb 2]

Grande Roberto Fagundes, sempre me ajudando, rsrs! Obrigado brother, funcionou em partes, para imagens jpeg funcionou legal, mais para as imagens tif e arquivos pdf não! :(

e eu possuo arquivos nesses formatos! isso é deficiência do idftp? existe algum outro componente que eu possa usar?

[Roberto Fagundes 40]

Nunca usei outro componente, também nunca tive problemas com arquivo PDF... Já o TIF nunca testei....

[masterbsb 2]

quais as configurações que vc usa no componente? tem como me passar algum exemplo de como usa?

[masterbsb 2]

Roberto Fagundes, problema solucionado após atualizar os componentes indy! Vlw pela ajuda mais uma vez! Abraços