Discussion :

[djshaker]

Bonjour,

Je suis débutant en delphi.

J'aimerai savoir comment on peut fair pour uploader un fichier avec le composant IDftp car j'ai cherché sur le web et je n'ai trouvé que des solutions pour télécharger mais pas uploader.


Merci d'avance

[Noel Sybille]

Bonsoir,

Code :

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

1
2
3
4
5
 
IdFTP.connect;
...
IdFTP.Put(SourceFile,DestFile,Append);
...

SourceFile et DestFile sont des strings et Append est un booléen.

Le reste se trouve dans l'aide (F1)

Sybille.

[djshaker]

Hello Sybille ta technique marche cependant mon serveur me renvoi un e erreur me disant de ma connecter avec de bon identifiants ce que je fais pourtant...

As tu une idée d'ou cela peut venir.

Merci.

[Nono40]

Fait voir ton code... et quelle est l'erreur exacte ?

[Sékiltoyai]

Hello Sybille ta technique marche cependant mon serveur me renvoi un e erreur me disant de ma connecter avec de bon identifiants ce que je fais pourtant...

As tu une idée d'ou cela peut venir.

Merci.

Quelle est ta propriété idFTP.host ?

[cfalcot]

bonjour,

un e erreur me disant de ma connecter avec de bon identifiants

Ne serais-ce point un problème de droit d'accès au repertoire?

[djshaker]

Bon voilà mon code de connection au FTP :

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
 
 
if (idftp1.Connected) then
  begin
  idftp1.Disconnect;
  Showmessage('Le port FTP est déjà ouvert');
  end
  else
  try
idftp1.Passive:=true;
idftp1.Host:=serveur.Text;
idftp1.Username:=login.Text;
idftp1.Password:=mdp.Text;
idftp1.Connect;
   finally
  end;

Et le code pour uploader :

Code :

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

1
2
 
idFTP1.Put('cam.jpg','cam.jpg',true);

Normalement j'ai tous les droits d'accés sur mon FTP.

Par contre j'ai rajouté le idftp1.Passive:=true; aprés avoir essayé sans mais j'ai le même probléme.

Ce ne serais pas une histoire de serveur Unix ou windows?

[djshaker]

La ou hier j'avais un probléme, je n'en ait plus...

j'arrive a uploader...

Comment puis je récupérer les erreurs de Idftp pour les afficher dans un memo par exemple mais que ca ne plante pas le logiciel?

Je croyait qu'en faisant des try finally ca empécher de planté aparement non...

Merci de vos réponses.

[cfalcot]

Je crois que c'est

Code :

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

1
2
3
4
5
6
 
try
//code
Except
//code
end;

[Sékiltoyai]

Bon voilà mon code de connection au FTP :

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
 
 
if (idftp1.Connected) then
  begin
  idftp1.Disconnect;
  Showmessage('Le port FTP est déjà ouvert');
  end
  else
  try
idftp1.Passive:=true;
idftp1.Host:=serveur.Text;
idftp1.Username:=login.Text;
idftp1.Password:=mdp.Text;
idftp1.Connect;
   finally
  end;

Et le code pour uploader :

Code :

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

1
2
 
idFTP1.Put('cam.jpg','cam.jpg',true);

Normalement j'ai tous les droits d'accés sur mon FTP.

Par contre j'ai rajouté le idftp1.Passive:=true; aprés avoir essayé sans mais j'ai le même probléme.

Ce ne serais pas une histoire de serveur Unix ou windows?

Quelle est la valeur que toi tu entres dans le champ "serveur" pour te loguer au ftp parce qu'il ne faut pas qu'il y ai 'ftp://' dedans

[djshaker]

Aparement tout marche je referez certainement appel a la communauté une fois que j'aurais un peu avancé.

Merci à vous