TsgcWSPClient_MQTT › Eventos › OnMQTTConnect

OnMQTTConnect Event

Disparado após o CONNACK ser recebido; reporta a flag Session, ReasonCode e ConnectProperties do MQTT 5.

Sintaxe

property OnMQTTConnect: TsgcWSMQTTConnectEvent;
// TsgcWSMQTTConnectEvent = procedure(Connection: TsgcWSConnection; const Session: Boolean; const ReasonCode: Integer; const ReasonName: String; const ConnectProperties: TsgcWSMQTTCONNACKProperties) of object

Valor Padrão

—

Observações

Gerado quando o broker confirma o CONNECT com um CONNACK. Este é o primeiro momento em que a sessão MQTT está totalmente utilizável — é seguro chamar Subscribe / Publish de dentro deste handler. Parâmetros:

• Session — estado da sessão do lado do broker. Com CleanSession = True o broker deve responder com Session = False. Com CleanSession = False, Session = True significa que o broker ainda tinha estado armazenado para este ClientIdentifier, Session = False significa que não tinha.
• ReasonCode (MQTT 5) — motivo numérico do CONNACK (0 = Sucesso).
• ReasonName (MQTT 5) — descrição legível para humanos do ReasonCode.
• ConnectProperties (MQTT 5) — capacidades do broker e limites negociados: SessionExpiryInterval, ReceiveMaximum, MaximumQoS, RetainAvailable, MaximumPacketSize, AssignedClientIdentifier, TopicAliasMaximum, ReasonString, UserProperties, WildcardSubscriptionAvailable, SubscriptionIdentifiersAvailable, SharedSubscriptionAvailable, ResponseInformation, ServerReference, AuthenticationMethod e AuthenticationData.

Exemplo

procedure TForm1.MQTTConnect(Connection: TsgcWSConnection;
  const Session: Boolean; const ReasonCode: Integer;
  const ReasonName: String;
  const ConnectProperties: TsgcWSMQTTCONNACKProperties);
begin
  if ReasonCode <> 0 then
  begin
    Memo1.Lines.Add('Connect rejected: ' + ReasonName);
    Exit;
  end;

  Memo1.Lines.Add(Format('Connected. Session=%s MaxQoS=%d',
    [BoolToStr(Session, True), ConnectProperties.MaximumQoS]));

  // now it is safe to subscribe and publish
  MQTT.Subscribe('sensors/#', mtqsAtLeastOnce);
end;

Voltar para Eventos