ITPub博客

首页 > 应用开发 > IT综合 > 用.NET完成Lotus与异质系统的数据交互 (转)

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

原创 IT综合 作者:worldblog 时间:2007-12-13 16:39:02 0 删除 编辑
用.NET完成Lotus与异质系统的数据交互 (转)[@more@]

.NET完成Lotus与异质系统的数据交互 XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

我们用的开发平台:

 服务器windows2000+web服务器:IIS5.0+Lotus 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

  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

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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992999/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2404617