TThread + Synchronize in DLL

[schwarzerlotus]

Hallo zusammen,

ich bin gerade etwas am verzweifeln mit einem Thread in meiner DLL.
Der Thread soll in regelmäßigen Abständen ein Update auf einer Form ausführen - wenn ich das ganze in einer eigenständigen Applikation starte geht das ganze super, wenn ich die Form mittels showModal aufrufe gehts auch - will ich die Form nun aber nicht modal anzeigen wird die aus dem Thread mittels synchronize aufgerufene Prozedur nicht mehr angesprungen.

Hier einmal mein minimal Test

Delphi-Quellcode:

unit TestThread;

interface

uses
Windows, Messages, SysUtils, Variants, Classes;

type
  TTestThread = class(TThread)
  private
    j: Integer;
  protected
    procedure Execute; override;
  end;

implementation

uses
  ThreadTestForm;

  procedure TTestThread.Execute;
  var
    i: Integer;
  begin
    j:=1;
    for i:=1 to 90 do
    begin
      if Terminated then break;
      j := i;
      sleep(1000);
      Synchronize(Form1.doit);
    end;
    FreeOnTerminate:=True;
  end;
end.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TTestThread;
begin
  NewThread:=TTestThread.Create(true);
  NewThread.Resume;
end;

procedure TForm1.doit;
begin
  Memo1.Lines.Add('Test?');
end;

Was ich bisher glaube verstanden zu haben ist, dass die Nachricht die beim Synchronize an die Applikation geschickt wird dort nicht angenommen/verarbeitet wird, da meine Form in der dll lebt und nicht in der exe selber. Und ein modaler Dialog scheint eine eigene Event Queue zu haben so dass es dort funktioniert.

nun wird oft geraten die Funktion CheckSynchronize aus Classes aufzurufen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 CheckSynchronize();
end;

Löse ich das so auf der selben Form per Hand aus, so kommen die Nachrichten an - aber wie sage ich nun der Applikation/Form dass sie das "regelmäßig" aufruft?

In der Main Applikation kann ich so ohne weiteres nichts hinzufügen - ich müsste das also in der DLL lösen. Außerdem möchte ich nicht die ganze Zeit einen zusätzlichen Overhead durch das CheckSynchronize haben, sondern nur wenn der Thread wirklich auch läuft.

Habt ihr eine Idee wie ich das lösen kann?

[himitsu]

Bei ShowModal wird das programm angehalten, solange die Form sichtbar ist und es wird geziehlt eine Messageloop in der DLL durchlufen.
Ohne ShowModal läuft aber die MessageLoop der EXE und da ist es schon klar, daß es da schonmal zu Problemem kommen kann, da es sich um 2 getrennte VCLs halten.

Du kannst aber aus der DLL eine BPL (Package) machen, dan wird es keine Probleme mehr geben, die DLL und die EXE nun die selbe VCL benutzen.

Sollte es sich nicht um eine Delphi-EXE handeln, dann hast du halt Pech.
(da könnte man höchstens noch versuchen die DLL in einem eigenem Thread laufen zu lassen.)

[schwarzerlotus]

Hm ich hätte jetzt nicht gedacht, dass so eine vergleichsweise einfache Operation wie die Rückmeldung eines Threads an die GUI so kompliziert wird ...

Ich hab noch keine BPL selber gebaut und da unsere Applikation diverse DLLs lädt ist diese Option vermutlich auch nicht so schnell/einfach zu realisieren aber mal schauen.

Und sonst gibt es keine Möglichkeit? Mit dem CheckSynchronize kann ich das abarbeiten der Queue ja schon mal in einem ButtonClick auslösen - aber das müsste man der Form, die ja auch in der DLL lebt, doch auch beibringen können, diese Funktion aufzurufen oder?
Lauf Delphi Hilfe ist die Funktion ja genau dafür da, um den Haupt Thread mit den anderen Threads zu synchronisieren aber ich verstehe nicht wie man das hin bekommt.

Ich bin nun erstmal auf SendMessage ausgewichen, um der Form mitzuteilen, dass etwas passiert ist - aber wenn jemand noch eine Idee hat wie das mit synchronize funktioniert, würde mich das sehr interessieren.

[himitsu]

Das liegt nicht am Einfach, sondernn an der VCL.

Die VCL ist niemals dafür entwickelt worden mehrmals parallel oder in einer DLL zu laufen, sondern immer in EXE/BPL und im Hauptthread.

Sehr viele Funktionen sind direkt in der MessageLoop verbaut und hart verdrahtet, so daß eine andere/fremde MessageLoop nicht alle Funktionen bietet, wie die originale Nachrichtenverarbeitung der VCL.