开发工具：
MyEclipse 8
Lotus Domino 8.5
平台：
Windows
XFire1.2 (WebService)
1. 新建web工程
2. 用MyEclipse自动导入XFire包
3. 创建测试类
接口：IUserInfo.java
实现类：UserInfoImpl.java
4.代码：
-------------------------------
IUserInfo.java：
public interface IUserInfo { public String getUserInfoXml(int iID);
}
-------------------------------
UserInfoImpl.java：
public class UserInfoImpl implements IUserInfo { public String getUserInfoXml(int iUserID) { StringBuffer infoBuffer = new StringBuffer("<?xml version=/"1.0/" encoding=/"UTF-8/"?>"); if(iUserID>0){ infoBuffer.append("user id is").append(iUserID); }else{ infoBuffer.append("no user id"); } return infoBuffer.toString(); }
}
5. 让MyEclipse自动创建WebService Client
生成后类如图：
6. 测试WebService服务http://localhost:8080/XFireDemo91/services/UserInfo?wsdl，并另存为UserInfo.wsdl文件以备用。
7. domino中新建代理WebService使用者UserInfoLotusService：
新建使用者，输入http://localhost:8080/XFireDemo91/services/UserInfo?wsdl，会自动创建service代码：
%INCLUDE "lsxsd.lss"Const n0 = "http://service.sxwd.com"Class UserInfoPortType_n0 As PortTypeBase Sub NEW Call Service.Initialize ("HttpServiceSxwdComUserInfo", _ "UserInfo.UserInfoHttpPort", "http://localhost:8080/XFireDemo91/services/UserInfo", _ "UserInfoPortType_n0") End Sub
'注意这个地方返回的是XSD_STRING类型，在java中返回的是String类型 Function getUserInfoXml(in0 As Long) As XSD_STRING Set getUserInfoXml = Service.Invoke("getUserInfoXml", in0) End Function End Class
8. 新建代理，调用WebService使用者：
'--------------------
Option PublicOption DeclareUse "UserInfoLotusService"
'--------------------
Sub Initialize Dim session As New NotesSession Dim service As UserInfoPortType_n0 Set service = New UserInfoPortType_n0 '定义为Xsd_string，在ls中式自定义类型 Dim result As Xsd_string Set result = service.getUserInfoXml(3) '将Xsd_string类型的结果转为String类型，输出 Msgbox result.Getvalueasstring() End Sub
9. 执行此代理，输出user id is 3成功！
