Cliente FTP

[barakuda]

Buenas,
Estoy desarrollando una app la cual recoge datos y posteriormente los debe enviar por ftp a un ordenador.
Siempre suelo desglosar la aplicación en otras para probar por separado y e aquí lo que vendría a ser la parte que envía el fichero.

El siguiente código conecta, valida y envía el fichero pero es como si una vez enviado no desconectase dándome en el terminal error "Read timed out"

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
   clienteFtp: TIdFTP;
 begin
   clienteFtp := TIdFTP.Create(Self);
   try
     with clienteFtp do
     begin
       Username := 'david';
       Password := '1234';
       Host := '192.168.1.25';
       Connect; // Conectamos
       if connected  then
       begin
       ShowMessage('Conectado al servidor FTP');
       Put(TPath.Combine(TPath.GetDocumentsPath, 'subir.txt'), 'subir.txt', False);
       Disconnect;
       end;

     end;
      except
    on EConvertError  do
    ShowMessage('Error Al Conectar al servidor FTP');
   end;
 end;

Como curiosidad si comento la linea:

Código Delphi [-]
Put(TPath.Combine(TPath.GetDocumentsPath, 'subir.txt'), 'subir.txt', False);

funciona, correctamente es decir, el cliente inicia sesión en el servidor de ftp, en el terminal muestra el mensaje y al aceptar se puede ver en el servidor que el cliente a desconectado.
Alguna sugerencia, gracias por adelantado.

[Casimiro Notevi]

¿No tiene un evento que salte cuando ha terminado de hacer la subida?
Supongo que debe tenerlo, y es ahí donde debes desconectar.

Por cierto, recuerda poner títulos descriptivos a tus preguntas, gracias

[barakuda]

Gracias casimiro por responder,

acabo de probar en el evento IdFTP1AfterPut y en IdFTP1WorkEnd pero el resultado es el mismo, la aplicación del móvil se "congela" y acaba apareciendo el mensaje, "Read timed out".
La ruta del fichero esta bien ya que si adrede la modifico muestra en el terminal el mensaje que no encuentra el fichero.

¿Puede deberse a algún fallo por parte de la compatibilidad del componente con android?
Gracias por las sugerencias.

[Casimiro Notevi]

La verdad es que no he usado esos componentes. ¿No trae alguna demo?

Desde luego, si tienes esos eventos de fin de put y de work, debes usarlo,

[barakuda]

Gracias casimiro,
pues en la web de embarcadero no e sabido encontrar ninguna demo acerca de como utilizar el ftp, lo mas "raro" es que el mismo listado tan solo variando la linea del put y adaptándola para entorno escritorio Put('c:/subir.txt' ,'subir.txt', false) el listado funciona bien.

gracias por adelantado!!

[Neftali [Germán.Estévez]]

Revisa los permisos de la aplicación.
¿Es posible que alguna falta de permisos te esté bloqueando la subida?