Indy IdFTP Upload

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

Bonsoir,

Code:

---

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.

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.

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

Citation:

---

Envoyé par 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.

---

Quelle est ta propriété idFTP.host ?

bonjour,

Citation:

---

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?

Bon voilà mon code de connection au FTP :

Code:

---

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:

---

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?

8O 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.

Je crois que c'est

Code:

---

1 2 3 4 5 6

try //code Except //code end;

---

Citation:

---

Envoyé par djshaker

Bon voilà mon code de connection au FTP :

Code:

---

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:

---

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 :wink:

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

Merci à vous

:wink: