IdFtp avec Delphi D11

Bonjour,
J'ai une application qui utilise sans problèmes l'IdFtp depuis plusieurs années
et depuis la D11, elle ne fonctionne plus:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var lFileFtp, lDir, lFileName : string; lIdFtp : TIdftp; begin lIdFTP := TIdFTP.Create(nil); lIdFTP.TransferType := ftBinary; lIdFTP.Username := '***'; lIdFTP.Password := '***'; lIdFTP.Host := '*.*.*.*'; lIdFTP.Connect;   lFileftp := '___.txt'; lIdFtp.ChangeDir('/var/ftp/****/'); lDir :='___'; lIdFTP.Get(lFileName, lDir+lFileName, False, False);

---

le connect se passe bien, lors du .get:

exception du débogueur

Le projet a déclenché la classe d'exception EIdAcceptTimeout avec le message 'Délai d'acceptation dépassé.*.

Quelqu'un a-t-il rencontré ce genre de problème?

Verifie le ReadTimeOut, peut-être une valeur par défaut plus faible en D11, tente aussi le PassiveMode

Pense à gerer un try finally pour CreateFree et un try except autour du Get et du Connect/Disconnect, rien que pour gérer le EGracefullyTruc ...

Le Passiv mode a l'air de fonctionnner

Je vais suivre tes conseils pour la boucle Try

Merci Nickel :)