Lotus|Lotus domino 8.5 WebService 一 (使用SoapToolkit3.0消费WebService)

开发工具:
MyEclipse 8
Lotus Domino 8.5
SoapToolkit3.0
平台:
Windows
XFire1.2 (WebService)
【Lotus|Lotus domino 8.5 WebService 一 (使用SoapToolkit3.0消费WebService)】
1. 新建web工程
2. 用MyEclipse自动导入XFire包
3. 创建测试类
接口:IUserInfo.java
实现类:UserInfoImpl.java
4.代码:

-------------------------------
IUserInfo.java:

public interface IUserInfo {

public String example(String message);

}

-------------------------------
UserInfoImpl.java:

public class UserInfoImpl implements IUserInfo {

public String example(String message) {
message = "hello "+message;
System.out.println(message);
return message;
}

}

5. 让MyEclipse自动创建WebService Client
生成后类如图:

6. 测试WebService服务http://localhost:8080/XFireDemo91/services/UserInfo?wsdl,并另存为UserInfo.wsdl文件以备用。
7. domino中新建代理agtDemo:
Sub Initialize
On Error Goto errshanle


Dim s As New NotesSession
Dim doc As NotesDocument
Set doc = s.DocumentContext

Dim client As Variant

Set Client =CreateObject("MSSOAP.SoapClient30")
Call Client.mssoapinit ("http://localhost:8080/XFireDemo91/services/UserInfo?wsdl")

Dim result As String
If Not Client Is Nothing Then
result = Client.example("Saliner")
Else
result="no web"
End If
Print result
Exit Sub
errshanle:
Print "agtDemo Error " & Error$ " in Line " & Cstr(Erl)
End Sub
8. 安装SoapToolkit3.0
9. 执行此代理,输出hello Saliner成功!



    推荐阅读