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://smsinter.sina.com.cn/ws/smswebservice0101.wsdl")
问题不是出在mssoapinit,应该是connecttonewobject里出错了,可能是mssoap未安装成功,注意安装时要用管理员身份运行才能在win10下安装成功。
如果MSOSOAP.SoapClient这个连接不成功,试试MSOSOAP.SoapClient30
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient30")