|
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.
|
