Delphi XE7 FMX Android Исключение FTP-соединения - PullRequest
Новая
       52

Delphi XE7 FMX Android Исключение FTP-соединения

0 голосов
/ 15 февраля 2019

Как я могу поймать исключение подключения на Android при подключении к FTP.

Код в данный момент: 

idftp1.Host    := Servidor_ftp;
idftp1.Username:= Usuario_ftp;
idftp1.Password:= Contraseña_ftp;
Try
  idftp1.Port    := StrToInt(Puerto_ftp);
except
  idftp1.Port := 21;
End;
Try
  idftp1.Connect;
  idftp1.Passive := true;
  if Carpeta_ftp = '' then
    IdFTP1.Put( System.IOUtils.TPath.Combine(System.IOUtils.tpath.getdocumentspath,'temp.txt'), Nombre_pistola+'.txt' , False )
  else
    IdFTP1.Put( System.IOUtils.TPath.Combine(System.IOUtils.tpath.getdocumentspath,'temp.txt'), Carpeta_ftp+Nombre_pistola+'.txt', False );
  idftp1.Disconnect;
except
  ShowMessage('Hay un error con la conexion al FTP, compruebe si tiene internet y si esta bien configurado todo.');
End;

Соединение работает правильно, когда все настроено правильно (сервер, пользователь, pass, port), но он может быть настроен неправильно, и в этом случае он не будет подключаться, если я использую этот код с Windows, я получаю исключение после тайм-аута, но на Android он просто остается там, и я получаю сообщение «Подождите дляapp or kill app "

Спасибо.

...