Hallo,

ich habe die Verbindung zu einem IMAP-Server in einen Thread ausgelagert. Jetzt möchte ich die Daten im Formular anzeigen, sobald sie der Server (im Thread) geliefert hat. Wie mache ich das am besten?

Meine erste Idee war, eine Methode in der Thread-Unit zu erstellen, die dann mit Hilfe von Synchronize die entsprechenden Objekte des Formular ändert. Aber eigentlich sollte das doch nicht in der Thread-Unit ausgeführt werden, sondern in der Unit vom Formular stehen. Könnte man das dann auch über ein Event lösen und wie funktioniert das genau?

Vielen Dank für eure Hilfe!

MfG Spanky

Was quasi fast aufs gleiche rausläuft.

Die Eventmethode wird vom Thread ausgeführt und dafür muss das auch über Synchronize erfolgen.
Die Methode ist halt nur an anderer Stelle (z.B. Im Formular) deklariert.

Als Alternative, wenn man ohne Synchronize und AccessViolation auskommen möchte ist die Verwendung von einer Message die man vom Thread an das Fenster sendet.

Mit Event in etwa so (dahingetippt):

zusammenfalten · markieren

Delphi-Quellcode:

type
  TOnTutSichWas = procedure(Sender: TObject; AMyData: TMyData) of object;
  TMyThread = class(TThread)
  private
    FMyData: TMyData; // Klasse, Record, String, was auch immer; wird im Thread mit Daten gefüllt
    FOnTutSichWas: TOnTutSichWas;
    procedure DoSynchronize; // Methode, die im Thread mit Synchronize aufgerufen wird
  public
    property OnTutSichWas: TOnTutSichWas read FOnTutSichWas write FOnTutSichWas;
  end;

{...}

procedure TMyThread.DoSynchronize;
begin
  if Assigned(FOnTutSichWas) then
    FOnTutSichWas(Self, FMyData);
end;

Eine Message versende ich nur, wenn der Thread auf ein Ereignis warten muss und mehr nicht, also dem Hauptthread nur mitteilen muss, "Hey da tut sich was, schau mal nach."