标准文案
用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