TsgcWSPServer_sgc › 事件 › OnMessage
当客户端在 sgc 信封中发送纯文本消息时触发。
property OnMessage: TsgcWSMessageEvent;
// TsgcWSMessageEvent = procedure(Connection: TsgcWSConnection; const Text: string) of object
—
当客户端调用 WriteData,或收到 method 字段为 message 的 Broadcast 时触发。sgc 信封已剥离,因此 Text 保存客户端发送的载荷。Subscribe/Publish 流量不经过此事件——发布在服务器端呈现于 OnBeforePublish,在客户端呈现于 OnEvent。
procedure TForm1.oProtocolMessage(Connection: TsgcWSConnection; const Text: string);
begin
Memo1.Lines.Add(Connection.Guid + ': ' + Text);
end;