在 Lotus Notes 复合应用中集成 Lotus Symphony

简介

Lotus Symphony 是可免费使用的具备丰富功能的文档编辑工具, 可以选择集成在Notes中或者独立运行。在 Lotus Notes 中可以从 Open 菜单打开该编辑器,也可以在应用程序中以编程方式打开编辑器。而且它们的图标将出现在计算机桌面及 Start 菜单中,因此产品编辑器的使用可以独立于 Lotus Notes。有三个编辑器可处理文档、电子表格和描述,如图 1-3 所示。它们具有直观的用户界面,以基于 Eclipse 的应用程序为特点,支持开放式文档格式(Open Document Format,简称ODF),与各种文档格式兼容(Microsoft Office, OpenOffice, Lotus SmartSuite等),可以把编辑的文档直接导出成Adobe Acrobat (PDF) 格式, 支持多种平台(Windows, Linux ,Mac ),更重要的是Lotus Symphony具有开放的接口,可以进行灵活的定制和各种业务和协作应用集成。


图 1. IBM Lotus Documents
图 1. IBM Lotus Documents

图 2. IBM Lotus Presentations
图 2. IBM Lotus Presentations

图 3. IBM Lotus Spreadsheet
图 3. IBM Lotus Spreadsheet

本文结合实例,系统而详细地介绍了如在 Notes 复合应用中使用 Lotus Symphony。下面,让我们通过一个相对简单的实例如 图 4 所示,来介绍如何在 Notes 复合应用中使用 Lotus Symphony 应用实例。


图 4. 复合应用实例
图 4. 复合应用实例

这是一个用 Notes 8 打开的应用(TopCustomer.nsf),你一眼能看出它和过去你所见到 Notes 的帧结构、视图、表单等等这些元素全不相同但又似曾相识。在这个应用中,你看到了左方展示公司客户列表的 Notes 视图。看到了右方展示 Lotus Symphony 文档编辑器的 Eclipse 插件。所有这些东西(当然,它们有个正式的名称——组件),为了一个业务目的(2007 年的最佳客户名单)而组装在一起,这就构成了一个复合应用。不只是组装,组件之间还可以传递消息。还是看上面这个例子,当我们点击左方客户列表中的某个客户时,会把该客户的公司名称传递给其他组件,这样右方的 Lotus Symphony 文档编辑器会把传递来的公司的名称插入到当前的光标位置。 图 5 展示了消息在 Property Broker 编程模型中传递的后台过程。


图 5. Property Broker 编程模型
图 5. Property Broker 编程模型

在这里我们不过多的讲述复合应用的概念,大家可以从文章后面的参考资料里获得更多的关于 Notes 复合应用的详细信息。

复合应用的创建

在 Notes 8 中创建一个复合应用是非常简单的一件事情,因为基于 NSF 的复合应用就是一个 NSF 数据库,在创建时,和一个传统的 NSF 数据库没有什么区别。所不同的是选择模板时必须选择空白组合应用程序模板,如 图 6 所示。


图 6. 在 Notes 8 中创建复合应用
图 6. 在 Notes 8 中创建复合应用

创建之后,你将得到一个空白的复合应用页面如 图 7 所示。


图 7. 空白的复合应用页面
图 7. 空白的复合应用页面

接下来点击 操作(Actions)中的 编辑复合应用(Edit Application),Notes 8 会启动 CAE(Composite Application Editor)如 图 8 所示。通过这个工具,你可以把 NSF 组件或者 Eclipse 组件拖拽到这个复合应用的页面上。此外,通过这个工具,你也可以创建多页面的复合应用。


图 8. 复合应用编辑器
图 8. 复合应用编辑器

创建空白复合应用 NSF,然后填充组件,这就是创建一个复合应用的过程。这个过程本身并不复杂,我们需要面对的非常关键的问题是如何开发那些满足复合应用特性的 NSF 组件和 Eclipse 组件。

NSF 组件的开发

对一个复合应用的组件而言,最基本的部分是属性和操作。所以对组件的开发而言,最重要的部分也将围绕着属性和操作来进行,大体上可以分为三个步骤:定义属性和操作,属性的发布,操作的实现。

