hallo zusammen,
ich würde gerne threads benutzen um z.b. länger dauernde
DB Statements darin unterzubringen, so das der Benutzer keine Eieruhr bzw. "keine Rückmeldung" bekommt.
Diese Statements dauern mehrere Minuten, daher denke ich, das ich mit Threads hier nicht ganz flasch liege, oder? (Das war die erste Frage
)
Desweiteren lese ich immer von Syncronize wenn ich auf die
VCL zugreifen will.
D.h. wenn ich das richtig verstanden habe :
Delphi-Quellcode:
form1.label1.caption = 'hallo'; // geht nicht
syncronize(form1.label1.caption = 'hallo'); // geht
Wenn ich jetzt Objekte per Referenz in den thread gebe wie z.b. (die qry fürt nur eine SP aus)
Delphi-Quellcode:
procedure Tmythread.setbenchqry(Dsql: TIB_DSQL);
begin
dsqlx := dsql;
end;
procedure Tmythread.execute;
begin
while not Terminated do
begin
Dsqlx.Execute;
end;
end;
procedure TForm1.start(anzahl:integer);
var
i:Integer;
begin
for i := 0 to anzahl do
begin
// hier wird die anzhal der Querys erzeugt die den threads entsprechen
qrytest[i] := TIB_DSQL.Create(Self);
qrytest[i].Name := 'qrytest' + inttostr(i);
.
.
.
thread1[i] := Tmythread.create;
thread1[i].setbenchqry(qrytest[i]);
thread1[i].Resume;
end;
end;
Ist das nun Threadsave ? Bzw macht man das so ? Oder ist das total daneben vom Programmierstyle her?!
Das Ziel ist, dynamisch die Anzahl parallele qrytest zu erzeugen.
Ich freue mich über ein paar Tips und Antworten.