Discussion :

[anisb]

Bonjour,
Je voudrais créer une application console qui utilise une classe que j'ai developpé et qui utilise des evenements (OnLogEvent et OnLogError) pour afficher des messages de Debug. je voudrais savoir comment connecter ces evenements là vers la sortie standard de la console en question.
J'ai essayé de rajouter la déclaration d'une fonction DoDebugEvent avant le Begin du programme principale :

Code :

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

1
2
3
4
Procedure DoDebugEvent (const ALogMsg :string);
Begin
  Writeln(ALogMsg);
End;

j'essaye parès d'assigner cette fonction aux evenements de Log et d'Error de cette façon :

Code :

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

1
2
MyServer.OnDebugEvent := DoDebugEvent;
MyServer.OnErrorEvent := DoDebugEvent;

Et voici le code erreur qu'il me sort:

[Erreur] ServerConsole.dpr(21): Types incompatibles : 'pointeur de méthode et procédure normale'

QQ1 saurait il comment je pourrais faire ?
Merci à Vous

[anisb]

Aucune Idée ??

[anisb]

Bon ben merci à vous les gars mais j'ai trouvé une solution tout seul sur le net (c'etait fastidieux pour trouver des trucs la dessus) : voici la méthode :
En fait on declare une classe qui va traiter les evenements avec autant de procedure que d'evenements à écouter après on assigne ces méthodes là aux proprietés evenements du composant utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Type
  TServerEventHandler = class
    public
      class Procedure DoDebugEvent (const ALogMsg :string);
    end;
 
class Procedure TServerEventHandler.DoDebugEvent (const ALogMsg :string);
Begin
  Writeln(ALogMsg);
End;
 
Var
  MyServer : TServer;
 
  try
    MyServer := TServer.Create(nil);
    MyServer.Init();
    MyServer.OnDebugEvent := TServerEventHandler.DoDebugEvent;
(...)

[Laurent Dardenne]

Bon ben merci à vous les gars

De rien 8)

mais j'ai trouvé une solution tout seul sur le net

Comme quoi !

Sinon une autre approche un peu moins classe...