TMqttClient - Exemples
| TMqttClient = class (TObject) | Interface de TMqttClient | Exemples de TMqttClient |
uses SysUtils, Networking.MQTT.Client;
var a := TMqttClientTCP.Create('test.mosquitto.org', 8883, True, 'ce781fea8ff76a41ffaced4dc27c88e297d6302a0bbd15f0c8b569fcb9f5c798');
a.Connect;
a.Subscribe(['revspace/sensors/temperature']);
a.CheckBrokerMessagesAndUpdateClientState;
if a.UnreadReceivedPublicationsCount > 0 then
PrintLn(UTF8ToString(a.ReadNextReceivedPublication.ApplicationMessage))
else
PrintLn('Nothing received');
var a := TMqttClientTCP.Create('test.mosquitto.org', 8883, True, 'ce781fea8ff76a41ffaced4dc27c88e297d6302a0bbd15f0c8b569fcb9f5c798');
a.Connect;
a.Subscribe(['revspace/sensors/temperature']);
a.CheckBrokerMessagesAndUpdateClientState;
if a.UnreadReceivedPublicationsCount > 0 then
PrintLn(UTF8ToString(a.ReadNextReceivedPublication.ApplicationMessage))
else
PrintLn('Nothing received');