Threads und VCL

**coderi**

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 :

markieren

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)

zusammenfalten · markieren

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.

Threads und VCL

Threads und VCL

Stichworte

Forumregeln