OLEObject dom, http
String Http_Name,result
try
Http_Name = "http://……"
dom = CREATE OLEObject
http = CREATE OLEObject
if http.ConnectToNewObject( "Msxml2.XMLHTTP") <> 0 then
MessageBox( 'http',"Error")
end if
if dom.ConnectToNewObject( "Msxml2.DOMDocument") <> 0 then
MessageBox( 'dom',"Error")
end if
dom.Load( "c:\dept.xml")
http.Open( "POST", Http_Name, TRUE)
http.Send(dom.xml)
do while http.readyState <> 4 // ' 查詢狀態,延時
Yield()
loop
result = http.responseText //這個測驗用! 你可不寫
MessageBox( 'result ',result)
dom.DisconnectObject( )
http.DisconnectObject( )
DESTROY dom
DESTROY http
Catch (RuntimeError rte)
MessageBox('運行時錯', rte.getMessage(), Information!, OK!, 1)
return
end try
在運行時，出現錯誤error calling external object function send
請高手指教
是不是因為我給的 Http_Name 不是真實的 ？
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/70870.html
標籤：Web 應用