Hi Leutz
Habe folgenden code heute getestet:
Delphi-Quellcode:
procedure test.ServiceExecute(Sender: TService);
const
seconds = 10;
var
Count: Integer;
begin
Count := 0;
while not Terminated do
begin
Inc(Count);
if Count >= seconds then
begin
Count := 0;
addtolog(1, 'FIRE!');
end;
Sleep(1000);
ServiceThread.ProcessRequests(False);
end;
end;
und er hat prima funktioniert!
Code:
04.05.2011 08:54:50 [DEBUG] FIRE!
04.05.2011 08:55:00 [DEBUG] FIRE!
04.05.2011 08:55:10 [DEBUG] FIRE!
04.05.2011 08:55:20 [DEBUG] FIRE!
04.05.2011 08:55:30 [DEBUG] FIRE!
04.05.2011 08:55:40 [DEBUG] FIRE!
04.05.2011 08:55:50 [DEBUG] FIRE!
04.05.2011 08:56:00 [DEBUG] FIRE!
LG
Ich möchte mich bei allen für die Hilfe und Gedulg bedanken. Ich werd mir heute noch das Timer