begin thread und syncronize?

[richard_boderich]

nabend zusammen,

ich habe eine ziemlich komplexen multithreadcode gebastetlt, der auch funktioniert. mein problem ist aber das er erst die stringgrid vcl aktualisiert wenn
alle treads beendet sind. (geht ueber critikal sections) ich will aber das er waehrend die treads laufen, die vcl aktualisiert. nun gibt es ja dazu die methode
synchronize(), die meines wissens aber nur mit dem vcl threadobject funktioniert. was mach ich aber wenn ich meinen thread direkt über begin thread starte?

gruß richard

[mirage228]

Hi,

Also konkret fällt mir da jetzt auch nichts ein, aber ich würde mir den Quelltext der Synchronize() Methode anschauen und diese Funktion dann entsprechend nachbauen.

mfG
mirage228

[SirThornberry]

Wenn du aus dem Thread mit SendMessage etwas an den hauptthread sendest wird auch eine Syncronisation durchgeführt weil ja die Message letztendlich über die Nachrichtenschleife des hauptthreads kommt und der Thread wartet auf das Result von dieser Message. In dem Fall sollten also Thread und Hauptthread syncron sein. Sende also aus deinem Thread eine Message mit SendMessage an ein Fenster aus dem Hauptthread (TForm1.handle etc.) und in der Methode welche die Message entgegennimmt kannst du dann auf dein StringGrid etc. zugreifen.

[richard_boderich]

mhh mal gucken was lucky dazu meint

[SirThornberry]

schneller bist du wenn du es einfach ausprobierst bzw. im MSDN nachließt. Da müsste auch stehen das Bei SendMessage gewartet wird bis das Result der Message zurück kommt.

[Luckie]

Zitat:

Zitat von richard_boderich

mhh mal gucken was lucky dazu meint

Genau das selbe wie SirThornberry.

[SirThornberry]

und hier mal ein kleines Beispiel wo man genau sieht das der Thread wartet:

Delphi-Quellcode:

type
  [...]
  procedure FMsgProc(var AMsg: TMessage); message wm_user + 1;
  [...]
  
function GThreadFunc(p: Pointer): Integer;
begin
  SendMessage(Cardinal(p), wm_User + 1, 0, 0);
  MessageBox(0, 'text aus thread', '', 0);
end;

procedure TForm1.FMsgProc(var AMsg: TMessage);
begin
  MessageBox(0, 'text aus hauptthread', '', 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var LID: Cardinal;
begin
  BeginThread(nil, 0, @GThreadFunc, Pointer(Handle), 0, LID);
end;

Bei diesem Beispiel wird beim Klick auf einen Button der Thread gestartet. In dem Thread wird dann ein SendMessage an den haupttread gemacht und erst nach diesem SendMessage gibt der Thread etwas aus. Man sieht bei dem Beispiel also das erst die Message "text aus haupttread" kommt und erst wenn man dort auf "ok" klickt und somit das Sendmessage zurück kehrt dann der text "text aus thread" kommt.

[richard_boderich]

ja aber ist das den ein sinnvoller weg das so zu machen oder ist es besser den code neu auf vcl threadobject umzuschreiben?

[SirThornberry]

der Weg ist schon sinnvoll. Die Syncronize Methode macht ja auch nix anderes als dafür zu sorgen das der Thread nicht weiter läuft während im Hauptthread etwas abgearbeitet wird. Und mit dem SendMessage ereichtst du genau das, der Thread macht nix bevor du nicht aus diesem messagehandler zurück kehrst. Und da der Thread nix macht, also auf keine Variablen etc. zugreift kann auch nix schief gehen.

[richard_boderich]

das heist also

1. thread erzeugen
2. message aus thread an hauptread senden
3. meinen code aufrufen stringgrid1.cell[x,y]:='blablabla';
4. message aus hauptread an tread senden und im sagen mach weiter!

hab ich das prinzip jetzt so richtig verstanden?