|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ezpos
註冊時間: 2011-04-20 文章: 323
第 1 樓
|
發表於: 星期六 十月 03, 2015 4:37 pm 文章主題: vfp 與 php 交互編程傳資料的範例(整理) |
|
|
vfp 與 php 交互編程傳資料的範例
foxpro迷用上的就拿去吧!!延續vfp生命量
代碼: |
SET PROCEDURE TO qdfoxJSON
JSONStart()
Local o
o = JSONObject() && Empty object
o.Add("firstName","Victor") && Normal properties
o.Add("lastName","Espina")
o.Add("Country","台灣")
Local cJSON
cJSON = o.ToJSON()
lc_str=cJSON
Try
xmlHTTP = Createobject("Msxml2.XMLHTTP") &&Msxml2.XMLHTTP Microsoft.XMLHTTP
xmlHTTP.Open("POST", "http://127.0.0.1:8080/edit2.php", .F.)
xmlHTTP.setrequestheader('Content-Type', 'application/x-www-form-urlencoded')
lcc_data= "data=" +lc_str
*_Without the double parentheses, I get the error "the parameter is incorrect"
xmlHTTP.Send(lcc_data)
Do While xmlHTTP.readyState != 4
=Inkey(0.1)
Enddo
If xmlHTTP.Status <> 200
Return
Endif
Thisform.edit1.Value =Alltrim(xmlHTTP.responseText)
Catch To oException
ShowMsg("請檢查網路是否有通?!")
Finally
Clear Events
Endtry
|
php edit2.php
代碼: | <?php
header("Content-type: text/html; charset=UTF-8");
$data = $_POST['data'];
print_r($data);
?> |
_________________ ezPos收銀機 簡單好用低成本 http://www.ezpos.info
全新美觀的POS收銀機.POS軟硬體耗材.
軟體客制化.網站規劃....能賺錢的都可以找我
http://www.twelife.com 台灣生活網 |
|
回頂端 |
|
|
jmkwok
註冊時間: 2003-09-16 文章: 5
第 2 樓
|
發表於: 星期一 十一月 16, 2015 12:14 pm 文章主題: |
|
|
不知是否能一並提供程式qdfoxJSON ?? |
|
回頂端 |
|
|
ezpos
註冊時間: 2011-04-20 文章: 323
第 3 樓
|
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|