long rVal, lLog
long amount
conn = create SoapConnection; //Instantiated connection
lLog = conn.SetOptions("xinnonhe.log");
// Set trace file to record soap interchange data,
// if string is "", disables the feature
rVal = Conn.CreateInstance(proxy_obj,"fservicesoutpaysoap");
if rVal <> 0 then
messagebox("连接失败","错误代码"+string(rVal))
return
end if;
// Create proxy object
try
amount = proxy_obj.getversion() //调用获取返回值
messagebox("返回信息",string(amount))
catch(soapexception e1) //soapexception定义的异常
messagebox("sop异常",e1.text)
catch (runtimeerror re1) //
Messagebox("web连接错误",re1.text)
end try
destroy conn
这个可以正确的获取到
//////////////
////出院通知
//////////////
boolean is_ok;
long rVal, lLog
conn = create SoapConnection; //Instantiated connection
lLog = conn.SetOptions("");
rVal = Conn.CreateInstance(proxy_obj,"fservicesoutpaysoap");
if rVal <> 0 then
messagebox("连接失败","错误代码"+string(rVal))
return
end if;
try
is_ok = proxy_obj.outhospital( 1, "a7ffd874-d2e3-4700-9d65-e4ebf3abb0da", "80482e6dbebf40298e15c312ca1c265d","111", datetime(date("2010-8-1"),time("09:09:34")), "牙出血", "康复")
if is_ok = true then
messagebox("","出院成功")
else
messagebox("","出院失败")
end if
catch(soapexception e1) //soapexception定义的异常
messagebox("sop异常",e1.text)
catch (runtimeerror re1) //
Messagebox("web连接错误",re1.text)
end try
destroy conn
这个就不行了 直接报错ERROR calling method of a PBNI Object”
