Domino 8.5 WebService开发一例

原文地址：Domino 8.5 WebService开发一例作者：bj木棉

　　需求是要调用一个Domino上的WebService/JAVA来实现与人事管理系统里的人员同步，就是在人事管理系统中增加用户后，自动在Domino中注册该用户和邮箱。

　　考虑了一下，大概有几种方式可以实现

1.在Domino中建立webservice提供者，人事管理系统访问这个webservice将参数传过来，通过webservice实现用户注册；

2.通过java/lotusscript代理实现；

3.在人事管理系统引入Notes的类库，在人事管理系统中开发程序访问Domino DIIOP端口对Domino操作；

4.引入LDAP类，通过对Domino LDAP的读取进行同步。

　　因为webservice提供者和webservice使用者是Domino
8.5里的新功能，所以花了两天时间研究了一下，用webservice实现了这个需求。做好之后发现还是挺方便的，主要是接口统一了，和lotusscript代理比起来，与第三方系统集成就容易多了。

一、webservice提供者的开发

首先在domino应用程序里建立一个新的webservice提供者，命名叫regUser



在这个webservice里创建java
class，regUser.java，源代码的框架基本是自动生成的，自己编写需要处理的代码就好了，首先引入需要的类

import lotus.domino.*;

import java.net.*;

import java.io.*;



然后可以像java代理一样，通过domino session对domino进行用户注册操作

Session session;

session = WebServiceBase.getCurrentSession();

Registration reg = session.createRegistration();

reg.setRegistrationServer("Mail");

reg.setCreateMailDb(true);

reg.setCertifierIDFile("c:\IBM\Lotus\Domino\MailData\cert.id");

注册的代码就省略了，可以参考domino designer help里的registration类



因为注册类填写的用户信息较少，所以注册用户之后，需要把用户管理程序传过来的其他参数同步，同样可以像java代理一样直接对用户文档通过replaceItemValue进行操作

Database db = session.getDatabase("Mail","names.nsf");

View view = db.getView("People");

Document doc = view.getDocumentByKey(userName, false);

doc.replaceItemValue("EmployeeID", userId);

doc.save(false,false,true);



保存之后，还要修改webservice的属性里，端口类型类的值，改为我们调用的regUser方法





因为是注册用户和修改文档的操作，还要修改属性中“安全”的选项





这样这个webservice就做好了，非常简单，如果代码有错误，domino
designer也会自动提示在哪行有什么错误，而且可以提供快速修正的方法。



二、webservice使用者的开发

　　regUser服务做好之后，因为没有人事管理系统的访问权限，无法直接用第三方系统进行直接调试，我们可以先在domino中开发一个webservice使用者，通过用人事管理系统提供的接口，用相同的调用方式来访问这个regUser服务进行测试。

开发webservice使用者更加简单，新建一个webservice使用者，设置名称，输入webservice提供者的WSDL地址就可以了，类型用lotusscript或者java都没关系，因为只是调用服务，实际的工作是由regUser服务完成的，所以这里在webservice使用者中并不需要编写代码。

建好webservice使用者之后，代码是自动生成的，非常简单，就是读取了regUser的WSDl，为regUser服务定义了addUser方法（之前在webservice提供者中定义的注册用户方法命名为addUser，有22个参数要传递）

%INCLUDE "lsxsd.lss"

Class RegUser As PortTypeBase

   Sub
NEW

   
    Call
Service.Initialize ("UrnDefaultNamespaceregUserService", _

   
   
"regUserService.Domino",
"http://mail.cn.ibm.com:80/test.nsf/regUser?OpenWebService",
_

   
   
"RegUser")

    End
Sub

   

    Function
addUser(in0 As String, in1 As String, in2 As String, in3 As String,
in4 As String, _

    in5 As
String, in6 As String, in7 As String, in8 As String, in9 As String,
in10 As Long, _

    in11 As
String, in12 As String, in13 As String, in14 As String, in15 As
String, in16 As String, _

    in17 As
String, in18 As String, in19 As String, in20 As String, in21 As
String, in22 As String) As String

   
    Let addUser
= Service.Invoke("addUser", in0, in1, in2, in3, in4, in5, in6, in7,
in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18,
in19, in20, in21, in22)

    End
Function

End Class



最后，编写一个lotusscript代理来访问这个webservice使用者，也很简单，就是调用addUser方法，传递测试数据。

Option Public

Option Declare

Use "regUserFromWebService"

Sub Initialize()

    Dim service
As   RegUser

    Set
service=New   RegUser

    MsgBox
service.addUser("955123", "zhangsan",
"zhangsan","2000.07","2011.03","","000111","05","zhangsan","Male",33,"110101198001010016","123456","66666666","13800138000","zhangsan@cn.ibm.com","engineer","","China","","Beijing","","07")

End Sub



运行代理，成功啦！