如何用OCaml语言控制8路智能照明开关

2026-05-31 发布浏览：93 次

本文介绍了如何用 OCaml 对接智能照明控制器|8路的方法：可以通过接口实现8路独立线路控制、远程控制8路照明设备通断、定时开关照明设备电源、8路照明设备电源状态监测、分路控制灯光与电器、设备电源批量管控、远程定时任务、自定义联动操作、远程开关状态查询、场景联动照明控制、多设备联动控制、远程批量开关控制、延时通断控制、设备运行状态监控、远程参数配置管理、故障告警通知、过流过载保护控制、设备分组控制。

智能照明控制器|8路

提供8路交流10A或16A输出，可接照明、电器等；

广泛应用于共享台球室、共享自习室、共享充电等场景；

同时提供8路开关量信号输入，可外接轻触开关；

8路分控，均可通过HTTP接口远程独立控制通断；

支持远程定时任务，支持自定义联动操作；

更多...

适用场景

共享台球厅、共享自习室、共享充电场景、灯光控制、照明控制、智能化改造、设备机房照明控制、自助设备照明管理、共享茶室照明控制、工业照明电源管理、店铺照明设备控制、智能公寓照明控制、共享棋牌室照明管理、无人值守空间照明控制、弱电间照明联动、智能家居、共享场所、智能办公、居家照明控制、家庭智能改造、酒店客房照明控制、写字楼公共区域照明管理、学校教室照明控制、工厂车间照明管理、仓储仓库照明控制、园区路灯照明管理、展会现场照明控制、活动现场灯光管理、餐厅包厢照明控制、便利店照明管理、健身房区域照明控制、共享民宿照明管理、无人售货机灯光控制、共享洗衣房照明控制中

支持命令

线路1	power1
线路2	power2
线路3	power3
线路4	power4
线路5	power5
线路6	power6
线路7	power7
线路8	power8
批量控制	batch
先通后断	point
先断后通	reset

产品手册

版本	对应产品手册
10A	《智能照明控制器8路10A产品手册》
16A	《智能照明控制器8路16A产品手册》

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的取值，请参考文档。