我想把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。。
望各位高手指點。。。。。。。。謝謝大家啦！！！！！
uj5u.com熱心網友回復：
有大神知道不？ 再次拜謝！！或是指條路，哪里有教程，小弟自已去消化。。。。
uj5u.com熱心網友回復：
找下木瓜的myfll，里邊有呼叫post請求的uj5u.com熱心網友回復：
可以的哦。。uj5u.com熱心網友回復：
FUNCTION isbnSearchLPARAMETERS 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
uj5u.com熱心網友回復：
上面是一個函式的例子，你自己發展下吧。。uj5u.com熱心網友回復：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/69853.html
標籤：VFP
上一篇：怎樣通過Document的元素個數查詢符合要求的Doeument
下一篇：資料集