Zitat von baumina:

Dort würde ich ein EventWait.WaitFor einbauen, das wie ein Timer wirkt.

so?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TLivedataThread.Execute;
var
  i: integer;
begin

  inherited;

  while not Terminated do
  begin

    // Invoke terminate, then call abort funtion
    if Self.Terminated then
    begin

      // call abort-function

      // Exit
      Exit;

    end;


    // Callback-Funktion übergeben?
    if Assigned(FCallback) then
      // dann VCL-fähig ausführen
      Synchronize(DoCallbackVCL);

    Sleep(2000);

  end;

end;

aber damit könnte ich den Thread nie von aussen beenden?!

zusammenfalten · markieren

Delphi-Quellcode:

constructor TLivedataThread.Create(Callback: TLivedataCallback);
begin
  ...
  EventWait := TEvent.Create(nil,true,false,'');
end;

procedure TLivedataThread.Terminate;
begin
  EventWait.SetEvent;

  inherited;
end;

destructor TLivedataThread.Destroy;
begin
  EventWait.Free;

  inherited;
end;

procedure TLivedataThread.Execute;
begin
  while not Terminated do
  begin
  ...
    EventWait.WaitFor(30000);
  end;
end;

Und im Haupthread

markieren

Delphi-Quellcode:

  if Assigned(LivedataThread) then
  begin
    LivedataThread.Terminate;
    LivedataThread.WaitFor;
    FreeAndNil(LivedataThread);
  end;

Zitat von baumina:

Und im Haupthread

markieren

Delphi-Quellcode:

  if Assigned(LivedataThread) then
  begin
    LivedataThread.Terminate;
    LivedataThread.WaitFor;
    FreeAndNil(LivedataThread);
  end;

hmm, die zeilen verstehe ich nicht? kannst du die bitte einzeln erklären und warum auch in dieser reihenfolge

1. Dem Thread mitteilen, er möge sich bitte beenden
2. Warten, bis der Thread eben dies getan hat
3. Die Instanz freigeben.

Schau dir TEvent an.

Im Übrigen läuft so ein Thread erst nach dem Erzeugen los - damit erübrigt sich auch das Erzeugen im Suspended Mode.

@baumina

Wenn du eine kleine Änderung vornimmst

markieren

Delphi-Quellcode:

destructor TLivedataThread.Destroy;
begin
  Terminate;
  EventWait.SetEvent;

  inherited;
  EventWait.Free;
end;

dann reicht ein simples
FreeAndNil( LiveDataThread ); bzw. wenn man die protected Methode TThread.TerminatedSet überschreibt mit

zusammenfalten · markieren

Delphi-Quellcode:

procedure TLivedateThread.TerminatedSet;
begin
  inherited;
  EventWait.SetEvent;
end;

destructor TLivedataThread.Destroy;
begin

  inherited;
  EventWait.Free;
end;

dann wird es noch weniger Code

Danke Rufo, gefällt mir.