el codigo que utilizo es basicamente este
FTP := TIdFTP.Create(nil); with FTP do try Host := FHost; Username := FUserName; Password := FPassword; Port := 21; try Connect; case Modo of Subir: begin FTP.ChangeDir(FDirectorio); Put(FArchivo,'',True); Inc(FTPCountUP); end; Bajar: begin FTP.ChangeDir(FDirectorio); Get(FArchivo,FDirectorioDestino+FArchivoDestino,True,False); Inc(FTPCountDOWN); end; end; except end; finally if FTP.Connected then FTP.Disconnect; FTP.Free; end;
El archivo que estoy subiendo es un archivo zip, termina de subir pero no sube completo, por consiguiente al bajarlo no me deja abrirlo.
que puede ser que este pasando que no lo sube todo?
Gracias por su tiempo.