erreur dans le code client FTP

[invitea2c33247]

Salam

j'avais trouvé dans un site un code de client FTP, mais lorsque je l'exécute il m'indique une erreur, et je ne sais où se trouve ou comment resoudre

voici le code de la bouton connexion:

procedure TForm1.Button1Click(Sender: TObject);
begin 
IdFTP1.Host := Edit1.Text; 
IdFTP1.Port := SpinEdit1.Value;
IdFTP1.Username := Edit2.Text; 
IdFTP1.Password := Edit3.Text; 
IdFTP1.ReadTimeout:=SpinEdit2.Value; 
IdFTP1.Passive:=true;
try
   richedit1.lines.add('Connection en cours...');
   IdFTP1.Connect();
   except
   On E:Exception do  
 begin 
   richedit1.SelAttributes.Color:=clred; 
   richedit1.lines.add(E.message);
   exit;
   end; 
end;
Rafraichir1.onClick(Sender); 
end;

les lignes en rouge, je ne les comprends rien et je crois que l'erreur est dans elles
-----

[invite2d7144a7]

Bonjour,

C'est la gestion des exceptions façon Delphi. À toi de te trouver une doc.

[invitea2c33247]

Ah! oui
merci, mais quelle est le role?

À toi de te trouver une doc.

quoi?? que tu veux me dire??

[Jack]

Ah! oui
merci, mais quelle est le role?


quoi?? que tu veux me dire??

Il faut que tu regardes comment est gérée la gestion des exceptions dans Delphi. Donc 1er réflexe, se procurer la doc.

A+

[A voir en vidéo sur Futura]

[invitea2c33247]

Il faut que tu regardes comment est gérée la gestion des exceptions dans Delphi. Donc 1er réflexe, se procurer la doc.

A+

merci Jack pour la reponse,

je suis débutante en Delphi, mais c'est quoi la doc. ?

[polo974]

Bonjour jyda,
la doc, c'est le truc que personne ne lit (enfin pas tout de suite), alors que (si elle est bien écrite,) on y trouve les informations dont on a besoin: c'est la documentation (ici du logiciel Delphi).

Question: salam, ça se dit comment en français (forum francophone...).

[invitea2c33247]

Bonjour jyda,
la doc, c'est le truc que personne ne lit (enfin pas tout de suite), alors que (si elle est bien écrite,) on y trouve les informations dont on a besoin: c'est la documentation (ici du logiciel Delphi).

Merci beaucoup polo pour ta réponse

donc, on peut exprimer la doc. en message ??

Question: salam, ça se dit comment en français (forum francophone...).

je crois que tu sais que veut dire

[Jack]

Assez surréaliste comme discussion ...

