TsgcWSPClient_MQTT › Olaylar › OnMQTTSubscribe

OnMQTTSubscribe Olay

Subscribe'a yanıt olarak bir SUBACK alındığında tetiklenir; konu başına neden kodlarını ve MQTT 5 SubscribeProperties'i gösterir.

Sözdizimi

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

Varsayılan Değer

—

Remarks

Broker, bir SUBSCRIBE isteğine bir SUBACK ile yanıt verdiğinde tetiklenir. Broker, istekteki tek tek konu filtrelerini kabul edebilir, kısmen kabul edebilir veya reddedebilir, bu nedenle olay filtre başına bir kod teslim eder. Parametreler:

• aPacketIdentifier — orijinal SUBSCRIBE'ın 16 bitlik paket kimliği.
• aCodes — topic filtresi başına bir girişle bir TsgcWSSUBACKS dizisi. 0x00/0x01/0x02 değerleri, aboneliğin verilen maksimum QoS ile kabul edildiği anlamına gelir; 0x80 ve üzeri değerler (MQTT 5 ayrıca 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2 ekler) filtrenin reddedildiğini gösterir. Hangi filtrelerin başarılı olduğunu onaylamak için her kodu inceleyin.
• SubscribeProperties (MQTT 5) — broker tarafından döndürülen ReasonString ve UserProperties.

Örnek

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;

Olaylara Dön