Holaa como andann??? Estoy trabajando con el componente Indy Ftp cliente.
El problema es que cuando descargo un archivo se tilda la aplicación, osea se conecta bien , busca el directorio se dispone a bajarlo y cuando esta un rato trabajando este se tilda. El código es muy sencillo aca lo dejo.
Código Delphi
[-]unit prueba;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
pruebaIdFTP1.Username:= 'xxxx';
pruebaIdFTP1.Password:= 'xxxxx';
pruebaIdFTP1.Host := '127.0.0.1';
pruebaIdFTP1.Connect;
pruebaIdFTP1.ChangeDir('/Publica/Nuevo');
UpdateProgressBar1.Max:= pruebaIdFTP1.Size('prueba.exe') div 1024;
pruebaIdFTP1.Get('SiTiC.exe','c:\prueba.exe',True,False);
end;
procedure TForm1.pruebaIdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
UpdateProgressBar1.Position := AWorkCount div 1024;
end;
end.
Lo único que configuro de las propiedades del IDFTP es el usuario, pasw, puerto y host, no se si hay q modificar algo mas..
Encima como podrán ver lo estoy probando en mi propia maquina.
Alguna sugerencia?? Desde ya muchas gracias!!!
Saludos!!