lotus调用webservice

[lfw123084]

Sub Initialize

Dim result As String
Dim arrayarg(0 To 3) As Variant
arrayarg(0)= "5311898"
arrayarg(1)= "4680003"
arrayarg(2)= "ddddddddddddddddddddddddd"
arrayarg(3)= "<?xml version=\'1.0\' encoding=\'gb2312\'?><root><number>15846182069</number></root>"

sWSDL =" http://218.9.19.165/SMSExportService.jws?wsdl"

Set Client =CreateObject("MSSOAP.SoapClient30")

Call Client.mssoapinit(sWSDL)

Msgbox("&yyyyyyyyyyyyyyy")
result= Client.sendShortMessage(arrayarg) //错误在这
'result= Client.sendShortMessage(arrayarg)

Messagebox result, MB_OK, "Get Email"
End Sub
错误提示：client:incorrect number of paramrters supplied for soap request result:0x80070057:参数不正确
这个webservice在java中调用
ret=(String)call.invoke(newObject[]{username,password,content,numbersXml});
这是java调用的写法没错的
但是用lotusscript应该怎么写

[guo2478858]

呵呵，帮你顶下吧，还没解决吗？

[lfw123084]

谢谢

[mason520]

对你用的组件不是很熟悉，但你好像没有给定要调用的webService的方法？

[lfw123084]

是啊我没写不好意思

<wsdl:message name="sendShortMessageRequest">
<wsdl:part name="username" type="xsd:string" />
<wsdl:part name="password" type="xsd:string" />
<wsdl:part name="content" type="xsd:string" />
<wsdl:part name="numbers" type="xsd:string" />
</wsdl:message>
- <wsdl:message name="sendShortMessageResponse">
<wsdl:part name="sendShortMessageReturn" type="xsd:string" />
</wsdl:message>
- <wsdl:portType name="SMSExportService">
- <wsdl:operation name="sendShortMessage" parameterOrder="username password content numbers">
<wsdl:input message="impl:sendShortMessageRequest" name="sendShortMessageRequest" />
<wsdl:output message="impl:sendShortMessageResponse" name="sendShortMessageResponse" />
</wsdl:operation>
</wsdl:portType>
- <wsdl:binding name="SMSExportServiceSoapBinding" type="impl:SMSExportService">
<wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
- <wsdl:operation name="sendShortMessage">
<wsdlsoap:operation soapAction="" />
- <wsdl:input name="sendShortMessageRequest">
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://DefaultNamespace" use="encoded" />
</wsdl:input>
- <wsdl:output name="sendShortMessageResponse">
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://scdma.dqt.com.cn/SMSExportService.jws" use="encoded" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
- <wsdl:service name="SMSExportServiceService">

[bitwise]

前提你的客户端要装MSSOAP
Sub Initialize

Dim result As String

sWSDL =" http://218.9.19.165/SMSExportService.jws?wsdl"

Set Client =CreateObject("MSSOAP.SoapClient30")

Call Client.mssoapinit(sWSDL)

result= Client.sendShortMessage("5311898","4680003","ddddddddddddddddddddddddd"," <?xml version=\'1.0\' encoding=\'gb2312\'?> <root> <number>15846182069 </number> </root>")


Messagebox result, MB_OK, "Get Email"
End Sub
如果有问题请下列符合进行转换。

sXML = Replace(sXML, "&", "&")
sXML = Replace(sXML, "<", "<")
sXML = Replace(sXML, ">", ">")
sXML = Replace(sXML, |"|, |"|)
sXML = Replace(sXML, |'|, |'|)
--------------------------------------------------------------
以下是表示你的方法中的参数及其参数类型：
<wsdl:part name="username" type="xsd:string" />
<wsdl:part name="password" type="xsd:string" />
<wsdl:part name="content" type="xsd:string" />
<wsdl:part name="numbers" type="xsd:string" />

[wangjinghui1981]

我这边装了客户端，但是执行到这行Call Client.mssoapinit(sWSDL)
报错，说什么参数不正确，是什么意思

Lotus是7的版本

[guo2478858]

很多种方式 xmlhttp

Dom

soap