TsgcWSPClient_MQTT › Eventos › OnMQTTSubscribe

OnMQTTSubscribe Evento

Se activa cuando se recibe un SUBACK en respuesta a Subscribe; expone los códigos de motivo por tema y las SubscribeProperties de MQTT 5.

Sintaxis

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

Valor Predeterminado

—

Observaciones

Se genera cuando el broker responde con un SUBACK a una solicitud SUBSCRIBE. El broker puede aceptar, aceptar parcialmente o rechazar filtros de temas individuales en la solicitud, por lo que el evento proporciona un código por filtro. Parámetros:

• aPacketIdentifier — id de paquete de 16 bits del SUBSCRIBE original.
• aCodes — un array TsgcWSSUBACKS con una entrada por cada filtro de tema. Los valores 0x00/0x01/0x02 indican que la suscripción fue aceptada con el QoS máximo concedido; los valores 0x80 y superiores (MQTT 5 también añade 0x83, 0x87, 0x8F, 0x91, 0x97, 0x9E, 0xA1, 0xA2) indican que el filtro fue rechazado. Inspeccione cada código para confirmar qué filtros tuvieron éxito.
• SubscribeProperties (MQTT 5) — ReasonString y UserProperties devueltos por el broker.

Ejemplo

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;

Volver a Eventos