运行Delphi7,选择菜单File-->New-->Other--->Service Application.将生成个服务框架.将工程保存为
ServiceDemo.dpr和Unit_Main.pas,然后回到主框架.我们注意到,Service有几个属性.其中以下几个是我们比较
常用:
(1)DisplayName:服务显示名称 //通常中文
(2)Name:服务名称.
安装与卸载
创建一个bin文件,里面如下文件
1、install.bat为安装文件内容:
@ECHO OFF
DBMService.exe -install
@ECHO ON
点击文件,即安装。
右击“计算机”-“管理‘-”服务和应用程序“-”服务“,找到该服务。
启动服务。
2、uninstall.bat为卸载文件内容:
@ECHO OFF
net stop DBMService
DBMService.exe -uninstall
@ECHO ON
要将服务停止,才能卸载。
点击文件,即卸载。
3、DBMService.exe
输出的服务。
编写程序时输出服务程序可设置路径:project->options->Output directory 改成 : ..in,这样编译后就得到最新的服务程序。
4运行时,网络断后,网络重新连会报“17-09-15 15:32:55-> ORA-03114: 未连接到 ORALCE->qry_fdsy数据库打开错误!”