怎样用OCaml语言控制空调远程指令发送器2

2022-05-31 发布浏览：176 次

本文介绍了如何用 OCaml 对接智能空调遥控器2 的方法：可以通过接口实现远程发送空调控制指令、空调开关机控制、空调模式调节、空调温度调节、空调风力调节、HTTP接口控制空调设备、远程控制空调运行、定时任务控制空调、红外码库匹配控制、场景联动控制空调、语音助手控制空调、手机APP远程控制、本地按键控制空调、断电记忆恢复控制、温度阈值自动启停。

智能空调遥控器2

支持90%以上的带红外遥控器的空调；

HTTP接口控制空调的开关机、模式、温度、风力等；

支持远程控制，支持定时任务；

更多...

适用场景

智能家居空调控制、共享场所空调管理、智能办公空调控制、酒店客房空调管理、民宿房间空调控制、无人值守空间空调管理、店铺空调设备控制、智能化改造空调场景、学校教室空调控制、医院病房空调管理、工厂车间空调控制、机房设备温控管理、家庭影院空调联动、公寓出租房空调管理、实验室空调温控场景中

支持命令

环境温度	temp
开关	power
模式	mode
温度	degree
风速	speed
风向	swing
蜂鸣	beep
灯光	light

产品手册

版本	对应产品手册
白色	《智能空调遥控器2产品手册》

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语言控制空调远程指令发送器2

智能空调遥控器2

适用场景

支持命令

产品手册

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

文章：

怎样用OCaml语言控制空调远程指令发送器2

相关技术文章：

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

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

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

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

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

Please contact me

智能空调遥控器2

适用场景

支持命令

产品手册

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

文章：

怎样用OCaml语言控制空调远程指令发送器2

相关技术文章：

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

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

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

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

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

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