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.