Anwendung --> Dienst erstellen

[fiasko]

Hallo,

wenn ich das richtig verstehe soll er dienst im Hintergrund etwas vor sich hin rechnen solange der Rechner an ist? Ich würde dazu die Verarbeitung der Blöcke in einen Thread auslagern. Dieser wird dann beim Start des Dienstes angestoßen. Im Anhalte Ereignisses des Dienstes teilst du dem Thread dann mit das er doch bitte anhalten soll und wartest bis er fertig ist.

Zum erstellen des Threads gibt es im Delphi unter Datei->Neu... ein kleines Symbol was das Grundgerüst erstellt. Deine Blockverarbeitung kommt dann in das Excute was dort schon angelegt rein, der Art:

Delphi-Quellcode:

procedure TWorkerThread.Execute(..);
begin
  while not Terminated do
  begin
    // hier immer einen Block abarbeiten
  end;
end;

Das starten vom Dienst aus sieht dann so aus:

myThread := TWorkerThread.Create(false); und zum beenden sollte das reichen:

Delphi-Quellcode:

if Assigned(myThread) then
begin
  myThread.Terminated;
  myThread.WaitFor;
  FreeAndNil(myThread);
end;

So hoffe das gibt dir erstmal ein paar Ansatzpunkte... ansonsten gabs hier noch irgendwo ein Tutorial zum Thema Threads... ich bin aber so vergeßlich - wird sicher noch jemand die URL posten.