Se tilda la transferencia de indy Ftp...

[verito_83mdq]

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!!