Also wenn du den Zustand von außen Pollen willst, dann macht es wenig Sinn, FreeOnTerminate auf true zu setzen, da das Objekt dann ggf. zu früh freigegeben wird. Aber den Zustand pollen macht sowieso keinen Sinn, entweder du benutzt das Ereignis OnTerminate oder du übergibst eine call-back-prozedur und rufst diese dann am Ende des Threads mit synchronize auf und machst dann dort mit Recordcount was immer du machen willst.

Oha, das mit dem OnTerminate ist ein guter Tipp. Hab das völlig übersehen. Statt mit dem Timer zu pollen, melde ich den RecordCount nun im OnTerminate. Danke!

Edit: Am Ende hat sich rausgestellt, dass im Thread eigentlich nur CoInitialize(nil) und CoUninitialize() gefehlt haben.

Hallöle...

markieren

Delphi-Quellcode:

constructor TQThread.Create(DataSource: TDataSource);
begin
  FDataSource := DataSource;
  FQuery := TADOQuery(FDataSource.DataSet);
  FreeOnTerminate := True; // <--

  inherited Create(True);
end;

Persönlich würde immer das inherited immer im Konstruktor an erste Stelle setzen. In deinem Falle greiftst auf eine Variable des TThread zu, die noch nicht existent sein sollte, weil das Create des TThread noch nicht durchlaufen ist. Warum das bei dir funktioniert, weis ich nicht... Klärt mich auf.

besser:

markieren

Delphi-Quellcode:

constructor TQThread.Create(DataSource: TDataSource);
begin
  inherited Create(True);

  FDataSource := DataSource;
  FQuery := TADOQuery(FDataSource.DataSet);
  FreeOnTerminate := True;
end;