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

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

       

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”包含了调试服务的第三种途径，其中涉及到修改注册表设置，您能够参考。