我第一次用pb8写web+xml的接口,红色部分,我就不知道怎么写了,请大家赐教。
OLEObject MSSOAPLib1
MSSOAPLib1 = CREATE OLEObject
Long ll_result
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient")
IF ll_result <> 0 THEN
MessageBox("系统提示","连接MSSOAP.SoapClient失败!返回参数:"+String(ll_result))
END IF
MSSOAPLib1.mssoapinit("http://192.168.117.20:81/webservicecallinterface.asmx?wsdl")
integer ls_filename,ls_name
ls_filename = fileopen ('D:\SHINE\shine.xml')
mle_content.Text = MSSOAPLib1.LoginInit.sendxml(ls_filename,ls_name)
报错为error accessing external object function LoginInit
接口规范如下:
(一) 接口定义
接口描述 医生登录验证是否有加密狗、以及叫号器IP是否配置。
接口方法 LoginInit
接口指令 LOGININIT
返回XML表名 RESULT
接口协议 Web Service+XML
(二) 传入参数
传入参数:叫号器IP:CLIENT_IP、医生登录Id:LOGINID
传入XML示例:
<SHINECALL>
<HEADER>
<RESULTORDER>LOGIN</ RESULTORDER >
</HEADER>
<INPARA>
<CLIENT_IP>172.168.0.40</CLIENT_IP>
<LOGINID>000260<LOGINID>
</INPARA>
</ SHINECALL >
(三) 返回参数
返回信息:返回医生能否登录。
成功,返回可以登录的信息。
失败,则返回失败的详细信息。
返回XML示例:
<SHINE>
<HEADER>
<RESULTORDER>LOGIN</RESULTORDER>
</HEADER>
<RESULT>
<RESULTCODE>0</RESULTCODE>
<RESULTMESSAGE>执行成功!</RESULTMESSAGE>
</RESULT>
</SHINE>
------解决思路----------------------
mssoap实现的是调用webservice接口,这和xml没有关系
如果你要生成xml文件,可以用datawindow直接saveas成xml
也可以自己用fileopen打开文件,逐行写入
或者把xml格式放到字符串,传给web函数