开发工具:
MyEclipse 8
Lotus Domino 8.5
SoapToolkit3.0
平台:
Windows
XFire1.2 (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 Suberrshanle: Print "agtDemo Error " & Error$ " in Line " & Cstr(Erl) End Sub
8. 安装SoapToolkit3.0
9. 执行此代理,输出hello Saliner成功!