RSS订阅 | 匿名投稿
您的位置:网站首页 > 基础 > 正文

Delphi调试服务程序的两种方法

作者:admin 来源: 日期:2018/1/16 7:33:18 人气: 标签:

近日在做服务项目中总结了两种delphi service调试方法,供大家借鉴:

 

一、编译指令

 

这种方法原理就是让服务以普通程序的方式来运行。

首先处理项目文件的单元头(RUNASAPP即为编译指令的条件):

 

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后开始调试。

二、依附进程

这种方法的前提是服务能够跑起来(即install并启动成功)。
首先把服务安装并启动,然后在IDE的run菜单中点击”Attach to process…”:

然后点选服务进程即可:

接下来就可以设置断点并调试了。


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料