TsgcWSPClient_MQTT › 事件 › OnMQTTSubscribe

OnMQTTSubscribe 事件

当收到 SUBACK 作为 Subscribe 响应时触发；公开每个主题的原因码和 MQTT 5 SubscribeProperties。

语法

property OnMQTTSubscribe: TsgcWSMQTTSubscribeEvent;
// TsgcWSMQTTSubscribeEvent = procedure(Connection: TsgcWSConnection; aPacketIdentifier: Word; aCodes: TsgcWSSUBACKS; SubscribeProperties: TsgcWSMQTTSUBACKProperties) of object

默认值

—

备注

当代理以 SUBACK 回复 SUBSCRIBE 请求时触发。代理可以接受、部分接受或拒绝请求中的各个主题过滤器，因此事件为每个过滤器提供一个代码。参数：

• aPacketIdentifier——原始 SUBSCRIBE 的 16 位数据包 ID。
• aCodes——一个 TsgcWSSUBACKS 数组，每个主题过滤器对应一个条目。值 0x00/0x01/0x02 表示订阅已被接受并授予了最大 QoS；值 0x80 及以上（MQTT 5 还新增了 0x83、0x87、0x8F、0x91、0x97、0x9E、0xA1、0xA2）表示过滤器被拒绝。检查每个代码以确认哪些过滤器成功。
• SubscribeProperties（MQTT 5）— 代理返回的 ReasonString 和 UserProperties。

示例

procedure TForm1.MQTTSubscribe(Connection: TsgcWSConnection;
  aPacketIdentifier: Word; aCodes: TsgcWSSUBACKS;
  SubscribeProperties: TsgcWSMQTTSUBACKProperties);
var
  i: Integer;
begin
  for i := 0 to Length(aCodes) - 1 do
    if aCodes[i] < $80 then
      Memo1.Lines.Add(Format('subscription %d accepted (QoS %d)',
        [i, aCodes[i]]))
    else
      Memo1.Lines.Add(Format('subscription %d rejected (code $%x)',
        [i, aCodes[i]]));
end;

返回事件