用.NET完成Lotus与异质系统的数据交互

    技术2022-05-11  30

    <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    .NET完成Lotus与异质系统的数据交互

    我们用的开发平台:

     服务器:windows2000web服务器:IIS5.0Lotus Notes/Domino 5.0.3版;

     XML Web Service服务开发工具:Visual Studio.NET Beta2

     客户端:ASP web页面或者VB windows application

     

    开发步骤:

     

    1) Lotus Notes/Domino Notes数据库

    新建一个Notes数据库或者利用原有的数据库。在这个数据库里面至少有一个表单,在表单里有一些域,用来存放一些条目的信息。再建立几个视图,视图主要是用来按照一定规则显示文档的。比如按照时间的顺序或按照文档的点击率。

     

    2) 建立XML web service服务

    打开Visual studio .NET Beta2版,新建项目->Visual c#ASP.NET web服务,删掉默认的ASMX文件,新建一个Web服务页面NewsPublish.asmx,打开NewsPublish.asmx.cs文件,这里将是我们编写源代码的地方。右键点击解决方案,添加引用,选择COM组件中的Lotus Domino Object组件,确定后就引用了COM组件,在我们的程序里面就可以访问Notes数据库了。好了,就可以开始编写代码提供方法调用服务了。在这里,笔者给出其中一个方法,GetNewByPostTime提供获取指定数目的新闻条目的服务,每个新闻条目只是有提交时间、作者、标题、分类、文档标识号码等基本的信息,没有具体的内容。以下是为部分源代码。

    GetNewsByPostTime方法:

    //返回新闻条目,存储在一个数组里面

    //PageSize参数为新闻条目的数目

         public NewsItem[] GetNewsByPostTime(int PageSize)

             {

                  Domino.IViewNavigator  vn;

                  Domino.IViewEntry  h;

                  Domino.IDocument doc;

                  int index=0;

                  NewsItem[] Result=new NewsItem [PageSize];

    //连接Notes数据库

                  vn=ConnectToNotesDb("","bbs.nsf","bufy_2001","All Documents",out h);

    //获取每个新闻文档的信息

                  do

                  {

                       doc = h.Document;

                       Result[index]=new NewsItem ();

                       Result[index].Subject  =doc.GetFirstItem ("Subject").Text;

                       Result[index].Category =doc.GetFirstItem ("categories").Text ;

                       Result[index].PostTime =doc.Created.ToString ();

                       Result[index].Author =doc.GetFirstItem("From").Text ;

                       Result[index].NewsID =doc.NoteID .ToString ();

                       index++;            

                       h = vn.GetNextDocument(h);

                  }

                  while(h!=null&&index<PageSize);

                  return Result;

           }

     

    连接Louts数据库的方法:

    //这个方法建立Notes的数据库连接并获取视图的句柄

            public Domino.IViewNavigator  ConnectToNotesDb(string pServer,string pDbFileName,string pPassword,string pNotesView,out Domino.IViewEntry h)

             {

                  NotesSession s=new NotesSession ();

                  Domino.IDatabase  db;

                  Domino.IView  v;

                  Domino.IViewNavigator  vn;

     

      s.Initialize (pPassword);

                  db=s.GetDatabase (pServer,pDbFileName,false);

                  v=db.GetView (pNotesView);

                  vn=v.CreateViewNav(0);

                  :h=vn.GetFirstDocument ();

     

                  return vn;

         }

    至此完成了web service服务的定义,在想发布的web service服务上标上[WebMethod],这样服务就可以被客户端访问了。

     

    3) 客户端的构建

    客户端可以有很多种方法可以构建,在这里只讲述用ASP web站点的连接方式。客户端想获取XML web service服务,除了要支持http的连接外,还要能够解析XML文档。ASP通过调用XMLHTTP组件接受XML消息,在应DOM来解析XML文档获取我们需要的信息。

    在这里,笔者只列出ASP请求、接受XML服务和解析XML文档的源代码:

             Dim oXMLHTTP

             Dim oDOM

             Set oXMLHTTP=Server.CreateObject ("Microsoft.XMLHTTP")

             Set oDOM = Server.CreateObject("Microsoft.XMLDOM")

             '利用post方法完成xml web service服务的请求

             oXMLHTTP.open_ "POST","http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsDetails",f_alse

             '利用Get方法完成xml web service服务的请求

             'oXMLHTTP.open_ "GET","http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsByCount?_

    NewsID="&newsID&"",false

             '设置post方法参数

             oXMLHTTP.SetRequestHeader_ "Content-Type","application/x-www-form-urlencoded"

             '发送post数据

        oXMLHTTP.send "NewsID="&newsID&""

        '如果用get方法,则发送方法如下

        'oXMLHTTP.send

    Set oDOM=oXMLHTTP.responseXML

          Set theNode=oDOM.documentElement.childNodes(0)

          NewsID=theNode.ChildNodes(0).text

          Subject=theNode.ChildNodes(1).text

          Category=theNode.ChildNodes(2).text

          Count=theNode.ChildNodes(3).text

          PostTime=theNode.ChildNodes(4).text

          Author=theNode.ChildNodes(5).text

                Body=theNode.ChildNodes(6).text

     

    至此,我们完成了所有的任务。

     

    <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    最新回复(0)