TsgcWSPClient_MQTT › Events › OnMQTTSubscribe

OnMQTTSubscribe Event

Disparado quando um SUBACK é recebido em resposta a Subscribe; expõe códigos de motivo por tópico e SubscribeProperties do MQTT 5.

Sintaxe

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

Valor Padrão

—

Observações

Gerado quando o broker responde com um SUBACK a uma requisição SUBSCRIBE. O broker pode aceitar, aceitar parcialmente ou rejeitar filtros de tópico individuais na requisição, portanto o evento entrega um código por filtro. Parâmetros:

• aPacketIdentifier — id de pacote de 16 bits do SUBSCRIBE original.
• aCodes — um array TsgcWSSUBACKS com uma entrada por filtro de tópico. Os valores 0x00/0x01/0x02 significam que a assinatura foi aceita com o QoS máximo concedido; os valores 0x80 e acima (o MQTT 5 também adiciona 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2) indicam que o filtro foi rejeitado. Inspecione cada código para confirmar quais filtros tiveram sucesso.
• SubscribeProperties (MQTT 5) — ReasonString e UserProperties retornados pelo broker.

Exemplo

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;

Voltar para Eventos