Problème avec l'utilisation de LogMessage

**vanquish** · 16/11/2005, 10h58

Bonjour,

Je suis en train d'écrire un Service windows.
Je génère des message dans les journaux système Windows à l'aide de la fonction LogMessage

Je fais des trucs du style :

Code :

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

LogMessage('Mon message', EVENTLOG_ERROR_TYPE );

Le problème est que dans le journal Windows, dans la boite de propriété du message (pour avoir le message complet) ajoute tout un tas d'informations comme quoi il n'a pas tous les éléments en main

Du type :

Code :

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

1
2
 
La description pour l'ID d'événement ( 0 ) dans la source (MonProgramme) est introuvable. L'ordinateur local n'a peut-être pas les informations de Registre ou les librairies requises pour afficher les messages émanant d'un ordinateur distant. Vous pourrez peut-être utiliser l'option /AUXSOURCE= pour récupérer cette description. Reportez-vous aux rubriques Aide et support pour plus de détails. Les informations suivantes font partie de l'événement : [b]Mon Message[/b]

J'en déduis qu'il faudrait probablement que je me servent des paramètres optionnels de LogMessage. Mais je ne comprend pas réellement comment ils fonctionnent.

Existe-il un moyen simple pour que Windows ne génère pas tout ce charabiat ?

Merci d'avance

Cordialement
Vanquish

**Laurent Dardenne** · 16/11/2005, 12h34

Salut,
as-tu regardé ici
http://objecteverywhere.chez-alice.fr/MessagesEventLog.htm

**NoisetteProd** · 17/11/2005, 00h17

Salut !!

Pour utiliser LogMessage de TService sans tout le charabiat autour, il faut qu'une table des messages soit disponible dans un fichier, et que windows sache ou se trouve ce fichier. Le plus simple est d'inclure cette table des messages dans l'exe du service. Voici comment faire :

Tout d'abord, il faut que tu créé une table des messages dans un fichier ressource. Pour cela, tu peux télécharger cet éditeur de resource qui prend en charge les ressources de type message : http://www.wilsonc.demon.co.uk/d9resourceeditor.htm
(Faire Ressource | Add Ressources | Message Table, puis en face de chaque ID indiquer le message, et enfin, enregistrer le .res)

Une fois cela effectué, tu ajoute dans ton code l'inclusion de ton fichier ressource dans ton exe grâce au code suivant :

Code :

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

{$R MessageTable.res}

dans le cas ou ton fichier ressource s'appel MessageTable.res.

Il faut déclarer auprès de windows le fichier qui contient la MessageTable (en l'occurence ton .exe). Pour ce faire, j'applique ce code dans l'événement ServiceAfterInstall

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TMonService.ServiceAfterInstall(Sender : TService);
var
  Registre : TRegistry;
begin
  Registre := TRegistry.Create;
  Registre.RootKey := HKEY_LOCAL_MACHINE;
  Registre.OpenKey('System\CurrentControlSet\Services\EventLog\Application\' + MonService.DisplayName, True);
  Registre.WriteString('EventMessageFile', ParamStr(0));
  Registre.WriteInteger('TypeSupported', 3);//Nombre de message incluts dans la MessageTable
  Registre.Free;
  //Log('Service installé !');
end;

Ensuite, pour inscrire ton evenement dans le journal d'application de windows, il faut que tu appel LogMessage de cette manière :

Code :

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

LogMessage('Indique ici ton message', 1, 0, 3);

ou 3 est le numéro de message dans la table des messages. Le texte du message que tu passe à la fonction LogMessage n'est donné qu'au cas ou la table des messages n'est plus disponible, par defaut, c'est le message de la table des messages qui est utilisé (qui correspont à ID d'entrée). Pour les autres valeurs, F1 va mieux t'aider que moi !

enfin penser à désinscrire ton exe lors de la désinstallation :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMonService.ServiceAfterUninstall(Sender : TService);
var
  Registre : TRegistry;
begin
  Registre := TRegistry.Create;
  Registre.RootKey := HKEY_LOCAL_MACHINE;
  Registre.DeleteKey('System\CurrentControlSet\Services\EventLog\Application\' + MonService.DisplayName);
  Registre.Free;
  //Log('Service désinstallé !');
end;