[Delphi XE2] Debug service windows


Télécharger le projet
Commenter

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"...
Télécharger le projet

Codes Sources

A voir également

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.

Du même auteur (sp40)