Discussion :

[SergioMaster]

Bonjour,

c'est la première fois que je rencontre ce problème et ne sais de quoi il retourne

Voici ma routine d'envoi, la connexion se passe bien par contre le put ne se fait pas c'est pourtant un petit fichier de quelques ko

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
21
22
23
24
25
26
procedure TDatas.ftpSend(Boutique, Source, destination: String);
var idftp : TIdFtp;
begin
with TFDQuery.Create(Self) do
 begin
   Connection:=ConnexionBase;
   SQL.Text:='SELECT FTP_ADDRESS, FTP_USER, FTP_PASS FROM MAGASINS_PRESTASHOP WHERE ADDRESS CONTAINING :P';
   ParamByName('P').AsString:=Boutique;
   Open;
   IdFTP := TIdFTP.create(nil);
    try
       IdFTP.Host :=DeCryptString(FieldByName('FTP_ADDRESS').asString,GUIDPresta+InfosAuteur[0]);
       idftp.Port:=21;
       IdFTP.Username :=DeCryptString(FieldByName('FTP_USER').asString,GUIDPresta+InfosAuteur[0]);
       IdFTP.Password := DeCryptString(FieldByName('FTP_PASS').asString,GUIDPresta+InfosAuteur[0]);
       IdFTP.Connect; // OK
       if verbose AND idftp.Connected then  Writeln('Connecté , envoi de '+Source+' vers '+destination); // OK
       IdFTP.put(Source,Destination); // timeout
    finally
      idftp.Disconnect;
      IdFTP.Free;
    end;
    Close;
 end;
end;

1- Est-ce que je peux tracer un peu plus le problème ? Je pense que oui même si je ne m'y suis pas encore penché.
2- Serait-ce un problème de fichier source non fermé (il est généré par un fdbatchmove) ? [Edit]un test sur un fichier déjà créé me retourne la même erreur
L'ajout de idftp.NATKeepAlive.UseKeepAlive:=True; ne change rien
3- autres pistes ?

[ShaiLeTroll]

Passive à True ou False ?
Lance FileZilla et regarde ce qu'il choisi entre PASV (Passive Mode) à la place de EPSV (Extended Passive Mode)
Lorsque j'implémentais un TIdFTPServer, j'avais ce genre de problème en local host, en mettant Passive à True, plus de soucis de connexion ou perte de connexion

[Paul TOTH]

en FTP il y a toujours 2 connexions, sur le port 21 on envoie des commandes et sur un port aléatoire il y a échange des fichiers, le mode passif/actif indique qui est serveur sur cette deuxième connexion.

du coup un firewall entre les deux peut autoriser le port 21 mais bloquer la deuxième connexion, souvent pour le mode actif car le client n'est pas accessible en tant que serveur, parfois le mode passif est lui aussi bloqué si le firewall bloque les ports aléatoires sans tenir compte des requêtes FTP (analyse intelligente de protocole)

[SergioMaster]

Passive à True ou False ?

Bien vu, je n'avais pas fait attention que c'était false par défaut (voilà ce que c'est que de passer d'un composant posé à un composant créé au runtime )

D'autres propriétés par défaut auxquelles je devrait faire attention ?

En tout cas vous deux (solution et explication) . Depuis ce matin je cherchais vainement où était ce problème simple !