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; 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.