专家坐堂-请问ft怎样实现curl命令？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问ft怎样实现curl命令？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175256)

--  作者：yellow
--  发布时间：2022/2/25 15:24:00
--  请问ft怎样实现curl命令？

想用FT实现这个：

此主题相关图片如下：qq浏览器截图20220225151659.png

直接用curl命令是成功的。在ft上却不行，错在哪里了？

Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=cf9003a1-1f69-4c8f-9103-3a0abd2798dd"
Dim hc As New HttpClient(url)
Dim jo As new JObject
hc.Headers.Add("Content-Type", "application/json")
jo("msgtype") = "text"
jo("text") = New JObject
jo("text")("content") = "good"
jo = jobject.Parse(hc.GetData)
output.show(jo.toString)

此主题相关图片如下：qq浏览器截图20220225152152.png

--  作者：有点蓝
--  发布时间：2022/2/25 15:29:00
--
消息格式不对。接口文档地址发过来看看

--  作者：yellow
--  发布时间：2022/2/25 15:34:00
--
文档里还有一个提示：content必须是utf8编码。这个要怎么实现？

--  作者：有点蓝
--  发布时间：2022/2/25 15:45:00
--
接口文档地址发过来看看

--  作者：yellow
--  发布时间：2022/2/26 15:32:00
--
https://developer.work.weixin.qq.com/document/path/91770

--  作者：有点蓝
--  发布时间：2022/2/26 16:06:00
--

Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=cf9003a1-1f69-4c8f-9103-3a0abd2798dd"
Dim hc As New HttpClient(url)
Dim jo As new JObject
jo("msgtype") = "text"
jo("text") = New JObject
jo("text")("content") = "good"
hc.Content = jo.ToString
dim res as string = hc.GetData)
output.show(res)

--  作者：yellow
--  发布时间：2022/2/26 16:55:00
--
呵呵，真不好意思，原来是漏了Content