DEB DelphiEventBus vs. System.Messaging.TMessageManager

[TiGü]

Zitat von Rollo62:

Ich hatte versucht mir das mit Generics in eine abgeleitete Klasse zu basteln,
damit ich noch spezifisches Payload als Parameter und Feedback als Result-Wert mit übergeben kann.

Du kannst auch sowas machen:

Delphi-Quellcode:

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

  TMyGenericMessage = System.Messaging.TMessage<TMyMessageContainer>;

  // oder noch mehr generisch:

  TMyGenericMessageContainer<T,K> = class
  public
    Prop1: T;
    Prop2: K;
  end;

  TMyMegaGenericMessage = System.Messaging.TMessage<TMyGenericMessageContainer<string, Integer>>;

[Rollo62]

Hallo Tigü,

ja das sieht super interessant aus, kannte ich noch gar nicht.
Mir war gar nicht aufgefallen das da schon Generics drin sind:

Zitat:

TMessage = class abstract;
TMessage<T> = class (TMessage)

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 ?
Aus besagten Gründen habe ich das als Record eingebaut.

Rollo

[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