Discussion :

[SergioMaster]

Bonjour
Tout est dans le titre . Je part à la découverte de INDY et je me demandais s'il était possible de récupérer dans un mémo par exemple le message de bienvenue au moment de la connexion ?

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Connect();
  // ici afficher le message de bienvenue 
  // memo1.lines:= ?
  idFTP1.Disconnect();
end;

[BuzzLeclaire]

Salut Serge,

J'ai fais une petit recherche et apparament c'est l'evenement :

TIdFTP.OnBannerAfterLogin Event

qui recoit cette info est reçu dans la propriété : LoginMsg

plus particulièrement un truc du genre

idftp1.LoginMsg.GenerateReply; Pour D2007,

Pour D2009, j'ai trouvé cela : LoginMsg.Text.Strings[0];

Ensuite je pense que tu peux faire appel à cela a chauq efois que tu fais quelquechose (changement rep, ajout, modif, etc...);

Info pour Indy

Voilà déjà une piste.

[BuzzLeclaire]

Re,

Me suis trompé, le message d'accueil c'est

Greeting.Text.Strings[0]; [D2009]

l'autre c'est le message pour le login... mdr..



[Edit]
greeting.text c'est un TString alors tu peux faire tout ce que tu veux.
J'ai cela aussi :

Code :

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

1
2
3
4
5
6
7
{$IFDEF INDY100}
    Logger.Info(IdFTP.Greeting.Code + ' ' + Trim(IdFTP.Greeting.Text.Text));
    Logger.Info(IdFTP.LoginMsg.Code + ' ' + Trim(IdFTP.LoginMsg.Text.Text));
{$ELSE}
    Logger.Info(IdFTP.Greeting.TextCode + ' ' + Trim(IdFTP.Greeting.Text.Text));
    Logger.Info(IdFTP.LoginMsg.TextCode + ' ' + Trim(IdFTP.LoginMsg.Text.Text));
{$ENDIF}

[SergioMaster]

Yes
je cherchais bien dans le bon doc mais pas le bon mot ? je faisais une fixette sur welcome comment aurais-je pu pensé a greetings je suis passé sur cette propriété sans la voir

L'horizon se dégage

Code :

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

1
2
3
4
5
6
 
procedure TForm1.IdFTP1BannerAfterLogin(ASender: TObject; const AMsg: String);
begin
  Memo1.Clear;
  Memo1.Lines:=(idftp1.Greeting.Text);
end;

PS . Marche aussi bien sous Delphi que avec Lazarus ,excepté le bouquin d'Atozed Software y a t-il d'autres tutorials sur toutes les fonctionnalités d'INDY , parce que là, j'effleure seulement (utilisation de 3 compos) et je me dis qu'il doit y avoir d'autres possibilités très intéressantes