DELPHI调试WINDOWS服务的一点心得(转)

DELPHI调试WINDOWS服务的一点心得(转)

Delphi可以很轻松地开发windows服务，可是调试的时候，确有问题。服务能跑起来，可以把把调试器附加到服务的进程上。如果服务起不来呢？该如何调试呢？

如果直接按F9，则服务只是被创建，还没有起动，就会自已退出去了。

我想到的办法就是让服务以普通程序的方式来运行。

为了使用同一份代码，所以我彩用条件编译的方式来实现，在工程的DPR文件里面加上条件：

DELPHI的VCL可以说是一个很精妙的设计。对于一个普通程序来说，它初始化出来的Application是TApplication,而服务的Application是TServiceApplication，所以在想让服务以应用程序的方式来运行的话，一定得处理单元头：

uses
  {$IFDEF RUNASAPP}
  Forms,
  {$ELSE}
  SvcMgr,
  {$ENDIF}

在这里，我的条件是RUNASAPP，在调试的时候，我就加上这个条件来编译，在正常发布的时候就把这个条件去掉。

由于要调用服务的ServiceStart方法，所以得定义一个变量：

{$IFDEF RUNASAPP}
var
  b: Boolean;
{$ENDIF} 

同时，原来的应用程序代码也要改成：

Application.Initialize;
Application.CreateForm(TMyservice, MyService);
{$IFDEF RUNASAPP}
MyService.ServiceStart(nil, b);
{$ENDIF}
Application.Run;
{$IFDEF RUNASAPP}
Readln;
{$ENDIF}

加Readln的目标是不让ServiceStart完成后，就退出程序。

这下，服务也可以和应用程序一样的，按F9后开始调试。