Discussion :

[bzh56]

Bonjour,
j'utilise D7 s/s XP pro...
j'essaie de transférér un fichier vers un serveur.
j'ai trouvé des exemples sur ce forum, mais je n'arrive pas à faire fonctionner mon p'titt progr.
En fait je ne reçois pas d'erreur, mais la connection se fait elle ?
Je joins le p'tit bout de code .
Si vs avez une idée, Merci de votre aide.
Cordialeent
Alain

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
 
--------------------
procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);
begin
  IdFTP1.Host := '213.2xx.x.4';
  IdFTP1.Passive:= true;
  IdFTP1.Username := 'Monnom';
  IdFTP1.Password := 'Monpwd';
  IdFTP1.Connect(true, 5000);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 try
      if IdFTP1.Connected
         then begin
              IdFTP1.Put('260200.pdf', 'httpdocs', true); // mon fichier
              IdFTP1.Disconnect;
              end;
   except;
      MessageDlg('ERREUR', mtInformation,[mbOk], 0);
 
      idftp1.Disconnect;
   end;
  application.Terminate;
end;
 
 
end.

[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[Rayek]

- 1er chose :

Pourquoi donnes tu les infos nécessaire après le login ?

Code :

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

1
2
 
procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);

After = après

- 2em chose :

Le plus simple pour tester si tu es connecté ou non :

Code :

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

1
2
3
4
5
6
7
 
if IdFTP1.Connected then 
begin
  IdFTP1.Put('260200.pdf', 'httpdocs', true); // mon fichier
  IdFTP1.Disconnect;
end else
  Showmessage('Pas connecté');

Sinon tu peux aussi utiliser le onWork du IdFTP pour te faire une barre de progression afin de connaitre l'état d'avancement de ton transfert.

[bzh56]

- 1er chose :

Pourquoi donnes tu les infos nécessaire après le login ?

Code :

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

1
2
 
procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);

After = après

- 2em chose :

Le plus simple pour tester si tu es connecté ou non :

Code :

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

1
2
3
4
5
6
7
 
if IdFTP1.Connected then 
begin
  IdFTP1.Put('260200.pdf', 'httpdocs', true); // mon fichier
  IdFTP1.Disconnect;
end else
  Showmessage('Pas connecté');

Sinon tu peux aussi utiliser le onWork du IdFTP pour te faire une barre de progression afin de connaitre l'état d'avancement de ton transfert.

Bonjour,
j'avais en + 2 erreurs dont le nom du fichier!
tout est OK
merci encore
Cordialement,
Alain :lol: