zoukankan      html  css  js  c++  java
  • 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" "1"
      |> 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" "1"
      |> 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 *)
  • 相关阅读:
    Git 生成 && 配置SSH key,配置多个SSH key
    Java异常处理机制:try...catch...的执行流程
    安防相机中的WDR技术
    静态库和动态库的编译链接和使用
    堆栈溢出检测机制
    使用vscode发布
    栈空间分配和栈对齐访问
    linux 查找文件夹下所有指定文件并重命名
    gdb使用小技巧-保存调试点现场
    mount共享文件夹出错,提示操作正在进行
  • 原文地址:https://www.cnblogs.com/dXIOT/p/10626588.html
Copyright © 2011-2022 走看看