使用Visual Foxpro以POST的方式提交JSON到HTTPS的网页

[yuantao100]

我想把JSON的内容，POST到提供API的网页，
然后接收服务器返回的JSON。。。
能用VF实现吗？

https://open.leshui365.com/resources/invoice/
我想用FOXPRO做个客户端，
就想知道它需求的几个参数，怎么ＰＯＳＴ到指定的这个网页上去。

需要用JSON格式来POST这四个参数：
invoiceCode，invoiceNumber，billTime，token
到
https://open.leshui365.com/api/invoiceInfoForCom
网页，然后接收返回的JSON。。

望各位高手指点。。。。。。。。谢谢大家啦！！！！！

[yuantao100]

有大神知道不？ 再次拜谢！！ 或是指条路，哪里有教程，小弟自已去消化。。。。

[wanbolantian]

找下木瓜的myfll，里边有调用post请求的

[保持胜利]

可以的哦。。

[保持胜利]

FUNCTION isbnSearch LPARAMETERS isbn url = "https://api.douban.com/v2/book/isbn/"+isbn oXml= NewObject("Microsoft.XmlHttp") oXml.open("GET", url, .F.) oXml.send() SET PROCEDURE TO qdfoxJSON &&启用JSON数据支持 JSONStart() aBookInfo = JSONObject(oXml.responseText) cBookImg = STRTRAN(aBookInfo.images.large,"\","") &&字符串中的\转换成"" &&下载图书封面照片 Set Library To myFll DownFile(cBookImg,"images\"+isbn+".jpg") Set Library To RETURN aBookInfo ENDFUNC

[保持胜利]

上面是一个函数的例子，你自己发展下吧。。

[myperry]

lc_post_chr_OK = "" &&这是你要发送的值

Set Library To ("c:\myfll")
lc_return = HttpPostData("http://api.....com/Handle.aspx", (lc_post_chr_OK))
Set Library To

If Vartype(lc_return) = "C"
lc_return = STRCONV(lc_return, 11) &&转回UNICODE
MessageBox(lc_return,"发送到服务器成功！")
ELSE
MessageBox("发送到服务器失败！")
EndIf

[宸砚]

使用HttpPostData时，地址换成https开头的就只会返回一个.F.，是不是不支持？