68 lines
992 B
ObjectPascal
68 lines
992 B
ObjectPascal
unit cgi_daemon;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, DaemonApp;
|
|
|
|
type
|
|
TLMSReportCGI=class;
|
|
{ TDaemonThread }
|
|
|
|
TDaemonThread=class(TThread)
|
|
fOwner: TLMSReportCGI;
|
|
procedure Execute;override;
|
|
constructor Create(AOwner: TLMSReportCGI);
|
|
end;
|
|
|
|
{ TLMSReportCGI }
|
|
|
|
TLMSReportCGI = class(TDaemon)
|
|
procedure DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
|
|
private
|
|
workThread: TDaemonThread;
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
LMSReportCGI: TLMSReportCGI;
|
|
|
|
implementation
|
|
|
|
procedure RegisterDaemon;
|
|
begin
|
|
RegisterDaemonClass(TLMSReportCGI)
|
|
end;
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TLMSReportCGI }
|
|
|
|
procedure TLMSReportCGI.DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
|
|
begin
|
|
workThread := TDaemonThread(self);
|
|
workThread.Start;
|
|
end;
|
|
|
|
{ TDaemonThread }
|
|
|
|
procedure TDaemonThread.Execute;
|
|
begin
|
|
|
|
end;
|
|
|
|
constructor TDaemonThread.Create(AOwner: TLMSReportCGI);
|
|
begin
|
|
inherited Create(true);
|
|
fOwner:=AOwner;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDaemon;
|
|
end.
|
|
|