读书人

讨论domino调用外部webservice的实现方

发布时间: 2012-03-16 16:34:56 作者: rapoo

讨论domino调用外部webservice的实现方法?
最近要做一个与外部webservice交互的案子,是用ajax,java代理,SOAP来处理一时犹豫不定,哪位高人能细说下几种方法的优缺点?感激不尽!
C/S

[解决办法]
如果是C/S的,客户端平台是Windows,推荐用xmlhttp操作方式类似vbs(ajax)。

Dim soapMessage As Variant

soapMessage = |<?xml version="1.0" encoding="UTF-8"?>|+_
|<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="urn:getUserOnlineStatus" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">|+_
|<SOAP-ENV:Body>|+_
|<ns1:getUserOnlineStatus>|+_
|<companyKey xsi:type="xsd:string"></companyKey>|+_
|<companyPwd xsi:type="xsd:string"></companyPwd>|+_
|<userName xsi:type="xsd:string"></userName>|+_
|</ns1:getUserOnlineStatus>|+_
|</SOAP-ENV:Body>|+_
|</SOAP-ENV:Envelope>|

Dim strWebserviceURL As String
strWebserviceURL = "http://webservice地址"
Dim xmlHTTP As Variant
Set xmlHTTP = CreateObject("MSXML2.XMLHTTP")
Call xmlHTTP.Open("POST",strWebserviceURL,False)
Call xmlHTTP.SetRequestHeader("Content-Type","text/xml; charset=utf-8")
Call xmlHTTP.Send(soapMessage)
[解决办法]
利用Set oWS = CreateObject("MSOSOAP.SoapClient30")可以实现
我有用过

读书人网 >行业软件

热点推荐