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 :
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 :
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é
Type
TServerEventHandler = class
public
class Procedure DoDebugEvent (const ALogMsg :string);
end;
class Procedure TServerEventHandler.DoDebugEvent (const ALogMsg :string);
Begin
Writeln(ALogMsg);
End;
Et c'est le "Of Object", indiquant une méthode d'objet qui fait que tu ne peux pas affecter une procédure "ordinaire".
En déclarant :
TDebugEvent = Procedure(const ALogMsg: string);
C'est à dire sans le "Of Object", tu pouvais affecter ta procédure DoDebugEvent normalement sans avoir besoin d'instancier un objet annexe ou d'utiliser une méthode de classe.
Récapitulons avec le code minimaliste et simplifié ci-après :
program anisb;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TDebugEvent = Procedure (const ALogMsg: string); //suppression de "Of Object"
TServer = class
private
FOnDebugEvent: TDebugEvent;
public
procedure Init();
property OnDebugEvent : TDebugEvent read FOnDebugEvent write FOnDebugEvent;
end;
{ TMyServer }
procedure TServer.Init();
begin
//...
end;
procedure DoDebugEvent(const ALogMsg: string);
begin
WriteLn(ALogMsg);
end;
var
MyServer: TServer;
begin
MyServer := TServer.Create;
MyServer.Init;
MyServer.OnDebugEvent := DoDebugEvent;
//... reste du code
MyServer.Free;
end .
C'est dommage que tu n'aies pas trouvé la réponse sur ce forum car j'ai déjà fait ce genre de réponse. Mais bon, je te l'accorde, ce n'était pas facile de retrouver parmi les centaines de milliers de posts.
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
