如何用OCaml语言对接灯光

2025-08-06 发布浏览：73 次

本文介绍了如何用 OCaml 对接智能灯座的方法：可以通过接口实现。

智能灯座

更多...

支持命令

线路	power
先通后断	point
先断后通	reset

产品手册

版本	对应产品手册

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

如何用OCaml语言对接灯光

智能灯座

支持命令

产品手册

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

文章：

如何用OCaml语言对接灯光

相关技术文章：

怎样用OCaml语言控制智能氛围灯驱动控制器

如何用OCaml语言对接壁挂式雷达烟雾联动控制器

如何用OCaml语言对接60W 智能云播报音柱

怎样用OCaml语言对接5位远程控制PDU

如何用OCaml语言对接25A额定 5500W 断路器

Please contact me

智能灯座

支持命令

产品手册

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

文章：

如何用OCaml语言对接灯光

相关技术文章：

怎样用OCaml语言控制智能氛围灯驱动控制器

如何用OCaml语言对接壁挂式雷达烟雾联动控制器

如何用OCaml语言对接60W 智能云播报音柱

怎样用OCaml语言对接5位远程控制PDU

如何用OCaml语言对接25A额定 5500W 断路器

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