idftp et connection serveur

Version imprimable

27/07/2005, 11h56
jeromelef

idftp et connection serveur

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
27/07/2005, 12h09
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...
27/07/2005, 12h25
jeromelef

je fais simplement idftp1.disconnect.

la déconnexion doit se dérouler normalement car au niveau du serveur, je ne suis plus connecté
27/07/2005, 14h37
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:

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

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:

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:

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:

1
2
 
  EIdAlreadyConnected.IfTrue(Connected, RSAlreadyConnected);

et depuis tout va bien !