如何用OCaml语言对接远程温湿度监测传感器

2026-05-18 发布浏览：604 次

本文介绍了如何用 OCaml 对接智能温湿度传感器的方法：可以通过接口实现温湿度数据实时采集、HTTP接口数据上报、温湿度变化监测、数据上传至指定URL、温湿度阈值联动触发、与其他设备联动控制、远程温湿度数据监测、远程温湿度阈值设置、远程温湿度异常告警、场景联动温湿度控制、多设备联动控制、自定义温湿度联动逻辑控制、远程参数配置管理、设备运行状态监控、故障告警通知、温湿度数据存储与统计、定时温湿度数据上报、温湿度曲线生成。

智能温湿度传感器

高精度温湿度传感芯片；

体积小巧，即插即用，无需接线；

温度、湿度变化时，上报数据到您设定的URL；

支持与其他设备联动，在指定温湿度范围内执行相应动作；

更多...

适用场景

智能家居温湿度监测、共享场所环境管理、智能办公温湿度控制、安全节能场景联动、门店环境监测、会议室温湿度管理、舞蹈室环境控制、设备机房温湿度监测、弱电间环境联动、线下服务场景环境管理、无人值守环境监测场景、智能家居温湿度监测、共享场所环境管理、智能办公温湿度控制、安全节能场景联动、门店环境监测、会议室温湿度管理、舞蹈室环境控制、设备机房温湿度监测、弱电间环境联动、线下服务场景环境管理、无人值守环境监测场景、酒店客房温湿度监测、民宿房间环境管理、共享棋牌室温湿度控制、共享自习室环境监测、共享茶室环境管理、共享台球室温湿度控制、共享麻将馆环境监测、无人值守门店环境管理、自助设备环境监测、共享健身房环境管理、共享充电站温湿度控制、智慧教室环境监测、培训机构教室环境管理、图书馆自习室温湿度控制、创客工坊设备环境监测、学校活动室环境管理、培训教室温湿度控制、餐厅包厢环境监测、便利店环境管理、银行网点温湿度控制、医院病房环境监测、展会现场环境管理、活动现场温湿度控制、工厂车间环境监测、仓储仓库温湿度管理、农业养殖环境监测、实验室环境管理、办公设备环境联动、冷链物流环境监测、医疗设备环境管理、博物馆文物环境监测

支持命令

传感模块	sht_enable
LED灯	led

产品手册

版本	对应产品手册
白色	《智能温湿度传感器产品手册》

HTTP接口控制以设备控制（向设备下发命令）为例

(* First you need to prepare the following values *)
(* 1. AppID (in your console development settings) *)
(* 2. AppSecret (in your console development settings) *)
(* 3. ts (timestamp of the current time, seconds) *)
(* 4. YourSign = md5(md5(AppSecret)ts);(md5 is an encryption method, AppSecret is the AppSecret prepared above, ts is the timestamp prepared above, concatenate the string after the AppSecret after md5 encryption) *)
(* In simple terms, the signature is md5(md5(your developer password)concatenate the above ts timestamp value); ts is the timestamp of the current timestamp; that is, to perform one MD5 on the developer password (AppSecret), then concatenate the timestamp, and then perform one MD5 on the entire concatenated string *)
(* Core request address: api.thingboot.com/AppID/device/control/?sign=YourSign&&ts=ts; *)
(* Request needs to pass two parameters device and order: *)
(* device[string]: unique device ID, can pass multiple [separated by ,], can be viewed in the console, or pulled through the interface *)
(* order[json string]: the command to be issued, for example: *)
(* {"power":1}, usually to connect the circuit of the switch *)
(* {"power3":0}, usually to close the third line of the switch or controller *)
(* {"play:gbk:16":"hello, welcome to visit"}, let the voice speaker report the specified content *)
(* The same type of product, the command is the same, different product types of commands, please view the product manual page of each product *)
(* Note: you must replace the formal AppID and AppSecret with real-time timestamp calculation of the signature, the request must have device device ID and order command *)

(* 确保安装了必要的库 opam install cohttp digestif *)

open Lwt.Infix
open Cohttp
open Cohttp_lwt_unix

let () =
  (* 配置参数 *)
  let app_id = "实际AppID" in       (* 替换为你的AppID *)
  let app_secret = "实际AppSecret" in (* 替换为你的AppSecret *)
  let device_id = "1878" in         (* 替换为你的设备ID *)
  let command = "{\"power1\":1}" in  (* 替换为你的控制命令 *)

  (* 计算时间戳 *)
  let ts = int_of_float (Unix.time ()) in

  (* 计算签名 [严格按 md5(md5(密码)+时间戳) 逻辑] *)
  let first_md5 = Digestif.MD5.digest_string app_secret |> Digestif.MD5.to_hex in
  let sign_input = first_md5 ^ string_of_int ts in
  let sign = Digestif.MD5.digest_string sign_input |> Digestif.MD5.to_hex in

  (* 构造请求 URL *)
  let url = Printf.sprintf 
    "https://api.thingboot.com/%s/device/control/?sign=%s&ts=%d" 
    app_id sign ts 
  in

  (* 构造请求体 *)
  let request_body =
    let open Yojson.Basic in
    let order = from_string command in
    `Assoc [
      ("device", `String device_id);
      ("order", order)
    ] 
  in

  (* 创建 HTTP 请求 *)
  let headers = Header.add (Header.init ()) "Content-Type" "application/json" in
  let request = Request.make headers `POST (Uri.of_string url) in

  (* 发送请求并处理响应 *)
  let body_str = 
    Client.call request (Body.of_string (Yojson.Basic.to_string request_body))
    >>= fun (response, body) ->
    match response.status with
    | #Http_status.Code.successful_status ->
       Cohttp_lwt.Body.to_string body
    | code ->
       Lwt.return (Printf.sprintf "请求失败: %d" (Http_status.Code.code_of code))
  in

  (* 输出结果 *)
  body_str >>= fun body ->
  print_endline body;
  Lwt.return ()
  |> Lwt_main.run

(* 将上述代码保存为一个 .ml 文件（如 request.ml），然后使用 OCaml 编译器和运行时环境运行 *)
(* ocamlfind opt -linkpkg -package cohttp,digestif,yojson request.ml -o request && ./request *)

说明：{AppID}为您的应用ID（由平台生成），免费注册登录后，可在控制台查看；sign和ts的取值，请参考文档。