TsgcWSPServer_sgc › 事件 › OnBeforeSubscription

OnBeforeSubscription 事件

在订阅被接受之前触发；处理程序可以拒绝或授权订阅。

语法

property OnBeforeSubscription: TsgcWSBeforeSubscriptionEvent;
// TsgcWSBeforeSubscriptionEvent = procedure(Connection: TsgcWSConnection; const Subscription: String; var Accept: Boolean) of object

默认值

—

备注

当客户端调用 Subscribe 时触发，每个频道触发一次（通配符订阅在事件触发前会先展开）。检查 Subscription 中的频道名称，并将 Accept 设置为 False 以拒绝订阅；此时客户端不会收到任何订阅确认。Accept 初始值为 True。

示例

procedure TForm1.oProtocolBeforeSubscription(Connection: TsgcWSConnection;
  const Subscription: String; var Accept: Boolean);
begin
  Accept := not Subscription.StartsWith('admin.');
end;

返回事件