我们已经把在本应用实例中要使用的 NSF 组件开发好了,具体开发过程请参照其他 Notes 复合应用实例的文章。这个 NSF 组件是一个 Notes 视图(All by Company),用于展示所有客户列表如 图 9 所示。作为一个 Notes 视图,它本身提供了将所有客户按公司名列举的功能,我们希望它能够在单击视图中的每个客户文档时,对外发送一个属性:该客户的公司名称,该属性的类型为字符串(String)。同时我们希望它能够在单击视图中一个按钮时, 对外发送一个属性:最佳客户列表的模板的路径,该属性的类型为统一资源定位符(URL)。


图 9. All by Company Notes View
图 9. All by Company Notes View

为此,我们给这个视图所在的 NSF 数据库定义一个 WSDL,在这个 WSDL 中我们将描述可对外发布的属性 CustomerName 和 IdTable。作为一个 XML 文件,WSDL 可以通过文本编辑器直接编写(复合应用的熟练开发者一般青睐这种方式),也可以利用 Domino Designer 8 里附带的 WSDL 可视化编辑器 Property Broker Editor 进行编辑,后者会自动生成 XML 代码。当我们在 Property Broker Editor 里把定义属性中 准许发布(Allow publishing)选项选中时如 图 10 所示,一个名为 publish_[属性名称] 的操作就会自动生成。在这里我们发布了两个属性,所以有两个操作在 XML 文件中被定义,如 清单 1 所示。


图 10. Property Broker Editor——定义属性
图 10. Property Broker Editor——定义属性

清单 1. WSDL 中对操作的定义

                

在 WSDL 中定义好属性和操作之后,接下来的问题就是如何在 Notes 元素中实现属性的发布和操作的执行。对 All by Company 这个 Note 视图组件而言,我们使用了两种方式实现属性的发布。一种最简单的做法是通过位于列的属性里的编程栏如 图 11 所示发布了 CustomerName 属性,另一种方式是通过 LotusScript. 如 清单 2 所示发布了 IdTable 属性。


图 11. 在编写设置中指定所要发布的属性
图 11. 在编写设置中指定所要发布的属性

清单 2. 发布属性的 Lotusscript. 样例代码

                
Sub Click(Source As Button)
	Dim s As New NotesSession, ws As New NotesUIWorkspace
	Dim uidb As NotesUIDatabase, db As NotesDatabase, doc As NotesDocument
	Set uidb = ws.CurrentDatabase 
	Set db = s.CurrentDatabase
'Handle error 4719, when script. is run without a property broker context
	On Error 4719 Goto err4719
	
'NotesPropertyBroker code 
	Dim pb As NotesPropertyBroker 'create new NotesPropertyBroker object
	Dim prop As NotesProperty
	Set pb = s.GetPropertyBroker
	If Not pb Is Nothing Then
		Set	prop = pb.getProperty("IdTable")
		Call	pb.setPropertyValue("Idtable","file:\\\C:\IdTable.odt")
		Call   prop.Publish()
		'Messagebox( prop.Values )
	End If
SkipPropertyBroker:
	If cContractPath$ = "" Then Exit Sub
err4719:
	Print "Error " & Str(Err) & ": " & Error$
	Resume skipPropertyBroker
End Sub

在代码中我们看到,Notes 8 中新增了一个 Notes 类 NotesPropertyBroker,通过该类,我们可以在 LotusScript. 中获得当前 Notes 8 客户端中的 Property Broker 对象,并执行相应的操作。在发布属性的时候,只要调用 propertyBroker 的 setPropertyValue 方法写入属性名和属性值,再调用 propertyBroker 的 publish 方法即可完成属性的发布。同样非常简便!

对广大 Notes 用户而言,将 Notes 元素封装成组件的好处在于:用户可以充分利用现有的 Notes 数据库,以模块化,组件化的 SOA 思想对它们加以改造。


Notes 8 中的 Symphony 组件

