开发工具:
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成功!