Service & on Execute

[value is NULL]

nenene nicht da jetzt die worte umdrehen ;)

das was gepostet wurde habe ich ja bereits probiert, ABER die letzten X Beiträge befassen sich ja hauptsächlich mit der logik des ganzen. Wollte das ja verstehen und das habe ich ja jetzt, glaube ich. Und morgen gehts weiter mit probieren, schließlich war ich ja bis ca 19:30 am probieren nur jetzt gehts nich mehr :(

alright ? ;)

[value is NULL]

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