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

    技术2022-05-20  56

    开发工具:

    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成功!

     

     

     


    最新回复(0)