TThread und Rückgabe an Formular

[mjustin]

Zitat von tofse:

Mit synchronize funktioniert das ja, aber in verschiedenen Tutorials habe ich gelesen, dass man das nicht machen würde. Das wäre ja pro Schleifendurchlauf im Thread ein Aufruf von synchronize, der jedesmal den Thread kurz unterbrechen würde.

Neuere Delphi Versionen enthalten die Methode TThread.Queue, die im Unterschied zu Synchronize den Thread nicht sofort blockiert (sondern erst zu einem späteren Zeitpunkt). Queue legt den eigenen Methodenaufruf in eine Warteschlange und gibt die Kontrolle sofort an den Thread zurück. Im Haupthread wird dann "später" diese Queue abgearbeitet. Eine Garantie dafür gibt es aber nicht, z.B. falls beim Beenden des Programms noch Einträge in dieser Queue sind.

[Mschmidt]

Ich verwende dazu Methodenaufrufe:

Delphi-Quellcode:

type
  TMainProc = procedure (<Parameter>) of object;

type
  TMain = Class(TForm)
...
  procedure Aktualisiere(<Parameter>);
...
  procedure StartThread;
end;

Type
  TMeinThread = Class(TThread)
  fMainProc :TMainProc;
  procedure Execute;
  constructor Create(MainProc:TMainProc);
end;

Constructor TMeinThread.Create;
begin 
  ...
  fMainProc:= MainProc;
...
end;

procedure TMeinThread.Execute;
begin
  while not terminated do begin
  if (<Zähler>) and (assigned(fMainProc)) then
    synchronize ( begin fMainProc(<Parameter>)end;); // anonyme Methode 
  ...
end;

procedure TMain.StartThread;
begin
  TMeinThread.create(Aktualisiere);
  ...
end;

procedure TMain.Aktualisiere(<Parameter>);
begin
  // dieser code wird aus dem Thread aufgerufen
...
end;

grüsse Mschmidt

[tofse]

Hallo,

vielen Dank für die vielen Tipps.
Zu meiner Frage bzgl. Events hat sich noch niemand geäußert.
Ich habe es mal so versucht:

TCopyErrorEvent = procedure(Sender: TObject;Datei:String;Fehler:String) of Object; Das hat funktioniert.
Nur wie gesagt, im Netz habe ich zu dieser Möglichkeit, Rückmeldung ans Formular zu geben, gar nichts gefunden. Deshalb: macht man das nicht, aus irgendeinen Grund, wie Performance oder hängt der Thread dann auch kurz?

Danke

[Mschmidt]

Selbstverständlich macht man das, ansonsten wäre ja die methode synchronize obsolet,oder?
Dem thread ist das letztendlich egal. Das gibt auch keine Fehler oder sonst was, es sei den, du baust falsch....
Cheers mschmidt

[Blup]

Events so wie du sie verwendest, dürfen vom Thread nur mit Synchronize aufgerufen werden.
Synchronize bedeuted, der Thread muss Anhalten, wenn der Hauptthread mal nichts zu tun hat führt er das Event aus, danach wird der Thread wieder aufgeweckt.

Der Vorschlag mit Postmessage ist da deutlich besser.

[tofse]

Ah, ok, habs verstanden.

Danke

[himitsu]

Zitat von Blup:

Events so wie du sie verwendest, dürfen vom Thread nur mit Synchronize aufgerufen werden.
Synchronize bedeuted, der Thread muss Anhalten, wenn der Hauptthread mal nichts zu tun hat führt er das Event aus, danach wird der Thread wieder aufgeweckt.

Der Vorschlag mit Postmessage ist da deutlich besser.

Nja, der Vergleich hinkt etwas.

Also, grundsätzlich dürfen Zugriffe auf die VCL (Delphi-GUI) nur aus dem Hauptthread erfolgen.
Synchronize nimmt die Funktion und führt sie im Hauptthread aus, wobei das natürlich so lange warten muß, bis der Haupthtead mal Zeit und Lust dafür hat.
Synchronize wartet mit der Ausführung, bis die übergebene Funktion fertig ist und erst dann läuft der Thread weiter.

Queue übergibt das auch an den Hauptthread, genau wie Synchronize, nur kehrt das sofort zurück und lässt den thread weiterarbeiten. Der Hauptthread führt aber auch da die Prozedur erst dann aus, wenn er kann.

TThread.Synchronize -> SendMessage
TThread.Queue -> PostMessage

Wenn du also das Synchronize-Equivalent "SendMessage" verwendet hättest, dann würde der Thread ebenfalls warten müssen, bis die Message verarbeitet wurde.

[himitsu]

Und ja, natürlich ist es auch nicht unbedingt nötig, ALLES in der GUI anzuzeigen.

• entweder die Schleife im Thread ist so langsam, daß durchschnittlich nahezu nie mehr als 5 bis 10 Aktualisierungen der GUI auftreten, bzw. daß die Anzahl der Aktualisierungen nicht grade in die Tausende gehen.
  Wenn nicht, dann kann man sich auch getrost alles sparen, garnichts unternehmen und einfach alles anzeigen.
• oder man zeigt einfach immer blind nur z.B. jede 100-ste Meldung an
• oder (was ich gern mache, da es unabhängig von der Rechen-/Arbeitsleistung ist) du zeigst nur meldungen an, wenn seit der letzen Anzeige mindestens 100 oder 250 Millisekunden vergangen sind > GetTickCount)
• oder der Thread gibt garnichts an die GUI weiter, sondern da läuft z.B. ein Timmer (vielleicht alle 100, 250, 1000 oder x Millisekunden) und die GUI holt sich die aktuelle Position, wenn sie Lust und Zeit dazu hat
• ...

[Mavarik]

Zitat von tofse:

Nur wie gesagt, im Netz habe ich zu dieser Möglichkeit, Rückmeldung ans Formular zu geben, gar nichts gefunden.

Hast Du meinen Post gelesen?