I call the event in ServerForm:
procedure TServerForm.Button1Click(Sender: TObject);
var
ev: IMulticastTestEvent_Writer;
begin
ev := (ROInMemoryEventRepository1 as IMulticastTestEvent_Writer);
ev.ExcludeSender := False;
ev.NoticeUser(EmptyGUID);
end;
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.
AutoRegisterSession (declared in TROBaseSuperTCPServer)
This property is used by the server to automatically sign new clients up to the event repository, to make it possible fo them to receive events without manual registration.
Note: by security reasons, session isn’t create automatically so you need to create it manually with CreateSession
Also you have used wrong SessionManager: TROEventSessionManager. in this session manager, you have to manually implement events otherwise it won’t be functional. see above link for more details.