当然很多情况下,只依靠 NSF 组件构建 Notes 8 复合应用是不够的。在做报表展现,图形处理,以及一些其他业务应用的时候,传统 Notes 开发会遇到一些瓶颈。在 Notes 8 中,我们可以通过 Eclipse 组件来弥补 NSF 组件功能上的不足。Notes 8 中新加入的文档编辑工具 Lotus Symphony 源自 Open Office 1.1 ,是基于 Lotus Expeditor 平台的一个 Eclipse 的插件应用。换句话说,本质上 Lotus Symphony 就是一个大的 Eclipse 插件包。因为 Lotus Symphony 是基于 Eclipse 插件结构 ,所以我们可以把它做成一个 Eclipse 组件来丰富复合应用的功能。开发复合应用的 Eclipse 组件需要具有 Eclipse 的插件(plug-in)开发技能。关于 Eclipse 插件开发细则以及 Eclipse 组件开发环境的配置,请参考 http://www.eclipse.org 上的相关文档,此处不再赘述。

与 NSF 组件一样,Eclipse 组件的开发同样遵循着 定义属性和操作,属性的发布,操作的实现 三个步骤。在最新版本的 Notes 8 中 Lotus Symphony 已经为复合应用提供了一个默认的 Symphony 组件 Symphony View 如 图 12 所示。


图 12. 默认的 Symphony 组件 Symphony View
图 12. 默认的 Symphony 组件 Symphony View

如果你所得到的 Notes 8 不是最新版,你所看到的组件选用板会和上图不一样,不过那也没有关系,默认的 Symphony View 还是存在的,大家可以参照下面的复合应用组装章节,来添加默认的 Symphony 组件到我们的复合应用中去。

Eclipse 组件中同样使用 WSDL 来描述组件的属性和操作,并且其格式与 NSF 组件的完全一致。默认的 Symphony 组件属性和操作的定义文件位于 \framework\shared\eclipse\plugins\ com.ibm.productivity.tools.ui.views_1.0.0.20071130-2008\views.wsdl 这里我们定义了四个属性,其中两个属性为对外发布,另外两个属性为接收其他组件传来的消息。

当我们保存当前编辑文档时对外发送一个属性:文档保存的路径(FileSaved_Message),该属性的类型为统一资源定位符(URL),对应操作 FileSaved_Operation;当我们对文档里的文本对象做选择时对外发送一个属性:当前选择的文本(SelectionChanged_Message),该属性类型为字符串(String)对应操作 SelectionChanged_Operation;当我们要打开其它组件指定的文档时要接收一个属性:指定文档的路径(LoadFile_Message),该属性的类型为统一资源定位符(URL),对应操作 LoadFile_Operation;当我们要往当前文档光标位置插入指定字符串时要接收一个属性:指定的字符串(Insert_Message),该属性类型为字符串(String)对应操作Insert_Operation。

作为一个 Notes 视图,它本身提供了将所有客户按公司名列举的功能,我们希望它能够在单击视图中的每个客户文档时,对外发送一个属性:该客户的公司名称,该属性的类型为字符串(String)。同时我们希望它能够在单击视图中一个按钮时, 对外发送一个属性:最佳客户列表的模板的路径,该属性的类型为统一资源定位符(URL)。Symphony 组件定义的属性如 清单 3 所示。Symphony 组件定义的操作如 清单 4 所示。


清单 3. Symphony 组件定义的属性

                


清单 4. Symphony 组件定义的操作
                

相应的操作实现代码都已经封装在了 Lotus Symphony 插件包里。Lotus Symphony 通过这些属性和操作为复合应用提供了简单接口,给复合应用提供了简单的文档编辑能力:打开,保存文档,插入字符串,获取当前选择文本。当我们要更加紧密地实现 NSF 组件和 Lotus Symphony 组件之间的集成时我们就需要通过 Lotus Symphony API 来编写 Eclipse 组件定制 Lotus Symphony,从而提供更多的接口与功能给其他复合应用的组件。我们会在另一篇文章里介绍如何使用 Lotus Symphony API 来开发定制 Lotus Symphony。

TopCustomer 模板制作

