I was learning how to use multicast event in RO
i create a demo , but it seems not working well.
I call the event in ServerForm:
procedure TServerForm.Button1Click(Sender: TObject);
ev := (ROInMemoryEventRepository1 as IMulticastTestEvent_Writer);
ev.ExcludeSender := False;
After the client connect to server, i click the button1, the event seems not working.
If i call the Sum function and trigger the event, which at MulticastService_Impl.pas, the Event in Button1 send to client, and it works well.
if i comment the event in the Sum function, the Event in Button1 never send to client.
Do i forggot to set something? The attachment is the demo.
MulticastProject.zip (114.6 KB)
I can manully AddSession for the session, to make it works, the AutoRegisterSession not woks?