Foxtable(狐表) → 用户栏目 → 专家坐堂 → htttp协议json格式


  共有3027人关注过本帖树形打印复制链接

主题：htttp协议json格式
帅哥哟，离线，有人找我吗？
udp狐表
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		htttp协议json格式  发帖心情 Post By：2021/3/24 14:07:00 [只看该作者]

1.高级指南我看了，了解了json格式的解析与生成，这个是网页和服务端进行信息交互的内容，如果是用其他的软件写的app和狐表的服务端也可以用这种格式的吗？

2.网页的话客户端会有这个
http://127.0.0.1/gettime.htm
app我知道会给个ip和端口，还会有gettime.htm这个吗？  还是app post信息的时候，就会带个请求，在服务的选取就好了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 14:20:00 [只看该作者]

基本上任何软件都可以通过http请求调用web接口。比如微信接口、百度AI、阿里云等等基本上都有web api接口，任何软件都可以调用

gettime.htm只是一个地址而已，您可以改为其他比如abc：http://127.0.0.1/abc
 回到顶部
帅哥哟，离线，有人找我吗？
udp狐表
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		  发帖心情 Post By：2021/3/24 16:11:00 [只看该作者]

在httpclient里面怎么接收json格式的数据
Dim hc As New HttpClient("http://127.0.0.1/query.htm")
Dim ret As String = hc.GetData()
这样一直报错
 回到顶部
帅哥哟，离线，有人找我吗？
udp狐表
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		  发帖心情 Post By：2021/3/24 16:12:00 [只看该作者]

Could not determine JSON object type for type System.Object.

一直显示这个是不能用getdata吗
 回到顶部
帅哥哟，离线，有人找我吗？
udp狐表
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		  发帖心情 Post By：2021/3/24 16:16:00 [只看该作者]

还有在httprequest里面json格式接收数据，只能用

        Dim json As String = e.plaintext
        Dim jo As JObject = JObject.Parse(json) 

那个e事件用不了values和其他的吗
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 16:17:00 [只看该作者]

GetData是接收web服务返回的数据而已，和josn没有半点关系。另外确定返回的是规范的json字符串？

Dim hc As New HttpClient("http://127.0.0.1/query.htm")
Dim ret As String = hc.GetData()
msgbox(ret)
 回到顶部
帅哥哟，离线，有人找我吗？
udp狐表
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		  发帖心情 Post By：2021/3/24 16:33:00 [只看该作者]


        Dim ja As new jarray  
        For Each r As Row In Tables("订单") 
            ja.Add(new object)
            ja(r.index)("产品")=r("产品").ToString
            ja(r.index)("客户")=r("客户").ToString
            ja(r.index)("数量")=r("数量").ToString
            ja(r.index)("单价")=r("单价").ToString
            ja(r.index)("日期")=r("日期").ToString
        Next
        Dim json As String = CompressJson(ja)
        e.WriteString(json)
返回的是这个
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 16:39:00 [只看该作者]

Dim hc As New HttpClient("http://127.0.0.1/query.htm")
Dim ret As String = hc.GetData()
msgbox(ret)弹出什么内容？
 回到顶部
帅哥哟，离线，有人找我吗？
udp狐表
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：82 积分：654 威望：0 精华：0 注册：2019/12/6 9:03:00 		  发帖心情 Post By：2021/3/24 16:44:00 [只看该作者]

运行错误，显示Could not determine JSON object type for type System.Object.
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/24 16:46:00 [只看该作者]

那是服务端代码错误

For Each r As Row In Tables("订单") 
ja.Add(new Jobject)
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询