TsgcWSPServer_Presence › Events › OnBeforeSendMembers

OnBeforeSendMembers Event

Fired before the channel member list is sent to a subscriber; set Accept to False to suppress it.

Syntax

property OnBeforeSendMembers: TsgcWSPresenceBeforeSendMembersEvent;
// TsgcWSPresenceBeforeSendMembersEvent = procedure(Connection: TsgcWSConnection; const aChannel: TsgcWSPresenceChannel; const aMember: TsgcWSPresenceMember; var Accept: Boolean) of object

Default Value

—

Remarks

Called just before the server replies to a GetMembers request with the roster of a channel. Set Accept to False to hide the member list (for example when the requesting member is not authorized to see it); otherwise the list is returned to the requester.

Example

procedure TForm1.sgcWSPServer_Presence1BeforeSendMembers(Connection: TsgcWSConnection;
  const aChannel: TsgcWSPresenceChannel; const aMember: TsgcWSPresenceMember;
  var Accept: Boolean);
begin
  if aChannel.Name = 'Private' then
    Accept := False;
end;

Back to Events