Hi,
I'm a pascal newbie, after spending some time getting a daemon to work, I now
have trouble getting a timer to work. I was recommended to use TFPTimer from
the fpTimer unit - http://mantis.freepascal.org/view.php?id=14118&nbn=5
I tried the following code but the OnTimer doesn't trigger. There are no
errors either. Grateful for any pointers. :)
uses
fpTimer;
...
TDaemon1 = class(TDaemon)
....
private
.....
public
procedure FTimerTimer( Sender : TObject );
.....
var
Daemon1: TDaemon1;
FTimer : TFPTimer;
.....
procedure TDaemon1.FTimerTimer( Sender : TObject );
var
...
BEGIN
....
END;
procedure TDaemon1.DataModuleStart(Sender: TCustomDaemon; var OK: boolean);
var
...
begin
FTimer := TFPTimer.Create(nil);
FTimer.OnTimer := @FTimerTimer;
FTimer.Interval := 1000; // in milliseconds
FTimer.Enabled := True;
FTimer.StartTimer;
Note: I've also posted here -
http://lazarus.freepascal.org/index.php/topic,8615.0.html
_________________________________________________________________
Hotmail: Free, trusted and rich email service.
https://signup.live.com/signup.aspx?id=60969--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
