Gestion evenement en interneRésolu

Question

Boujour à tous,

   Je suis en train développer un composant dérivé de TServerSocket et je souhaiterais gérer certains évènements en interne (OnClientRead par exemple). Pour les composants créer en interne je n'ai pas de problèmes à gérer les évènements. Pour un Timer
je sais qu'il faut faire:

MonTimer.OnTimer:=MonTimerTimer

procedure MonComposant.MonTimerTimer(sender)
begin
...
end;

j'ai essayé la même demarche pour gérer le OnClientRead de mon composant à savoir:

MonComposant.Create()
begin
   ...
   OnClientRead:=MonComposantClientRead;
   ...
end;

procedure MonComposant.MonComposantClientRead(sender)
begin
...
end;

mais ca ne fonctionne pas, Quelle est donc la méthode pour pouvoir le faire ?
Merci de vos réponses.

cs_speedy_gonzales · Accepted Answer

C'est moi

Je me répond à moi même (pour une fois que j'ai une réponse)

En fait il y a pas de problème ça marche comme ca, je me suis un peu précipité à posé la question...

Le pire c'esr que je sais pas ce que j'avais mal fait la première fois....c'est con

Voilà quoi....

cs_speedy_gonzales · Answer

Je viens de me rendre compte que non ca ne mache pas si facilement que ca, Le Client ne passe pas dans 
les evenements OnLookup, OnConnecting, OnRead  que je déclare de la facon décrite dans mon premier message.

Si vous avez donc une solution

cs_speedy_gonzales · Answer

Je suis un boulet, j'avais pas appelé la fonction qui me fesait les :
 
OnClientRead:=MonComposantClientRead;
......

Donc c'est sur ca risquait pas de marcher
Je trouvais bizard aussi que le serveur marchais et pas le client.......

florenth · Answer

Salut !

Il faut que ta procédure MonComposantClientRead ait les mêmes paramètres que la procédure appelée par l'évènement. Regarde dans l'aide pour savoir quels paramètres il faut mettre.

A+
Flo

Gestion evenement en interne

4 réponses

Votre réponse

Discussions similaires