OnMQTTSubscribe Zdarzenie

Wywoływane po odebraniu pakietu SUBACK w odpowiedzi na subskrypcję; udostępnia kody powodów dla poszczególnych tematów oraz właściwości SubscribeProperties protokołu MQTT 5.

Składnia

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

Wartość domyślna

—

Uwagi

Wywoływane, gdy broker odpowiada wiadomością SUBACK na żądanie SUBSCRIBE. Broker może zaakceptować, częściowo zaakceptować lub odrzucić poszczególne filtry tematów w żądaniu, dlatego zdarzenie dostarcza kod dla każdego filtru. Parametry:

aPacketIdentifier — 16-bitowy identyfikator pakietu oryginalnego SUBSCRIBE.
aCodes — tablica TsgcWSSUBACKS zawierająca jeden wpis na filtr tematu. Wartości 0x00/0x01/0x02 oznaczają, że subskrypcja została zaakceptowana z przyznanym maksymalnym QoS; wartości 0x80 i powyżej (MQTT 5 dodaje również 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2) wskazują, że filtr został odrzucony. Należy sprawdzić każdy kod, aby potwierdzić, które filtry zostały zaakceptowane.
SubscribeProperties (MQTT 5) — ReasonString i UserProperties zwrócone przez broker.

Przykład

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;

Powrót do Zdarzeń