[Lazarus] daemon in lazarus

[M.Ali VARDAR]

Hi,

I'm trying write a daemon with lazarus. I'm creating new project in menu and
selecting daemon for new project.

I'm adding new events on daemon1 (create, execute, start, stop). Just wrote
a writeln in procedures.

I'm starting with *-r* parameter. Like that: *project1.exe -r *

But just *RegisterDaemon*;  procedure is working and finishing. Am i wrong?
Why *DataModuleStart* is not working? or another procedure?

I prepared a video,  you can see form here :  *
http://avar.ath.cx/lazarusdaemon.avi*

And *-i* parameters did not any service to windows services.

Lazarus : 9.27 beta 12-31-2008

*Merry christmas*

*Happy new year *

*M.Ali VARDAR*

-----------------------------------------

unit DaemonUnit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, DaemonApp;

type

  { TDaemon1 }

  TDaemon1 = class(TDaemon)
  procedure DataModuleCreate(Sender: TObject);
  procedure DataModuleExecute(Sender: TCustomDaemon);
  procedure DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
  procedure DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
  private
  { private declarations }
  public
  { public declarations }
  end;

var
  Daemon1: TDaemon1;

implementation

procedure RegisterDaemon;
begin
  RegisterDaemonClass(TDaemon1);
  writeln('start');
end;

{ TDaemon1 }

procedure TDaemon1.DataModuleCreate(Sender: TObject);
begin
  writeln('sdfsdf');
end;

procedure TDaemon1.DataModuleExecute(Sender: TCustomDaemon);
begin
  writeln('sdfsdf');
end;

procedure TDaemon1.DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
begin
  writeln('sdfsdf');
end;

procedure TDaemon1.DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
begin
  writeln('sdfsdf');
end;

initialization
  {$I daemonunit1.lrs}


  RegisterDaemon;
end.

_______________________________________________
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus