Einzelnen Beitrag anzeigen

coderi

Registriert seit: 13. Jun 2008
Ort: Unterfranken
13 Beiträge
 
Delphi 10.3 Rio
 
#1

Threads und VCL

  Alt 18. Jan 2013, 11:25
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.
  Mit Zitat antworten Zitat