用Delphi开发WpsOffice插件一二.docx

标准文案

用Delphi开发WpsOffice插件（一）一、开发前的准备工作

本文的开发环境是基于delphi7.0和WPSOFFICE2009个人版。开发前要先做好以下准备

工作。先导入相关的COM库。

打开delphi,点击菜单ProjectImportTypeLibrary...，在弹出的对话框中选择相应的类型库（如下图）。

以上五个类型库都要导入，由于每次只能导入一个，所以要分五次导入。“KingsoftAdd-InDesigner”是Add-In插件COM接口对象。

“KingsoftOffice1.0ObjectLibrary”是WpsOffice公用对象库COM接口。“KingsoftWPS2.0ObjectLibrary”是WPS文字的COM接口。

“KingsoftET2.0ObjectLibrary”是WPS表格的COM接口。“KingsoftWPP2.0ObjectLibrary”是WPS演示的COM接口。

二、创建插件框架

创建插件COM对象

WPSOffice的插件由一个实现了特定接口的DLL、一个XML配置文件以及插件本身需要的其他文件组成。WPSOffice插件DLL实际上是一个实现了_IDTExtensibility2接口的COM组件，这个接口就在我们刚才导入的“KingsoftAdd-InDesigner”对象中。我们只用创建

大全

标准文案

一个COM对象来实现这个接口，就可以继续我们的开发了。

打开delphi7.0,新建一个“ActiveXLibrary”，保存为“SimpleLib.dpr”。

再新建一个“AutomationObject”,CoClassName 输入我们要创建的类名“SimpleAddin”，然后点击OK按钮。

把弹出的类型库编辑器关闭，将unit1保存为“untSimple.pas”，此时单元代码如下：unituntSimple;

{$WARNSYMBOL_PLATFORMOFF}

interfaceuses

ComObj,ActiveX,SimpleLib_TLB,StdVcl;

大全

标准文案

type

TSimpleAddin=class(TAutoObject,ISimpleAddin)protected

end;implementationusesComServ;initialization

TAutoObjectFactory.Create(ComServer,TSimpleAddin, Class_SimpleAddin,

ciMultiInstance,tmApartment);end.

这是我们创建的com对象源码，它目前还没有实现相关的接口。下面我们要添加要使用的单

这是我们创建的com对象源码，它目前还没有实现相关的接口。下面我们要添加要使用的单

元和要实现我接口。将光标定位到 uses区段，在后面添加三个单元的引用，分别是“AddInDesignerObjects_TLB”、“KSO_TLB”、“WPS_TLB”，然后添加接口的实现。

TSimpleAddin = class(TAutoObject, ISimpleAddin, _IDTExtensibility,ICommandBarButtonEvents)

protected

{实现_IDTExtensibility2}

procedureOnAddInsUpdate(varcustom:PSafeArray);safecall;procedureOnBeginShutdown(varcustom:PSafeArray);safecall;procedureOnConnection(constapp:IDispatch;

ConnectMode:ext_ConnectMode;constAddInInst:IDispatch;varcustom:PSafeArray);safecall;

procedureOnDisconnection(RemoveMode:ext_DisconnectMode;varcustom:PSafeArray);safecall;

procedureOnStartupComplete(varcustom:PSafeArray);safecall;

{实现ICommandBarButtonEvents}

procedureClick(constCtrl:CommandBarButton;

v