Discussion :

[dx33000]

Bonjour,

Voici mon soucis:

J'utilise IdFTP pour me connecter a un serveur ftp afin de pouvoir télécharger 1 fichier format csv dans un premier temps puis 4 par la suite pour la mise a jour d'une base de données mysql en local.

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
27
28
29
30
procedure TForm3.Button3Click(Sender: TObject);
begin
      if not (IdFTP1.Connected) then Connection;
      if IdFTP1.Connected then
   begin
   with IdFTP1 do
  try
  try
 
        IdFTP1.Get('Clients.csv','clients.csv',true);
     except
         On E : Exception do
           ShowMessage(Format('Erreur durant le téléchargement : %s',[E.message]));
         On E : Exception do
           ShowMessage(Format('Erreur inconnue : %s',[E.Message]));
     end;
  finally
  end;
  end;
end;
 
 
procedure TForm3.Connection;
begin
  try
    IdFTP1.Connect();
    except
    On E:Exception do Label1.Caption:=(E.message);
  end;
end;

La taille du fichier téléchargé reste à 0 et un message de timeout "socket error # 10060

Merci d'avance pour votre aide
Cordialement
dx33000

[ShaiLeTroll]

Dans ta connexion, je suppose que tu as spécifié un login et mot de passe, ton serveur FTP te redirige automatiquement sur le bon répertoire ou est-ce que tu fais explicitement un ChangeDir ?
Je n'ai pas utilisé le IdFTP mais le vieux TNMFTP ou des composants SFTP chez SecureBlackBox), je n'ai eu de souvenir de TimeOut sur un Serveur FTP (qui était soit en Unix, Linux ou AS400, je n'ai jamais testé un serveur FTP Windows)

Ton code est très étrange, finally qui ne sert à rien, deux fois Exception dans le Except, ne sert à rien n'ont plus !

Code :

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

1
2
3
4
5
6
7
WSAETIMEDOUT
 
(10060)
 
Connection timed out. 
 
A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond.

[Rayek]

Est ce que le serveur ne serait il pas en mode passif et donc faut rajouter

Code :

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

1
2
 
IdFTP.Passive := True;