Presence Protokolü

uses
  sgcWebSocket, sgcWebSocket_Server, sgcWebSocket_Protocol_Presence_Server,
  sgcWebSocket_Protocol_Presence_Client, sgcWebSocket_Protocol_Presence_Message;

// --- sunucu tarafı --------------------------------------------
ServerPresence := TsgcWSPServer_Presence.Create(nil);
ServerPresence.Server := WSServer;

// --- istemci tarafı --------------------------------------------
ClientPresence := TsgcWSPClient_Presence.Create(nil);
ClientPresence.Client := WSClient;
ClientPresence.Presence.Name := 'alice';
WSClient.Active := True;

ClientPresence.Subscribe('room-42');
ClientPresence.Publish('hello room-42', 'room-42');
ClientPresence.GetMembers;