DEB DelphiEventBus vs. System.Messaging.TMessageManager

[TiGü]

Zitat von Rollo62:

Delphi-Quellcode:

  TMyMessageContainer = class
  public
    Text: string;
    Number: Integer;
  end;

Ist das jetzt eine Klasse, oder nicht ?

Wenn ja, wie wird Create und Destroy dabei aufgerufen ?

Na, ganz normal:

Delphi-Quellcode:

var
  MyContainer: TMyMessageContainer;
begin
  MyContainer := TMyMessageContainer.Create;
  MyContainer.Text := 'hallo';
  ...
  MyContainer.Free;
end;

Kannst natürlich noch einen überladenden Konstruktor hinzufügen, der als Argument die Parameter für die Felder übernimmt.

[Rollo62]

Hallo TiGü,

genau das macht mir Angst.

Sender macht Create, und wer Free'D das Ganze ?

Deshalb war ich auf Records umgestiegen.

Dein Beispiel unten liess mich hoffen das kein separates Create/Destroy nötig
 TMyMegaGenericMessage.Create
Könnte man vielleicht damit verheiraten, so das es sich über ADipose selbst zerstört.

Delphi-Quellcode:

procedure TMessageManagerHelper.SendMessageAsynch(const Sender: TObject; AMessage: TMessage; ADelayMS: Cardinal;
  ADispose: Boolean);
begin
  TTask.Run(
    procedure
    begin
      if ADelayMS > 0 then begin
        Sleep(ADelayMS);
      end;
      TThread.Queue(nil,
        Self.SendMessage(Sender, AMessage, ADelayMS);
    end);
end;

procedure TMessageManagerHelper.SendMessageAsynch(const Sender: TObject; AMessage: TMessage; ADispose: Boolean);
begin
  SendMessageAsynch(Sender, AMessage, 0, ADispose);
end;

Rollo

[Uwe Raabe]

Für diese Fälle gibt es ja TObjectMessage<T: class> = class(TMessage<T>) . Dem kann man im Create mitgeben, ob es sich um die Freigabe der Instanz kümmern soll.

[Rollo62]

Wieder was dazugelernt ...

Dankesehr

Rolf