TsgcWSPClient_MQTT › Gebeurtenissen › OnMQTTDisconnect
Wordt geactiveerd wanneer de broker een DISCONNECT stuurt of de sessie is gesloten; meldt ReasonCode en MQTT 5 DisconnectProperties.
property OnMQTTDisconnect: TsgcWSMQTTDisconnectEvent;
// TsgcWSMQTTDisconnectEvent = procedure(Connection: TsgcWSConnection; ReasonCode: Integer; const ReasonName: String; DisconnectProperties: TsgcWSMQTTDISCONNECTProperties) of object
—
Signaleert dat de MQTT-sessie wordt beëindigd. MQTT 3.1.1 heeft geen door de server geïnitieerd DISCONNECT-pakket, dus in dat geval weerspiegelt de gebeurtenis een lokaal gedetecteerde sluiting. MQTT 5.0 introduceert een DISCONNECT-pakket dat de broker kan verzenden om uit te leggen waarom de verbinding wordt gesloten. Parameters:
Gebruik dit evenement om de oorzaak te loggen, de UI-status bij te werken en, als ServerReference is ingesteld, te overwegen opnieuw verbinding te maken met de voorgestelde broker.
procedure TForm1.MQTTDisconnect(Connection: TsgcWSConnection;
ReasonCode: Integer; const ReasonName: String;
DisconnectProperties: TsgcWSMQTTDISCONNECTProperties);
begin
Memo1.Lines.Add(Format('Disconnect %d (%s)',
[ReasonCode, ReasonName]));
if DisconnectProperties.ServerReference <> '' then
Memo1.Lines.Add('Broker suggests: ' +
DisconnectProperties.ServerReference);
end;