怎么用OCaml语言对接门禁出门开关

2026-05-15 发布浏览：819 次

本文介绍了如何用 OCaml 对接智能墙壁出门开关的方法：可以通过接口实现按下解锁开门、HTTP接口远程控制通断、远程定时任务设置、自定义联动操作、门禁系统联动控制、配合电磁锁电插锁管理门禁。

智能墙壁出门开关

标准86型底盒，安装简单；

可接任何种类的电磁锁、电插锁；

广泛应用于各种门禁控制、门禁改造；

支持断电开锁｜通电上锁、支持断电上锁｜通电开锁两种模式；

HTTP接口远程控制通断；

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

更多...

适用场景

智能家居门禁控制、共享场所门禁管理、智能办公门禁控制、安防门禁场景、门店门禁改造、会议室门禁控制、舞蹈室门禁管理、设备机房门禁控制、弱电间门禁联动、线下服务场景门禁控制、无人值守门

支持命令

开关	power
先断后通	reset
先通后断	point

产品手册

版本	对应产品手册
白色	《智能墙壁出门开关产品手册》

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接口控制以设备控制（向设备下发命令）为例