Bonjour,

J'ai developpé une appli avec TIdFTP[version fournie avec D7 Enterprise].
Grace à elle, je peux up/downloader des dossiers.

J'ai deux problèmes. Le premier :
1°/ Mon transfert se passe bien, puis sans crier gare, ma progressbar n'avance plus, je ne télécharge plus.

2°/ Je dois mal fermer ma connection car parfois j'ai un message : 'Vous ne pouvez avoir que 2 connections simultanées.' Voici le code que j'implémente.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
// Déconnection
procedure TForm1.disconnectClick(Sender: TObject);
begin
  IdFTP1.Abort;
  IdFTP1.Disconnect;
end;
 
// Close
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IdFTP1.Abort;
  IdFTP1.Disconnect;
end;