TsgcWSPClient_MQTT › Ereignisse › OnMQTTSubscribe

OnMQTTSubscribe Ereignis

Wird ausgelöst, wenn ein SUBACK als Antwort auf Subscribe empfangen wird; macht Reason-Codes pro Topic und MQTT-5-SubscribeProperties zugänglich.

Syntax

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

Standardwert

—

Hinweise

Wird ausgelöst, wenn der Broker mit einem SUBACK auf eine SUBSCRIBE-Anforderung antwortet. Der Broker kann einzelne Topic-Filter in der Anforderung akzeptieren, teilweise akzeptieren oder ablehnen, sodass das Ereignis einen Code pro Filter liefert. Parameter:

• aPacketIdentifier — 16-Bit-Paket-id des ursprünglichen SUBSCRIBE.
• aCodes — ein TsgcWSSUBACKS-Array mit einem Eintrag pro Topic-Filter. Die Werte 0x00/0x01/0x02 bedeuten, dass das Abonnement mit der gewährten maximalen QoS akzeptiert wurde; Werte 0x80 und höher (MQTT 5 fügt zusätzlich 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2 hinzu) zeigen an, dass der Filter abgelehnt wurde. Inspizieren Sie jeden Code, um zu bestätigen, welche Filter erfolgreich waren.
• SubscribeProperties (MQTT 5) — ReasonString und UserProperties, die vom Broker zurückgegeben werden.

Beispiel

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;

Zurück zu Ereignissen