[Delphi XE2] Debug service windows

Soyez le premier à donner votre avis sur cette source.

Vue 2 772 fois - Téléchargée 877 fois


Description


Debug de service windows


Présentation

J'ai "adapté" cette source d'une autre existante publiée par Colin Wilson ( http://www.wilsonc.demon.co.uk/delphi.htm ).
L'unité qu'il propose permet de débuguer un service windows comme un exécutable (En cliquant sur le bouton "play"). L'énorme avantage par rapport à la solution qui consiste à attacher le débug à un processus existant, c'est qu'avec cette méthode, il est possible de mettre un point d'arrêt sur la procédure de démarrage du service.
Les adaptations sont principalement des cast de PChar en PAnsiChar, des changements d'appels à des unités de Delphi qui ne portaient plus le même nom, à des classes également renommées et à des méthodes dépréciées.
Il reste encore pas mal d'avertissements sur les transtypages et les utilisations de threads. Si quelqu'un veut s'y pencher pour le rendre un peu plus propre, ça serait sympa.

Contenu du zip

- DebugSrvXE2.groupproj : Ensemble des projets utilisés
- Le dossier Test : Contient un exemple d'utilisation

Utilisation

Sur un service, ouvrir le fichier DPR, ajouter unitDebugService dans les "uses" du programme. Insérer également juste au début du programme les lignes suivantes :
{$IFDEF DEBUG}
  FreeAndNil (Application);
  Application := TDebugServiceApplication.Create(nil);
{$ENDIF}

Mettez vous sur la configuration de debug, posez vos points d'arrêt et cliquez sur "play"...

Codes Sources

A voir également

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.