buenas...
Tengo una aplicación que envia-recepciona ficheros via ftp, los ficheros, son
ficheros de texto .txt, algunos de ellos de varias megas de tamaño.
El problema que observo parece ser que está centrado en la descarga, cuando los descargo, sin recibir ningún error, observo como no tienen el tamaño original que se ha subido, cuando los abro, con cualquier editor , me doy cuenta de que no esta toda la información en algunos ficheros, incluso en algunos ficheros de texto, están las mismas lineas duplicadas. ¿?
He probado tanto definiendo el tipo de transferencia como ftbinary o ftascil, con el mismo resultado.
Si abro los ficheros en el sitio ftp, los ficheros se suben correctamente.
este es el código que utilizo....
Código Delphi
[-]
ftp := TIdFTP.Create(nil);
ftp.TransferType := ftbinary;
if conectaftp then
begin
try
ftp.List(StringList, '????' + crepres + '.*', false);
BARRA.Max := StringList.Count;
for i := 0 to StringList.Count - 1 Do
begin
mensaje.Lines.Add('Descargando ' + ftp.DirectoryListing[i].FileName);
BARRA.Position := BARRA.Position + 1;
ftp.Get(ftp.DirectoryListing[i].FileName,
cdirec + '\' + ftp.DirectoryListing[i].FileName,true);
end;
except
mensaje.Lines.Add('No se pudo bajar:' + ftp.DirectoryListing[i]
.FileName + #13 + ' Compruebe si dispone de conexión a internet ');
APPLICATION.processmessages;
end;
¿ alguien puede aportarme un poco de luz sobre el particular ?