Publish 方法
发布 MQTT 消息。
语法
retCode
= mqttClient
.Publish
(message As MQTTMessage
)其中
retCode
- 是 MqttPublishCode 对象的常量。mqttClient
- 是由 MQTTFactory 对象的方法 CreateClient
创建的 MQTTClient 对象。示例
Dim retCode As MqttPublishCode Dim msg As MQTTMessage Dim data() As Byte Set msg = MqttFactory.CreateApplicationMessage() msg.PayloadFormat = MqttPayloadCharacter msg.contenttype = "String" msg.Topic = "Topic" msg.payload = "This is the msg text." msg.SubscriptionIdentifiers = CLng(1) data = StrConv("This is the correlation.", vbFromUnicode) msg.correlation = data msg.ResponseTopic = "This is the response topic." msg.AddUserProperty "Head1", "Node1" msg.QoS = MqttQoS2 retCode = mqttClient.Publish(msg)
提供反馈