TsgcWSPServer_sgc › 事件 › OnBeforePublish
在客户端发布被广播之前触发;处理器可重写或拒绝该发布。
property OnBeforePublish: TsgcWSBeforePublish;
// TsgcWSBeforePublish = procedure(Connection: TsgcWSConnection; const aChannel: String; var aText: String; var Accept: Boolean) of object
—
在处理客户端发起的 Publish 时触发,发生在消息到达任何订阅者之前。检查 aChannel 以授权发布,修改 aText 以过滤或重写有效载荷,并将 Accept 设置为 False 以静默丢弃消息。Accept 初始值为 True。
procedure TForm1.oProtocolBeforePublish(Connection: TsgcWSConnection;
const aChannel: String; var aText: String; var Accept: Boolean);
begin
Accept := aChannel <> 'private';
end;