type credentials = | Credentials of string * string| Username of string
Client authentication credentials.
MQTT supports two authentication methods: username with password, or username only.
The credentials will be sent in plain text, unless TLS is used. See connection options for more information.
Client error & exceptions
Defines the exceptions raised by the client
exception Connection_errortype qos = | Atmost_once| Atleast_once| Exactly_once
Quality of Service level.
Defines the guarantee of delivery for messages.
val connect :
3 | ?id:string ->
4 | ?tls_ca:string ->
5 | ?credentials:credentials ->
6 | ?will:(string * string) ->
7 | ?clean_session:bool ->
8 | ?keep_alive:int ->
9 | ?on_message:(topic:string -> string -> unit Lwt.t) ->
10 | ?on_disconnect:(t -> unit Lwt.t) ->
11 | ?on_error:(t -> exn -> unit Lwt.t) ->
12 | ?port:int ->
13 | string list ->
14 | t Lwt.tConnects to the MQTT broker.
Multiple hosts can be provided in case the broker supports failover. The client will attempt to connect to each one of hosts sequentially until one of them is successful.
on_error can be provided to handle errors during client's execution. By default all internal exceptions will be raised with Lwt.fail.
Note: Reconnection logic is not implemented currently.
let broker_hosts = [ ("host-1", "host-2") ] in
15 |
16 | let on_message ~topic payload =
17 | Lwt.printlf "topic=%S payload=%S" topic payload
18 | in
19 |
20 | Mqtt_client.connect ~id:"my-client" ~port:1883 ~on_message broker_hosts
21 | |> Lwt_main.run
val disconnect : t -> unit Lwt.tDisconnects the client from the MQTT broker.
let%lwt () = Mqtt_client.disconnect client
val publish :
22 | ?dup:bool ->
23 | ?qos:qos ->
24 | ?retain:bool ->
25 | topic:string ->
26 | string ->
27 | t ->
28 | unit Lwt.tPublish a message with payload to a given topic.
let payload = "Hello world";
29 | let%lwt () = Mqtt_client.publish(~topic="news", payload, client);
val subscribe : (string * qos) list -> t -> unit Lwt.tSubscribes the client to a non-empty list of topics.
let topics =
30 | [
31 | ("news/fashion", Mqtt_client.Atmost_once);
32 | ("news/science", Mqtt_client.Atleast_once);
33 | ]
34 | in
35 | Mqtt_client.subscribe topics client