OnMQTTConnect Zdarzenie

Wywoływane po odebraniu CONNACK; raportuje flagę Session, ReasonCode i właściwości ConnectProperties MQTT 5.

Składnia

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

Wartość domyślna

—

Uwagi

Wywoływane, gdy broker potwierdza polecenie CONNECT komunikatem CONNACK. Jest to pierwszy moment, w którym sesja MQTT jest w pełni użyteczna; wywołanie Subscribe / Publish wewnątrz tej procedury obsługi jest bezpieczne. Parametry:

Session — stan sesji po stronie brokera. Przy CleanSession = True broker musi odpowiedzieć Session = False. Przy CleanSession = False, Session = True oznacza, że broker nadal posiadał zapisany stan dla tego ClientIdentifier, a Session = False oznacza, że go nie posiadał.
ReasonCode (MQTT 5) — numeryczny powód CONNACK (0 = Sukces).
ReasonName (MQTT 5) — czytelny dla człowieka opis kodu ReasonCode.
ConnectProperties (MQTT 5) — możliwości brokera i wynegocjowane limity: SessionExpiryInterval, ReceiveMaximum, MaximumQoS, RetainAvailable, MaximumPacketSize, AssignedClientIdentifier, TopicAliasMaximum, ReasonString, UserProperties, WildcardSubscriptionAvailable, SubscriptionIdentifiersAvailable, SharedSubscriptionAvailable, ResponseInformation, ServerReference, AuthenticationMethod i AuthenticationData.

Przykład

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;

Powrót do Zdarzeń