转帖：DELPHI编写服务程序总结二－－编写技巧
原文地址：http://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html
一、如何限制系统服务和桌面程序只运行一个
如何限制系统服务和桌面程序只运行一个
在工程加入下列代码可以设置系统服务和桌面程序只运行一个。
program FleetReportSvr;
uses
SvcMgr,
Forms,
SysUtils,
Windows,
SvrMain in 'SvrMain.pas' {FleetReportService: TService},
AppMain in 'AppMain.pas' {FmFleetReport}；
{$R *.RES}
const
CSMutexName = 'Global\Services_Application_Mutex';
var
OneInstanceMutex: THandle;
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
OneInstanceMutex := CreateMutex(@SecMem, False, CSMutexName);
if (GetLastError = ERROR_ALREADY_EXISTS)then
begin
DlgError('Error, Program or service already running!');
Exit;
end;
if FindCmdLineSwitch('svc', True) or
FindCmdLineSwitch('install', True) or
FindCmdLineSwitch('uninstall', True) then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TSvSvrMain, SvSvrMain);
SvcMgr.Application.Run;
end
else
begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TFmFmMain, FmMain);
Forms.Application.Run;
end;
end.
二、在系统服务和桌面程序之间共享内存
用于创建内核对象的函数几乎都有一个指向SECURITY_ATTRIBUTES结构的指针作为其参数，在使用CreateFileMapping函数的时候，通常只是为该参数传递NULL，这样就可以创建带有默认安全性的内核对象。
默认安全性意味着对象的管理小组的任何成员和对象的创建者都拥有对该对象的全部访问权，而其他所有人均无权访问该对象。可以指定一个ECURITY_ATTRIBUTES结构，对它进行初始化，并为该参数传递该结构的地址。
它包含的与安全性有关的成员实际上只有一个，即lpSecurityDescriptor。当你想要获得对相应的一个内核对象的访问权（而不是创建一个新对象）时，必须设定要对该对象执行什么操作。如果想要访问一个现有的文件映射内核对象，以便读取它的数据，那么调用OpenfileMapping函数：通过将FILE_MAP_READ作为第一个参数传递给OpenFileMapping，指明打算在获得对该文件映象的访问权后读取该文件， 该函数在返回一个有效的句柄值之前，首先
执行一次安全检查。如果（已登录用户）被允许访问现有的文件映射内核对象，就返回一个有效的句柄。但是，如果被拒绝访问该对象，将返回NULL。
系统服务端核心代码：
constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
raise Exception.Create(SysErrorMessage(GetLastError));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin // 成功
FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;
destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited;
end;
桌面程序核心源代码：
constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
raise Exception.Create(SysErrorMessage(GetLastError));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin // 成功
FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;
destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited;
end;
详细源代码见报表服务和报表COM中的关于共享内存的源代码。需要注意创建共享内存需要放在：ServiceStart中初始化，不能放在initialization，否则还会出现权限不足的信息，因为initialization是在应用程序初始化之前执行的代码。
三、在服务中使用COM组件
在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
Qry: TADOQuery;
begin
CoInitialize(nil);
Qry := TADOQuery.Create(nil);
try
...
finally
Qry.Free;
CoUninitialize;
end;
end;
[解决办法]
接分都不好意思,嘿嘿
[解决办法]
真好
[解决办法]
收藏了~~
[解决办法]
楼主好人啊
[解决办法]
很好，最近正在找服务的资料。
[解决办法]
up!
[解决办法]
jf
[解决办法]
回复个……
[解决办法]
JF~
[解决办法]
mark
[解决办法]
好帖子！
[解决办法]
给大家介绍个好的学习DELPHI的汗网站，超级好，叫万一博客
[解决办法]
学习下
[解决办法]
学习下
[解决办法]
拿分
[解决办法]
delphi写服务、服务端程序，总担心容易内存泄漏。。。。。。。相对于vc
也许什么都使用api，会保险一点
[解决办法]
真好
[解决办法]
看了一下博客，真的是牛人啊！
有些问题，比如tcp服务端，根本就是使用的socket控件的问题，又如borland三层的socket服务器，也是非常的口碑差。。。。。。。
如果楼主能拿socketsrv.exe的源码再改进一下。。。。。。
[解决办法]
试验了一下你的完成端口的demo，客户端连接100个时，服务端老半天才反应过来
客户端关闭后，服务端死了那里了。。。。。。。
[解决办法]
好，支持
[解决办法]
PF呀！收藏了！
[解决办法]
mark
[解决办法]
没看内容 那也顶下 在看 好帖
------解决方案--------------------
学习
[解决办法]
[解决办法]
感谢！
[解决办法]
顶了...
[解决办法]
很好，最近正在找服务的资料。
[解决办法]
看下拿分
[解决办法]
顶一个，加油！很棒！
[解决办法]
[解决办法]
[解决办法]
[解决办法]
顶啊！很强啊！
[解决办法]
[解决办法]
顶啊！很强啊！顶啊！很强啊！
[解决办法]
顶起～
[解决办法]
上边你的那种写法我没写过,呵呵
都是用API控制
写服务我觉得比较麻烦的是调试和操作系统的区别, 另外一个消息壁垒和用户权限也有点麻烦
最近调试服务里的通讯,经常是在外边调试好了,放到服务里又报错..在XP下好了,在VISTA报错,在VISTA下好了,XP报错....
我里边写的条件编译打印文件的代码都快赶上功能代码那么多了
[解决办法]
好哦。
[解决办法]
好好学习之
[解决办法]
学习
[解决办法]
收藏
[解决办法]
直接用API写服务程序发些
[解决办法]
学习
[解决办法]
学习。
[解决办法]
向楼主学习。。
[解决办法]
学习。。
[解决办法]
了.收藏先
[解决办法]
仔细学习
[解决办法]
学习下
[解决办法]
看了一下代码，服务端是通过消息实现界面交互（事件、日志、客户端的增减）的
这样的确可以省掉多线程同时访问界面的冲突，只是这样的消息是不是 不可靠，os压力大时，会不会随便丢弃消息？
客户端的100个连接如果先断开，再关闭客户端，正常
客户端的100个连接如果不先断开，而是直接关闭客户端，则服务端就会死掉。在ide里运行服务端，则死的更严重，整个桌面都反应极慢了。。。。。。。是不是这种断线方式的服务端识别得不够好？
tcp的状态除了基本的连、断，还有一些状态好像很多delphi的通信控件都没有很好的对应处理。这次这个异常，是不是也是这个原因？
[解决办法]
是在没看懂
呵呵
很有内涵的啊
------解决方案--------------------
upup
[解决办法]
少走弯路,,学习经验!!
[解决办法]
学习！
[解决办法]
好～
[解决办法]
接分
[解决办法]
[解决办法]
关注。
[解决办法]
学习一下，正在看delphi
[解决办法]
一直想有一个简捷高效的服务端框架，中手拿来修改、扩展其中的事件函数、方法就可以是一个高效稳定的服务端了
无论是delphi还是c++(linux下)。
[解决办法]
高手，，膜拜一下！
[解决办法]
好的，想不都！
[解决办法]
哈哈，几好呀
[解决办法]
这个得mark
[解决办法]
jf
[解决办法]
1
[解决办法]
一直想研究下Delphi
[解决办法]
不错!
[解决办法]
好东西~
[解决办法]
jf
[解决办法]
收藏！
[解决办法]
顶～
[解决办法]
好东西呀，
[解决办法]
接分
[解决办法]
up.
[解决办法]
好，收藏了
[解决办法]
支持
[解决办法]
[解决办法]
到底是讨论服务还是服务端程序
感觉乱七八糟的
[解决办法]
哦，我是讨论楼主的一个icop例子
[解决办法]
[解决办法]
[解决办法]
专业接分