kepware http接口 OCaml

读取某变量的值

open Cohttp_lwt_unix
open Cohttp
open Lwt

let uri = Uri.of_string "http://127.0.0.1:39321/iotgateway/read?ids=Channel1.Device1.tag1,Channel1.Device1.tag2" in
let headers = Header.init ()
  |> fun h -> Header.add h "Connection" "keep-alive"
  |> fun h -> Header.add h "Cache-Control" "max-age=0"
  |> fun h -> Header.add h "Upgrade-Insecure-Requests" ""
  |> fun h -> Header.add h "User-Agent" "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.81 Safari/537.36"
  |> fun h -> Header.add h "Accept" "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"
  |> fun h -> Header.add h "Accept-Encoding" "gzip, deflate, br"
  |> fun h -> Header.add h "Accept-Language" "zh-CN,zh;q=0.9"
  |> fun h -> Header.add h "cache-control" "no-cache"
in

Client.call ~headers `GET uri
>>= fun (res, body_stream) ->
  (* Do stuff with the result *)

列出所有变量

open Cohttp_lwt_unix
open Cohttp
open Lwt

let uri = Uri.of_string "http://127.0.0.1:39321/iotgateway/browse" in
let headers = Header.init ()
  |> fun h -> Header.add h "Connection" "keep-alive"
  |> fun h -> Header.add h "Cache-Control" "max-age=0"
  |> fun h -> Header.add h "Upgrade-Insecure-Requests" ""
  |> fun h -> Header.add h "User-Agent" "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.81 Safari/537.36"
  |> fun h -> Header.add h "Accept" "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"
  |> fun h -> Header.add h "Accept-Encoding" "gzip, deflate, br"
  |> fun h -> Header.add h "Accept-Language" "zh-CN,zh;q=0.9"
  |> fun h -> Header.add h "cache-control" "no-cache"
in

Client.call ~headers `GET uri
>>= fun (res, body_stream) ->
  (* Do stuff with the result *)