delphi服务程序(service)的调试方法

方法一：

1.调试delphi 写的服务程序，有这么一个办法。原来每次都是用attach to process方法，很麻烦。并且按照服务线程的执行线路，可能会停不到想要的断点。笨办法是，在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个人定胜天的sleep(20000)，但实际上这种办法是主观臆测的。可行，没问题。记得大学时，俺一同学，也会修电视，他的办法是弄个小锤子，四处敲击，没两下就好了，和我用万用表的方法不一样，万用表他根本不会用。而且产生的效益比我的要乐观。毕业了，他回家开个网吧，也算是做IT，而我成了一位对编程颇有研究的IT业余人士，结果他收入还是比我高。日，下辈子，老子扛大炮去修劳力士去。回忆回忆过去，展望展望未来，无限感慨。上面的方法是可以的，如同锤子，仔细了解下服务程序的执行过程，你会发现，用下面的方法，就可以把服务程序当普通程序调试了。

program svcProxy;

uses
  SvcMgr,
  scvmain in ’scvmain.pas’ {svcFrm: TService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TsvcFrm, svcFrm);
  svcFrm.ServiceExecute(nil);
  //Application.Run;
end.

如上修改dpr文件，就可以直接在serviceexecute过程中下断了，what a good idea. OK ,debug delphi services directly.

调试好了，修改回去，就行了，调试delphi服务程序就简单和多了。再也不用去附加到进程这种方法了。

方法二：

第二种测试服务程序的途径是：安装并运行服务程序，然后将其附加到Delphi 中的运行进程。按照下列步骤，即可在运行服务时调试ServiceApp.exe 程序。

1. 在命令行运行Serviceapp.exe /INSTALL，安装服务程序。

2. 选择Start | Settings | Control Panel | Administrative Tools | Services，将运行Services 小应用程序。找到MyService，然后单击Start Service 工具栏按钮（这些步骤适用于Windows 2000；在Windows NT4.0 中的步骤几乎相同）。

3. 运行Delphi。

4. 装载ServiceApp.dpr 工程。

5. 在Delphi 中选择Run | Attach to Process 菜单项。

6. 在Attach to Process 对话框（如下图所示）中，选中Show System Processes 复选框。

 


7. 找到ServiceApp.exe，然后单击Attach 按钮。

8. 在Delphi 中，对工程源文件的OnExecute 事件方法设置断点，然后按键F9。

图B.3 Attach to Process 对话框可用于将Delphi 调试器附加到已运行的进程上；这对于调试服务程序是很有用的

 Delphi 将把调试器附加到运行的服务程序上，并打开CPU 对话框。除非您阅读汇编语言非常流畅，否则CPU 视图用处不大。但当服务程序运行到断点时，将停止在断点上并切换到Delphi 代码视图。在用户通过Delphi 获取对已运行服务的控制之后，即可像其他程序一样对服务进行步进和调试。

 注意：作为开发者，您应该对自己的PC 具有管理员权限。

Delphi 帮助文档提到，如果权限不足，那么附加到服务进程可能会失败。当只要对PC 拥有管理员权限，附加到运行的服务进程总是工作正常。帮助主题“Debugging Services”包含了调试服务的第三种途径，其中涉及到修改注册表设置，您可以参考。