VFP 愛用者社區

[spfrk]

請問各位先進, VFP9 如何取得 https:// 的回應字串訊息,
是否有範例, 謝謝 !

[ezpos]

你看這個可以嗎???

xmlHTTP = Createobject("Msxml2.XMLHTTP") &&Msxml2.XMLHTTP Microsoft.XMLHTTP
xmlHTTP.Open("POST", "http://127.0.0.1:8080/edit_Insert.php", .F.)
xmlHTTP.setrequestheader('Content-Type', 'application/x-www-form-urlencoded')

lcc_data= "data=aaa"
*_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)