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 *)
  • 相关阅读:
    基本技能训练之线程
    关于UEditor的使用配置(图片上传配置)
    PAT 乙级练习题1002. 写出这个数 (20)
    codeforces 682C Alyona and the Tree DFS
    codeforces 681D Gifts by the List dfs+构造
    codeforces 678E Another Sith Tournament 概率dp
    codeforces 680E Bear and Square Grid 巧妙暴力
    codeforces 678D Iterated Linear Function 矩阵快速幂
    codeforces 679A Bear and Prime 100 交互
    XTUOJ 1248 TC or CF 搜索
  • 原文地址:https://www.cnblogs.com/dXIOT/p/10626588.html
Copyright © 2011-2022 走看看