Posez votre question Signaler

Reception évenement dans une Application Console [Résolu]

Messages postés
22
Date d'inscription
mercredi 16 novembre 2005
Dernière intervention
19 février 2007
 - - Dernière réponse : cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Dernière intervention
9 janvier 2013
 - 5 févr. 2006 à 10:54
Delphi / Pascal Posez votre question Signaler
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 :


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
Afficher la suite 

Votre réponse

Répondre au sujet

2 réponses

Meilleure réponse
Signaler Commenter la réponse de anisb
Messages postés
22
Date d'inscription
mercredi 16 novembre 2005
Dernière intervention
19 février 2007
3
Merci
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;

Var
MyServer : TServer;

try
MyServer := TServer.Create(nil);
MyServer.Init();
MyServer.OnDebugEvent := TServerEventHandler.DoDebugEvent;
(...)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 113 internautes nous ont dit merci ce mois-ci

Commenter la réponse de anisb
Signaler Commenter la réponse de cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Dernière intervention
9 janvier 2013
 25
3
Merci
Pour une fois qu'il y avait une question intéressante, je suis passé à côté sans la voir

Le problème provient de la façon dont tu as déclaré la propriété OnDebugEvent.
Je suppose que tu l'as déclarée ainsi : 
property OnDebugEvent : TDebugEvent read FOnDebugEvent write FOnDebugEvent;

Et de la façon dont TDebugEvent est lui même déclaré et c'est là que la diférence va s'opérer. Tu as dû déclarer : 
<CODE>TDebugEvent =   Procedure (const ALogMsg: string) ofobject;
</CODE>

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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 113 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Delphiprog

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.