En clair, pour le moment personne ne connaissant suffisamment delphi pour répondre à ta question ne s'est manifesté.
Nous te conseillons donc de recourir à une méthode ayant fait ses preuves au siècle dernier (celui où l'on devait se débrouiller sans internet): rechercher la documentation de Delphi, lire le chapitre consacré à la gestion des exceptions, l'assimiler et tenter d'en déduire si le code que tu nous proposes est correct ou non.

A+

[invite2d7144a7]

Bonjour,

Et si tu es débutante en Delphi, prendre un code quelque part, et vouloir l'utiliser sans avoir apprit ni les bases du langage utilisé (Pascal), ni la bibliothèque GUI utilisée (VCL, de Delphi) s'appelle "Aller droit dans le mur, en accélérant à chaque seconde".

[invite2d7144a7]

Bonjour,

En clair, pour le moment personne ne connaissant suffisamment delphi pour répondre à ta question ne s'est manifesté.

Le code montré ne permet aucune conclusion, même pas un début d'étude, sinon qu'il est syntaxiquement correct.

Et quand je vois ce genre de chose

procedure TForm1.Button1Click(Sender: TObject);

je conclus que l'auteur programme avec les pieds.
(Car ça signifie que le bouton utilisé pour connecter s'appelle "Button1", ce qui est très parlant dans le code, n'est-ce pas ?)

[inviteccac9361]

En delphi, la doc c'est tres simple,

tu tapes except ou exception ou try , tu le met en surbrillance comme si tu voulais selectioner ce que tu as tapé, et tu appuis sur F1 pour l'aide.

Ensuite pour le code,
j'aurais mis le richedit1.lines.add('Connectio n en cours...');
avant le try, à moins que tu veuilles intercepter les erreur en provenance de richedit1 aussi...

[Jack]

c'est peut être parce que connexion prends un X

A+

[inviteccac9361]

Come le dit whoami, le code me semble correct à part ça.
Je ne sais pas ou ton composant FTP se connecte.

Sur windows, il faut ajouter le port dans les exceptions du firewall.
C'est peut-être lui qui bloque.
Que d'exceptions

[inviteccac9361]

Ah si, je vois quelque-chose qui pourrait gener à l'execution.
Ton composant FTP doit posseder un gestionnaire d'exception je pense. C'est un composant fourni en standard sur ta version de Delphi ou autre ?

Ce qui nous aiderais, ce serait de connaitre le message d'erreur qui s'affiche, tu pourais nous le montrer ?

[invitea2c33247]

merci pour vos aides, réponses et conseils.

pardon, il m'affiche une exception lorsque je n'avais lancé le pgm serveur.

et lorsque je le lance il m'affiche msg d'erreur

les figures dans les pièces jointes les représentent

[inviteccac9361]

Ton code semble fonctionner.
Le message d'exception t'indique simplement que ta connection n'a pas l'Autorisation pour se connecter.

Quelquel-chose à voir avec ton Username et ton Motdepasse
Attention aux majuscules, minuscules et la declaration de l'utilisateur du coté serveur.

[invitea2c33247]

merci Xoxopixo

je vérifie que le nom d'utilisateur et mot de passe ajoutant dans le serveur
et je lance le serveur , a coté client je mets le host 127.0.0.1 et bien sur le nom d'utilisateur et le motde passe et faire connexion il affiche la 3ième figue

je ne sais pas pourquoi??

[inviteccac9361]

Bonjour,

merci Xoxopixo
je vérifie que le nom d'utilisateur et mot de passe ajoutant dans le serveur
et je lance le serveur , a coté client je mets le host 127.0.0.1 et bien sur le nom d'utilisateur et le motde passe et faire connexion il affiche la 3ième figue
je ne sais pas pourquoi??

Je pense que c'est normal, c'est que tout fonctionne.
Tu as utilisé la syntaxe
On E:Exception do
Donc a chaque fois que la connection se ferme, le message EDisconnect ou qqchose comme ça declenche une exception


Tu devrais plutot gerer les Exceptions dans le style :

try
 ...
except
  on EZeroDivide do GereDivisionParZero;
  on EOverflow do GereDebordement;
  on EMathError do GereErreurMath;
  on EIdConnectException di GereIdConnectException
  on EConnectError do GereErreurConnection 
else
  GereLesAutres;
end;

A toi de voir quel Exxxxxx tu dois utiliser et ceux dont tu n'as pas besoin.

Sinon, en general, les composants ont leur gestionnaire d'evenement
onConnect
onDisconnect
etc.
C'est peut-être plus propre de gerer avec les evenements.

[invitea2c33247]

désolée pour le retard,

le code ce n'est pas moi qui l'écrire, j'avais le téléchargé( deux applications clientftp et serveurftp),

et j'avais remarqué un chose est lorsque lancer ce serveur avec autre application ftpclient ou ce client avec d'autre application ftpserveur ça marche normal, mais si je l'exécute ces deux applications il m'affiche msg d'erreur

donc, je crois qu'il n'y a pas une erreur dans le corps du code mais je ne sais pas où se trouve !!!!!!