开发：NT服务中的事件报告问题(100分)

shiyj · 2004-02-08

在开发NT服务的时候，可以使用 ReportEvent 将服务的特定信息写入系统日志中去，其中需要指定几个参数。在 Delphi 编程语言中，可以使用 TService.LogMessage 方法达到类似的目的。按照 MS 的开发文档，事件中的参数“事件ID”是一个标志，指定此事件在一个消息文档中的入口。请问这个消息文档是怎么指定的？ 或者我不需要这一项，应该怎么解决？简单的将此参数指定为 0 (Delphi中的默认值)，在 WINNT 的事件查看器中将看到“找不到资源，事件无法解释”之类的一段文字。 谢谢。

Siva · 2004-02-08

Delphi 编写Windows NT服务 1．产生一个Win32服务应用 　　产生一个Win32服务应用，选择File|New菜单，在New Items页中选择Service　Application。这样在你的工程里加入一个全局变量命名的应用，它是 TserviceApplication类型。每个服务工程自动的声明一个TServiceApplication 实例，并不需要直接的对它编程。另外自动产生一个Tservice对象。 　　当你产生一个服务应用，你会在设计环境中看到一个窗口，它对应了一个服务 (Tservice)。在Object Inspector中设置它的属性和事件以实现它。在你的服务应用中可以加入其他的服务。不要将Service加入在一个非Service Application中。当加入一个Tservice对象时，因为服务，应用将不产生事件请求和使用合适的窗口调用。 2．TServiceApplication 　　TServiceApplication封装了windows NT Service Application。它提供服务应用的基本行为框架。它包含Tservice对象，每个Tservice封装了一个NT服务。服务应用提供服务产生、安装、注册、分发和卸载的方法。 注意，不要在工程的uses列表中加入Forms或HtppApp，因为这些单元有些 Aplication变量有冲突。 3．Tservice 每个Tservice都有一个线程。 特性 AllowPause AllowStop Dependencies DisplayName ErrCode ErrorSeverity Interactive LoadGroup Param ParamCount Password ServiceStartName ServiceThread ServiceType StartType Status TagID Terminated WaitHint Win32ErrCode 方法： Create Destroy GetServiceController LogMessage ReportStatus 事件 AfterInstall AfterUninstall BeforeInstall BeforeUninstall OnContinue OnExecute OnPause OnShutdown OnStart OnStop 4．样例 　　例子使用一个TserverSocket，端口设为80，这个例子将在c:/temp目录下产生一个文本文件，名字为WebLogxxx.log(xxx是线程IDThreadID)。看运行结果：启动程序，打开一个Web浏览器，键入localhost，等待浏览器将超时，然后在c:/temp中将有一个Weblogxxx.log文件。 Interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ScktComp; type TService1 = class(Tservice) ServerSocket1: TServerSocket; procedure ServerSocket1ClientRead(Sender: Tobject; Socket: TCustomWinSocket); procedure Service1Execute(Sender: Tservice); private { Private declarations } Stream: TMemoryStream; public function GetServiceController: PServiceController; override; { Public declarations } end; var Service1: TService1; implementation {$R *.DFM} procedure ServiceController(CtrlCode: Dword); stdcall; begin Service1.Controller(CtrlCode); end; function TService1.GetServiceController: PServiceController; begin Result := @ServiceController; end; procedure TService1.ServerSocket1ClientRead(Sender: Tobject; Socket: TCustomWinSocket); var Buffer: Pchar; begin Buffer := nil; while Socket.ReceiveLength > 0 do begin try Buffer := AllocMem(Socket.ReceiveLength); Socket.ReceiveBuf(Buffer^, Socket.ReceiveLength); Stream.Write(Buffer^, StrLen(Buffer)); finally FreeMem(Buffer); end; Stream.Seek(0, soFromBeginning); Stream.SaveToFile('c:/Temp/Weblog' + IntToStr(ServiceThread.ThreadID) + '.lo '); end; end; procedure TService1.Service1Execute(Sender: Tservice); begin Stream := TMemoryStream.Create; try ServerSocket1.Port := 80; // WWW port ServerSocket1.Active := True; while not Terminated do begin ServiceThread.ProcessRequests(False); end; ServerSocket1.Active := False; finally Stream.Free; end; end; end. 参见http://www.thedelphimagazine.com/Samples/1655/1655.htm

shiyj · 2004-02-11

大虾，你这个是通用的NT服务开发示例。我不是问这个问题。我是说，我想为我的NT服务记录日志，不使用自己写LOG文件，而是记到WINDOWS的日志中去。对于WINDOWS来说是使用API函数 ReportEvent 实现的。但是其中的几个参数含义不好使用。

开发：NT服务中的事件报告问题(100分)

shiyj

Unregistered / Unconfirmed

Siva

Unregistered / Unconfirmed

shiyj

Unregistered / Unconfirmed

Similar threads