TsgcWSPServer_Presence › Events › OnBeforeNewMember

OnBeforeNewMember Event

Fired before a client joins as a Presence member; set Accept to False to reject.

Syntax

property OnBeforeNewMember: TsgcWSPresenceBeforeNewMember;
// TsgcWSPresenceBeforeNewMember = procedure(aConnection: TsgcWSConnection; aMember: TsgcWSPresenceMember; var Accept: Boolean) of object

Default Value

—

Remarks

When a new client connects it first sends member data so the server can decide whether to admit it. Use this event to apply authentication, anti-spam rules, or quota checks and set Accept to False to refuse the member. By default all members are accepted.

Example

procedure TForm1.sgcWSPServer_Presence1BeforeNewMember(aConnection: TsgcWSConnection;
  const aMember: TsgcWSPresenceMember; var Accept: Boolean);
begin
  if aMember.Name = 'Spam' then
    Accept := False;
end;

Back to Events