TsgcWSPClient_MQTT › Olaylar › OnMQTTConnect
CONNACK alındıktan sonra tetiklenir; Session bayrağını, ReasonCode'u ve MQTT 5 ConnectProperties öğelerini raporlar.
property OnMQTTConnect: TsgcWSMQTTConnectEvent;
// TsgcWSMQTTConnectEvent = procedure(Connection: TsgcWSConnection; const Session: Boolean; const ReasonCode: Integer; const ReasonName: String; const ConnectProperties: TsgcWSMQTTCONNACKProperties) of object
—
Broker, CONNECT'i bir CONNACK ile onayladığında tetiklenir. Bu, MQTT oturumunun tam olarak kullanılabilir hale geldiği ilk andır, bu işleyicinin içinden Subscribe / Publish çağırmak güvenlidir. Parametreler:
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;