tltsvr.pas

来自「一般的数据库管理系统 uses Classes, SConnectEx, Tl」· PAS 代码 · 共 53 行

unit TltSvr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ScktComp, SocketServer;

type
  TRltService = class(TService)
    ServerSocket1: TServerSocket;
    procedure ServiceExecute(Sender: TService);
    procedure ServerSocket1GetThread(Sender: TObject;
      ClientSocket: TServerClientWinSocket;
      var SocketThread: TServerClientThread);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  RltService: TRltService;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  RltService.Controller(CtrlCode);
end;

function TRltService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TRltService.ServiceExecute(Sender: TService);
begin
  //
end;

procedure TRltService.ServerSocket1GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := TltSocketThread.Create(false, ClientSocket);
end;

end.