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

最新推荐文章于 2016-09-28 10:07:33 发布

youxiazzz12

最新推荐文章于 2016-09-28 10:07:33 发布

阅读量3k

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

18 篇文章 0 订阅

订阅专栏

近日在做服务项目中总结了两种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 
        }