Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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;ftpget(CaminhoServidor,CaminhoLocal, listaFile.Items[listaFile.ItemIndex], 'Temp'+listaFile.Items[listaFile.ItemIndex])
Carregando comentários...