Hmm...
Zitat:
Code:
CoInitialize(nil);
try
try
FQuery := TADOQuery(FDataSource.DataSet);
RightsPk := FDataSource.Tag;
IsRunning := True;
RecordCount := 0;
QueryName := FQuery.Name;
FQuery.Close;
FQuery.Open;
RecordCount := FQuery.RecordCount;
Dir ist bewusst, dass der ADOQuery 'außerhalb' des Thread erzeugt wird und du somit innerhalb Execute auf die Komponente 'außerhalb' deines Threads zugreifst und das alle (eventuellen) Messages der ADOQuery im Hauptthread stattfinden?
Ich vermute, dass du eine ADOConnection mit diesem
Query verwendest, welche auch außerhalb des Threads genutzt wird?
Also diese außerhalb deines Threads ist!
So weit ich weiß sollte jeder Thread seine eigende ADOQuery/ADOConnection selber erstellen, nur so ist sichergestellt, dass diese auch im Kontext des Threads läuft!
Also den Connectionstring, sowie den
SQL-String an den Thread geben und nicht das ADOQuery selber!.
Irgendwo habe ich nen Sourcecode gesehen, welcher dann das Record-Set Thread Save aus dem Thread an den MainThread zurück gibt, weiß aber nicht mehr wo....