我们这个应用实例是为了完成一个业务目的:创建 2007 年的最佳客户名单。为此我们需要制作一个客户名单的模板。请大家查看我们在前面的 LotusScript. 代码中用到的一行代码:pb.setPropertyValue("Idtable","file:\\\C:\IdTable.odt")。其中 file:\\\C:\IdTable.odt 就是模板的存放地址。如 图 13 所示模板中包含一个大标题和一个存放客户名称的表格。大家可以自行创建自己需要的模板格式,添加新的元素。


图 13. TopCustomer 的模板
图 13. TopCustomer 的模板 

复合应用的组装

创建好了复合应用,开发好了组件,接下来就可以将这些组件加入到复合应用中,并进行组装了。回到复合应用的编辑界面 CAE(Composite Application Editor)中,右边的 sidebar 是组件选用板如 图 14 所示。PIM 栏中列举出了 Notes 8 中提供的开箱即用的组件,主要是邮件,日历,待办等内容,常规栏中则是用户自定义的组件。右键菜单中点击 添加组件,可以选择 添加 NSF 组件 还是 Eclipse 组件。其中 Eclipse 组件又分为了 来自更新站点的,或者是 来自于本地的 两种。后者在 Eclipse 组件的开发调试过程中使用的比较多,正式使用时,一般会将 Eclipse 组件打包放到一个更新站点上,客户端可以自动下载安装。


图 14. 组件选用板
图 14. 组件选用板

添加 NSF 组件时需要指定组件的名称,描述,以及 Notes URL 如 图 15 所示。如果不熟悉 Notes URL 的写法,可以通过浏览的方式获取对象的 Notes URL 如 图 16 所示。


图 15. 加入 NSF 组件
图 15. 加入 NSF 组件

在我们的应用实例中,All by Company 视图是带有导航栏的我们可以通过在 Notes URL 后面添加参数 &HideNavigator 来隐藏导航栏。


图 16. 寻找组件对象
图 16. 寻找组件对象

因为默认的 Lotus Symphony 组件已经被安装到了本地,所以我们通过 来自本地 选项来添加 Lotus Symphony 组件如 图 17 所示,其中 DefaultRichDocumentView 就是默认的 Lotus Symphony 组件(它和我们前面提到的最新 Notes 8 版本里的 Symphony View 是同一个组件,只是新老版本的名称不一样而已)。


图 17. 加入 Eclipse 组件(从本地已安装组件)
图 17. 加入 Eclipse 组件(从本地已安装组件)

现在我们就可以通过拖拽的方式将组件选用板上的组件添加到复合应用中去了。各个组件的位置也可以通过拖拽的方式进行调整。


图 18. 调整组件位置
图 18.  调整组件位置

在确定好组件的布局之后,接下来的工作是非常关键的一步:连接。前文我们说到了 Property Broker 编程模式,其中一个基本的设计理念是:组件之间需要进行连接(Wiring)以匹配属性和操作。而 CAE 中提供了可视化的界面帮助开发者快速进行组件之间的连接如 图 19 所示。


图 19. 连接(Wiring)
图 19. 连接(Wiring)

在复合应用的组件名称处右键点击菜单进入连接界面。在这个图形界面中,用户可以直接在类型匹配(属性名称可以不一致)的属性和操作之间连线,从而将各个组件有机的联系在一起,实现应用的复合。复合,但绝不复杂,大部分的时候,它就是这么简单!


Lotus Symphony 的 LotusScript. 支持

Lotus Notes 是一个强大的协作、工作流平台,很多厂商都把自己的业务建立在它的基础之上。一直以来 Notes 与 文档编辑软件的集成都是很多厂商所关注的问题。大家所熟悉的 Lotus Notes 与 Microsoft Office 或者 OpenOffice 在 Windows 操作系统中的集成都是通过 COM 调用来实现的。这些集成提高了用户的工作效率,增加了各个软件的可用性。在 Notes 8 中 IBM 的免费文档编辑器 Lotus Symphony 被作为一个组件紧密整合到了 Notes 中,给软件开发商和客户们提供了一种全新的更好的 Notes-office 集成方案。虽然我们有很多种方式来实现 Lotus Notes 与 Lotus Symphony 的集成。但是 LotusScript. 始终是关键的一种:

  • LotusScript. 是 Notes 中最重要的编程语言,它已经被 Notes 开发人员广泛的使用。
  • Lotus Symphony 通过 StartBasic 的方式提供对 LotusScript. 的支持。StartBasic 是 OpenOffice 的脚本语言,通过它可以访问几乎所有的 LotusSymphony 提供的功能。
  • StartBasic 的代码可以直接在 LotusScript. 环境中执行。这是因为 LotusScript. 可以直接访问 COM 对象,并且 Lotus Symphony 提供了 UNO 对象和 COM 对象的映射。

