Hallo,
ich habe einen Thread, der eine Query öffnet, Daten ausliest und wieder schliesst, dies kann mehrfach vorkommen.
Habe bereits mehrere Versionen versucht (auch mit Session), immer beim 2 Aufruf meines Thread, geht der Thread bei MyQuery.active := true
in das OnTerminate Ereignis und ist beendet.
Ich weiss einfach nicht warum.
// StartAufruf des Thread
MyThread := TMyThread.Create ProgressBar1,Session1,Database1,Query1,tpIdle );
MyThread.OnTerminate := Form1.ThreadDone;
// Thread Unit mit Query
procedure TMyThread.Execute;
begin
myDatabase := TDatabase.Create(Nil);
myQuery := Tquery.Create(nil);
myDatabase.AliasName := 'AliasNewTreeVersion';
myDatabase.DataBaseName := 'abc';
myDatabase.Connected := false;
myDatabase.KeepConnection := false;
myDatabase.LoginPrompt := false;
myQuery.DatabaseName := 'abc';
myQuery.SQL.Clear;
myQuery.SQL.Add('Select * from tblcontent');
myQuery.Active := true;
while (not Terminated) do
begin
While not myQuery.Eof do
begin
....
usw.
ich habe einen Thread, der eine Query öffnet, Daten ausliest und wieder schliesst, dies kann mehrfach vorkommen.
Habe bereits mehrere Versionen versucht (auch mit Session), immer beim 2 Aufruf meines Thread, geht der Thread bei MyQuery.active := true
in das OnTerminate Ereignis und ist beendet.
Ich weiss einfach nicht warum.
// StartAufruf des Thread
MyThread := TMyThread.Create ProgressBar1,Session1,Database1,Query1,tpIdle );
MyThread.OnTerminate := Form1.ThreadDone;
// Thread Unit mit Query
procedure TMyThread.Execute;
begin
myDatabase := TDatabase.Create(Nil);
myQuery := Tquery.Create(nil);
myDatabase.AliasName := 'AliasNewTreeVersion';
myDatabase.DataBaseName := 'abc';
myDatabase.Connected := false;
myDatabase.KeepConnection := false;
myDatabase.LoginPrompt := false;
myQuery.DatabaseName := 'abc';
myQuery.SQL.Clear;
myQuery.SQL.Add('Select * from tblcontent');
myQuery.Active := true;
while (not Terminated) do
begin
While not myQuery.Eof do
begin
....
usw.
Comment