Comment déboguer un service windows avec Delphi?

Il est en fait assez facile. Suffit d'utiliser la norme de DÉBOGAGE directive du compilateur pour démarrer le service, comme une application console au lieu de un service.

program MyServiceApp;

{$ifdef DEBUG}
  {$APPTYPE CONSOLE}
{$endif}

uses
  System.SysUtils,

[..]

begin
  {$ifdef DEBUG}
  try
    // In debug mode the server acts as a console application.
    WriteLn('MyServiceApp DEBUG mode. Press enter to exit.');

    // Create the TService descendant manually.
    ServerContainer1 := TServerContainer.Create(nil);

    // Simulate service start.
    ServerContainer1.ServiceStart(ServerContainer1, MyDummyBoolean);

    // Keep the console box running (ServerContainer1 code runs in the background)
    ReadLn;

    // On exit, destroy the service object.
    FreeAndNil(ServerContainer1);
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      WriteLn('Press enter to exit.');
      ReadLn;
    end;
  end;
  {$else}
  // Run as a true windows service (release).
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TServerContainer, ServerContainer1);
  Application.Run;
  {$endif}
end.

Oui, il y a:
Débogage de services: une façon simple

- Vous créer des services avec Delphi?
Alors peut-être vous êtes aussi gêné à la
temps moyen de commencer,
en redémarrant, tuant et en y joignant
le processus de service de l'application à chaque
temps. Eh bien, il existe un recours.

Vous n'avez pas besoin de le faire. Au lieu d'exécuter
Delphi comme un SYSTÈME de demande et de faire
quelques petites adaptations pour le service
code.

Oui, il est.

Dans votre dpr:

Application.CreateForm(TMyService, MyService);

_ServiceInDebugMode := SysUtils.FindCmdLineSwitch('DEBUG', True);
if _ServiceInDebugMode then
  DebugService(MyService)
else
  SvcMgr.Application.Run;

DebugService est une procédure qui crée un debug forme, un service de contrôle de fil et coups de pied tout en appelant les Formes.Application.Exécutez.

Vous pouvez comparer le service de contrôle de fil avec Windows " SCM (Service Control Manager), le débogage de forme avec une application qui parle à la SCM (tels que les services.msc) pour démarrer et arrêter les services. Le service doit aussi avoir son propre thread (thread de service) pour répondre à des codes de commande en provenance de la SCM ou par notre service de contrôle de fil et un ou beaucoup plus de threads séparés pour faire son travail réel. Vous voulez des threads séparés pour le travail réel (au lieu de codage dans les gestionnaires d'événements de votre TService descendant), de sorte que le thread dans lequel le TService dirige lui-même est toujours libre de répondre à des codes de contrôle de la SCM et vous pouvez toujours arrêter et démarrer le service, même quand par hasard/le thread de travail est gelé.

Cette approche permet de déboguer l'application de service de code en tant que bien, mais implique une grande quantité de code et de placer un couple de crochets dans les fonctions de l'api windows pour fonctionner correctement. Trop de choses à montrer ici, à court préavis. Peut-être que je vais l'écrire dans un article à jour.

Dans le temps de le dire, si vous ne voulez pas de code vous-même, vous avez deux options. Soit aller avec une bibliothèque comme SVCOM ou celle mentionnée par Mick qui faisons tout pour vous, ou en mode débogage by-passer le code de service, tous ensemble, et "tout simplement" démarrer le service "normale", les formulaires de demande. Vous aurez à démêler le réel de la fonctionnalité de votre service auprès de votre TService descendant du code/les gestionnaires d'événements, mais c'est quelque chose que je vous recommande tout de même, pour les raisons mentionnées ci-dessus.