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