Discussion :

[jeromelef]

bonjour

j'ai encore un petit pb avec inftp de indy 10 : il est impossible de se reconnecter à un serveur ftp 2 fois 2 suite.

c'est a dire : je me connecte une premiere fois
je fais mon traitement sur le serveur
je me déconnecte
je me reconnecte et la j'ai un message d'erreur already connect alors que c'est faux !!!

que faut il faire encore?
merci

[Reisubar]

Montres le code de déconnexion... FTP exploite deux ports, si la connexion n'est pas terminée proprement il est possible que le canal de données soit toujours ouvert...

[jeromelef]

je fais simplement idftp1.disconnect.

la déconnexion doit se dérouler normalement car au niveau du serveur, je ne suis plus connecté

[Reisubar]

Disconnect appelle la fermture du canal de commandes, alors que le canal de données reste ouvert.

Testes avec la méthode suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MyFTPClient.KillDataChannel; //ferme le canal de données
MyFTPClient.Disconnect; //ferme le canal de commandes

[jeromelef]

j'avais déja essyé mais ça ne changé rien.
du coup j'ai viré une ligne de code dans la fonction de connexion dans le fichier idtcpclient.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TIdTCPClientCustom.Connect;
begin
  // Do not call Connected here, it will call CheckDisconnect
  EIdAlreadyConnected.IfTrue(Connected, RSAlreadyConnected);
 
  EIdHostRequired.IfTrue(Host='');
  EIdPortRequired.IfTrue(Port=0);
 
  if IOHandler = nil then begin
    IOHandler := MakeImplicitClientHandler;
    IOHandler.OnStatus := OnStatus;
    ManagedIOHandler := True;
  end;
 
  try
    // Bypass GetDestination
    if FDestination <> '' then begin
      IOHandler.Destination := FDestination;
    end;
  ...

est devenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TIdTCPClientCustom.Connect;
begin
  // Do not call Connected here, it will call CheckDisconnect
 
  EIdHostRequired.IfTrue(Host='');
  EIdPortRequired.IfTrue(Port=0);
 
  if IOHandler = nil then begin
    IOHandler := MakeImplicitClientHandler;
    IOHandler.OnStatus := OnStatus;
    ManagedIOHandler := True;
  end;
 
  try
    // Bypass GetDestination
    if FDestination <> '' then begin
      IOHandler.Destination := FDestination;
    end;
...

j'ai viré le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  EIdAlreadyConnected.IfTrue(Connected, RSAlreadyConnected);

et depuis tout va bien !