用.NET完成Lotus與異質系統的資料互動 (轉)

用.NET完成Lotus與異質系統的資料互動 (轉)[@more@]

用完成Lotus與異質的資料互動 :namespace prefix = o ns = "urn:schemas--com::office" />

我們用的開發平臺：

 ：2000＋伺服器：IIS5.0＋Lotus Notes/ino 5.0.3版；

 XML Web Service服務開發工具：.NET Beta2；

 客戶端： web頁面或者windows application。

開發步驟：

1) Lotus Notes/Domino 的Notes

新建一個Notes資料庫或者利用原有的資料庫。在這個資料庫裡面至少有一個表單，在表單裡有一些域，用來存放一些條目的資訊。再建立幾個檢視，檢視主要是用來按照一定規則顯示文件的。比如按照時間的順序或按照文件的點選率。

2) 建立XML web service服務

開啟Visual studio Beta2版，新建專案－>Visual 的 web服務，刪掉預設的ASMX，新建一個Web服務頁面NewsPublish.asmx，開啟NewsPublish.asmx.cs檔案，這裡將是我們編寫的地方。右鍵點選解決方案，新增引用，選擇COM中的Lotus Domino 元件，確定後就引用了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=ConnectToNotes("","bbs.n","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 pPass,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透過呼叫元件接受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/DominoXml/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

至此，我們完成了所有的任務。