TsgcWSPServer_Presence › Events › OnBeforeNewChannelMember

OnBeforeNewChannelMember Event

Fired before a member is added to an existing channel; set Accept to False to refuse.

Syntax

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

Default Value

—

Remarks

Called when a member wants to join a channel that already exists. The server can accept or reject the subscription by setting Accept. By default every member is accepted.

Example

procedure TForm1.sgcWSPServer_Presence1BeforeNewChannelMember(Connection: TsgcWSConnection;
  const aChannel: TsgcWSPresenceChannel; const aMember: TsgcWSPresenceMember;
  var Accept: Boolean);
begin
  if aMember.Name = 'John' then
    Accept := True
  else if aMember.Name = 'Spam' then
    Accept := False;
end;

Back to Events