注:要使用此功能请使用 Notes 8.0.1 以上的版本

在 清单 5 中所列的 LotusScript. 代码实现了,在当前编辑文档中插入一个带有数据的表格的操作。


清单 5. Symphony 组件定义的操作

                
Sub Click(Source As Button)
    
    Set bjServiceManager = CreateObject("com.sun.star.ServiceManager")
    Set bjCoreReflection= 
        objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
    Set bjDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
    Dim args()
    Set bjFrame=objDesktop.getCurrentFrame()
    Set bjDocument=objDesktop.getCurrentComponent ()
    Set bjText = objDocument.getText()
    Set bjCursor = objText.createTextCursor()
    objText.insertString objCursor, "The Sales History Of This company", False
    Set bjTable= objDocument.createInstance( "com.sun.star.text.TextTable")
    objTable.initialize 4, 4
    'Insert the table
    objText.insertTextContent objCursor, objTable, False
    'Get first row
    Set bjRows= objTable.getRows()
    Set bjRow= objRows.getByIndex(0)
    'Set the table background color
    objTable.setPropertyValue "BackTransparent", False
    objTable.setPropertyValue "BackColor", 13421823
    
'Set a different background color for the first row
    objRow.setPropertyValue "BackTransparent", False
    objRow.setPropertyValue "BackColor", 6710932
    'Fill the first table row
    
    objTable.getCellByName("A2").setValue 22.5
    objTable.getCellByName("B2").setValue 5615.3
    objTable.getCellByName("C2").setValue -2315.7
    objTable.getCellByName("D2").setFormula"sum "
    
    objTable.getCellByName("A3").setValue 21.5
    objTable.getCellByName("B3").setValue 615.3
    objTable.getCellByName("C3").setValue -315.7
    objTable.getCellByName("D3").setFormula "sum "
    
    objTable.getCellByName("A4").setValue 121.5
    objTable.getCellByName("B4").setValue -615.3
    objTable.getCellByName("C4").setValue 415.7
    objTable.getCellByName("D4").setFormula "sum "
    
'Create a paragraph break ( ControlCharacter::PARAGRAPH_BREAK).
    'objText.insertControlCharacter objCursor, 0, False 
    
    On Error Resume Next
    If Err Then
        Msgbox "An error occurred"
    End If 
End Sub

在代码中我们看到,我们通过 CreateObject("com.sun.star.ServiceManager") 方法获得 LotusSymphony 的一个实例。通过 objDocument.createInstance( "com.sun.star.text.TextTable") 来创建一个表格,然后把一些数据填充进这个表格中。这里不对 StartBasic 做更多的解释了,请大家参看 OpenOffice SDK。对广大 Notes 开发人员而言,用 LotusScript. 来访问 Lotus Symphony 的方式实现起来更容易上手。

结束语

现在你就可以感受一下你刚刚组装完成的这个 2007 最佳客户名单复合应用了:点击 OpenIdTable 按钮打开我们制做的模板,把光标放到表格中 Name 栏下,在客户列表中选择一个客户,这个客户的公司名称就会被插入到当前光标位置。你会感受到, 原来制作公文也可以这么简单,以前烦琐的操作查找、复制、粘贴不见了,各个系统和文档编辑器之间的频繁切换不见了,你只需点几下鼠标以前花费几分钟甚至几个小时的工作顷刻间便完成了。这就是 Lotus Symphony 和复合应用共同给大家带来的全新体验。还在等什么?赶紧打开你的 Notes 8 开始你自己的复合应用,开始你自己的 Lotus Symphony 之旅吧!

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

转载于:http://blog.itpub.net/14751907/viewspace-588819/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值