TsgcWSPClient_MQTT › Événements › OnMQTTSubscribe

OnMQTTSubscribe Event

Se déclenche lorsqu'un SUBACK est reçu en réponse à Subscribe ; expose les codes de raison par topic et les SubscribeProperties MQTT 5.

Syntaxe

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

Valeur par défaut

—

Remarques

Déclenché lorsque le courtier répond avec un SUBACK à une demande SUBSCRIBE. Le courtier peut accepter, accepter partiellement ou rejeter des filtres de sujets individuels dans la demande, de sorte que l'événement livre un code par filtre. Paramètres :

• aPacketIdentifier — identifiant de paquet 16 bits du SUBSCRIBE original.
• aCodes — un tableau TsgcWSSUBACKS avec une entrée par filtre de sujet. Les valeurs 0x00/0x01/0x02 signifient que l'abonnement a été accepté avec le QoS maximum accordé ; les valeurs 0x80 et au-dessus (MQTT 5 ajoute également 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2) indiquent que le filtre a été rejeté. Inspectez chaque code pour confirmer quels filtres ont réussi.
• SubscribeProperties (MQTT 5) — ReasonString et UserProperties retournés par le courtier.

Exemple

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;

Retour aux événements