TsgcWSPClient_MQTT › Events › OnMQTTSubscribe

OnMQTTSubscribe Gebeurtenis

Wordt geactiveerd wanneer een SUBACK wordt ontvangen als reactie op Subscribe; biedt per-onderwerp redencodes en MQTT 5 SubscribeProperties.

Syntaxis

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

Standaardwaarde

—

Opmerkingen

Wordt gegenereerd wanneer de broker antwoordt met een SUBACK op een SUBSCRIBE-verzoek. De broker kan afzonderlijke onderwerpfilters in het verzoek accepteren, gedeeltelijk accepteren of weigeren, dus de gebeurtenis levert per filter een code af. Parameters:

• aPacketIdentifier — 16-bits pakket-id van de originele SUBSCRIBE.
• aCodes — een TsgcWSSUBACKS-array met één vermelding per onderwerpfilter. Waarden 0x00/0x01/0x02 betekenen dat het abonnement is geaccepteerd met de verleende maximale QoS; waarden 0x80 en hoger (MQTT 5 voegt ook 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2 toe) geven aan dat het filter is geweigerd. Inspecteer elke code om te bevestigen welke filters zijn geslaagd.
• SubscribeProperties (MQTT 5) — ReasonString en UserProperties geretourneerd door de broker.

Voorbeeld

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;

Terug naar gebeurtenissen