Discussion :

[Crafton]

Bonjour,

Je travaille avec Delphi et Indy 9.

J'essaie de faire un petit programme me permettant de récupérer une arborescence via ftp sur 3/4 serveur FTP.

lorsque je crée mes différents client FTP : TidFTP
je leur associe certain événement : OnWorkBegin, OnWork, OnWorkEnd
(trois unique fonction)
Pour éviter de réécrire une fonction de traitement pour chaque client j'aimerais savoir quel composant lève l’événement pour cela j'utilise le classique 'sender'

Mon soucis c'est que le sender.name est vide je ne sais donc pas a qui j'ai affaire.
Quand j'affiche le sender.classname j'ai un TIdTCPClient au lieu d'un TidFTP
j'ai essayé de creusé du coté du sender.owner.name mais le .owner est vide aussi.
Pour le moment le seul moyen que j'ai trouvé c'est d'utiliser le sender.host qui lui contient l'ip du bon client mais c'est un peu "sale"

exemple :
procedure TForm1.IdFTP01WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
showmessage(TIdTCPClient(sender).name); // Vide
end;

Merci d'avance pour vos éclaircissements.

[Crafton]

Après Essai avec
Delphi XE + Indy 10.x ... cela fonctionne bien .

Donc ne vous creuser pas la tête, meme si j'aurais bien voulu savoir comment le faire avec D7