关于使用COM对象的方法 / 蚯蚓(0分)

关于使用COM对象的方法，以Microsoft Word为例，作简要说明：

Step0： 从Word的类型库(Type Library)文件生成声明文件(xxx_TLB.pas)，
要使用自动对象，必须先读取相应的类型库文件(*.TLB)，从其中得到自动对象的类型信息，
方法：在Delphi IDE中打开....../Microsoft Office/Office/M$Word8.olb
Delphi将根据类型库中的信息生成声明单元Word_TLB.pas，
注意，Delphi在转换过程中将以下符号(symbol)进行了重命名(rename)：
--------------------------------------------------------
类型库中的符号 重命名为
--------------------------------------------------------
Application WordApplication
do
cument WordDocument
Font WordFont
ParagraphFormat WordParagraphFormat
OLEControl WordOLEControl
LetterContent WordLetterContent
--------------------------------------------------------
这个问题后面会详细讨论

Word_TLB.pas中包含的如下信息：
...
...
const
...
//coClass "Application" 的ClassID
CLASS_WordApplication: TGUID = '{000209FF-0000-0000-C000-000000000046}';
...
...
...
我们也将在后面用到

Step1： 创建WordApplication对象，如下：
函数CreateCOMObject将根据指定的ClassID创建对应的COM自动对象，声明如下：
//unit COMObj
function CreateCOMObject(const ClassID: TGUID): IUnknown;
在本例中，我们创建WordApplication对象的代码如下：

// 引用COMObj单元和Word_TLB单元
uses
..., ..., ..., COMObj, Word_TLB;
type
TfmMain = class(TForm)
...
...
private
// 声明一个变量，保存WordApplication的引用
// WordApplication在Word_TLB单元中声明
WordApp: WordApplication;
protected
procedure StartWordApp;
procedure TerminateWordApp;
end;

其中StartWordApp方法将分别创建一个WordApplication对象，
实现如下：
procedure TfmMain.StartWordApp;
begin
if not Assigned(WordApp) then
try
// 创建WordApplication对象
WordApp:=CreateCOMObject(CLASS_WordApplication) as WordApplication;
with WordAppdo
begin
// 指定COM对象的属性
Caption:='This copy of WinWord is launched by '+Forms.Application.ExeName;
Visible:=True;
end;
ShowMsg('启动 Word Application 成功');
except
ShowError('启动 Word Application 失败');
end;
end;

procedure TfmMain.btStartWordAppClick(Sender: TObject);
begin
StartWordApp;
end;

????????什么意思？？？？？？

Step2： 创建WordApplication对象后就可以使用其属性和方法了，如下：
// 创建新文档
procedure TfmMain.btNewDocClick(Sender: TObject);
var
do
cTemplate,
NewTemplate : OleVariant;
begin
StartWordApp;
do
cTemplate := UnAssigned;
// 打开新文档时使用的模板
NewTemplate := False;
// 是否将文档作为模板打开
WordApp.Documents.Add(DocTemplate,NewTemplate);
end;

// 关闭当前文档
procedure TfmMain.btCloseDocClick(Sender: TObject);
var
SaveChanges,
OriginalFormat,
RouteDocument : OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
// 不保存修改
OriginalFormat := UnAssigned;
// 未赋值
RouteDocument := UnAssigned;
// 未赋值
WordApp.ActiveDocument.Close(SaveChanges,OriginalFormat,RouteDocument);
end;

Step3：COM对象使用完毕后，注意释放
TerminateWordApp方法将释放WordApp指向的COM对象，
实现如下：
procedure TfmMain.TerminateWordApp;
var
SaveChanges,
OriginalFormat,
RouteDocument : OleVariant;
begin
if Assigned(WordApp) then
begin
SaveChanges := WdDoNotSaveChanges;
// 不保存修改
OriginalFormat := UnAssigned;
// 未赋值
RouteDocument := UnAssigned;
// 未赋值
try
// 调用COM对象方法
WordApp.Quit(SaveChanges,OriginalFormat,RouteDocument);
ShowMsg('关闭 Word Application 成功');
except
ErrorMsg('关闭 Word Application 失败');
end;
// 将WordApp赋值为Nil，则原来指向的COM对象的引用记数减1
// 当引用记数为0时，COM对象将被释放
WordApp := Nil;
end;
end;

procedure TfmMain.FormDestroy(Sender: TObject);
begin
TerminateWordApp;
end;

sorry!

可惜没有收藏夹。

估计很快会被hubdog收藏到葵花宝典里

后记：
1、以上所述方法是完全通过编程直接调用COM实现的，
所有使用COM的地方都可以通过上面的方法实现，
步骤为：
(0)根据类型库文件生成声明单元
(1)得到需要的ClassID后使用CreateCOMObject函数创建COM对象
(2)使用COM对象的属性和方法完成操作
(3)释放COM对象
2、我们的目的不仅仅是为了控制Word，而是为了说明使用COM的根本方法，
选择Word作为例子，是因为大家都比较熟悉，
对Word的控制，Delphi已经提供了一些支持，包括：
....../Delphi5/Ocx/Servers/Word97.pas
等于前面所说的Word_TLB.pas，
....../Delphi5/Demos/Activex/Oleauto/Word8/autoimpl.pas
将以上对COM对象的操作封装成了一个Delphi类
还可以参考两个示例：
....../Delphi5/Demos/Activex/Oleauto/Word8/word8auto.dpr
和
....../Delphi5/Demos/Activex/Oleauto/SrvCOMp/Word/pwordCOMp.dpr

3、一般情况下会同时提供很多COM Server，
应该使用什么对象、使用什么方法、使用什么属性
需要参考帮助文件，上面的例子中M$Word8.olb的帮助文件为：
..../Microsoft Office/Office/VBAWRD8.HLP
在没有帮助文件的情况下就需要研究类型库中的信息了

4、关于类型库本身
类型库包含非常丰富的信息，包括：
Interface、DispInterface、CoClass、Enumeration、
Alias、Record、Union、Module等等
这些是类型库的基本信息，此外还包括：
指定的帮助文件、所依赖的其它类型库等等
类型库一般以单独的类型库文件(*.TLB)提供，或包含在Server程序中(*.EXE、*.DLL)
类型库信息包含在EXE中的例子有：
..../Delphi5/Demos/Activex/Oleauto/Autoserv/memoedit.dpr
在DLL中的例子有：
..../Delphi5/Bin/StdVcl40.DLL
这两种情况下，实际上类型库信息都包含在EXE/DLL中的名为"TypeLib"的资源中
查看M$Word8.OLB可以看到，它实际上是一个DLL格式文件
5、关于类型库的Register和Unregister
Windows下有注册类型库的程序RegSvr32.exe，Borland自己也有TRegSvr.exe
除此之外，在Delphi IDE中打开类型库后，可以使用菜单Run|Register ActiveX Server
或Run|Unregister ActiveX Server
那么类型库的Register和Unregister具体是怎么实现的呢，
打开..../Delphi5/Demos/Activex/TRegSvr/TRegSvr.dpr，查看源代码，我们可以看到：
(1)对于*.tlb:
调用OleAut32.DLL中的LoadLibrary函数，得到一个ITypeLib接口，
调用ITypeLib的GetLibAttr方法，得到tagTLibAttr结构，其中包括
GUID、LCID、Major Version、Minor Version、SysKind信息
Register的方法是：
调用OleAut32.DLL中RegisterTypeLib函数
Unregister的方法是：
调用OleAut32.DLL中UnregisterTypeLib函数，参数由前面的tagTLibAttr结构中各域指定
详见TRegSvr.dpr中的RegisterTLB过程
(2)对于*.dll：
调用LoadLibrary函数载入dll
Register的方法是：
调用DLL中的DllRegisterServer函数
Unregister的方法是：
调用DLL中的DllUnregisterServer函数
(3)对于*.exe
Register的方法是：
调用EXE，命令行参数为"/RegServer"
Unregister的方法是：
调用EXE，命令行参数为"/UnregServer"
也就是说，对于DLL和EXE，应该实现自注册(Self Register)，
即ActiveX Server本身完成Register和Unregister动作。
对于Delphi编写的ActiveX Server，这些工作都在COMServ.pas完成，
详细的过程比较罗嗦，有兴趣可以去看看，
主要的代码在RegisterTypeLibrary和UnregisterTypeLibrary过程中
和上面的TRegSvr.dpr中对TLB的注册过程大致一样
经过上面的分析可以看到，最终都是通过OleAut32.DLL中的
RegisterTypeLib和UnregisterTypeLib完成的，
我们注意到一点奇怪的现象：
上面提到的源代码在调用RegisterTypeLib时都是直接调用，
该函数的声明在ActiveX.pas中，指定到OleAut32.DLL中的RegisterTypeLib函数
就在相同的地方，我们也看到了UnregisterTypeLib的声明，
但是，上面提到的源代码在调用UnregisterTypeLib时都没有直接调用，
而是先GetModuleHandle('OLEAut32.DLL')，然后用GetProcAddress查找UnregisterTypeLib，
再根据查找的结果进行调用
而且所有相关的地方都是这样进行，估计不是失误，这样看来，
似乎Borland在写这段程序时考虑到了OLEAut32.DLL中不包括UnregisterTypeLib函数的情况，
难道OLEAut32.DLL的早期版本中的确不包括UnregisterTypeLib函数??
但M$DN对UnregisterTypeLib的说明没有提到
6、关于打开类型库时符号重命名(symbol rename)
类型库中某些符号在生成声明单元时被重命名，
大部分是因为符号名与Pascal关键字重名，因此Delphi必须重命名
但前面说到的几个符号的重命名显然不是这个原因，我们注意到：
(1)这几个符号都是CoClass，而且是类型库中几乎全部的CoClass，
只有一个CoClass："Global"不在其中
(2)这几个符号被重命名后都加上了"Word"前缀，
而这个类型库的名称正好就是"Word"
其中是否存在联系??
7、对于任意的一个CoClass，从类型库中可以得到其中的interface信息，
因此创建和释放COM对象的代码可以自动生成，
对于所有的interface，也可以从类型库中得到其属性、方法信息，
因此访问这些属性、方法的代码也可以自动生成
由此，Delphi 5 将在声明单元中为所有的CoClass
创建相应的代理类(OLE Server Proxy class)，
这些代理类以Delphi类的形式提供封装，而内部实现了对COM对象的全部操作，
包括创建、释放以及访问各种属性和方法
另外，Delphi 5还会将这些代理类作为组件注册到组件板的'Server'页面上
详情请在xxx_TLB.pas中查找"OLE Server Proxy class"
通过这些代理类，我们可以很方便地使用COM对象，
而不必向上面所说的那样一切都通过自己实现，
当然，前面所说的是一切的基础，应该作为原理了解

所以，象这样的帖子是否可以让出题人选出关键贴，然后在加一个显示并发送此贴精华呢？

不错，不错，就是这类文章太少了。

听君一席话，胜读十年书。

<font color=darkgreen><b>版权没有
欢迎转载
</b></font>

哈哈，这个死蚯蚓，化成灰我也认得你。
在网上水平又高，又不贪财的有几个？
你是不是名望太高怕惹人耳目？
所以改做幕后工作？
佩服佩服。

这篇是我自己写的，
起因是几个月前有个家伙问我COM对象该怎么调用，
于是我就打开类型库看啊看啊。。。。。

最近还看到几篇好文章，很适合入门者，可惜是E文的，
打算熬几夜翻译出来，再贴给大家看。。。

钦佩，
本来上次参与sonie的题目对COM也有了一点了解，
也想写点心得，
不过总是瞎忙这瞎忙那，
最后没写
到底是earthworm,
在地下勤勤恳恳
向你学习，
不过我就不钻到地下去的;-)

太好了，谢谢，还有吗？
继续关注！

终于忍不住贴上来了。
不过，我最后还是用别的方法搞定的。
等哪天有空，写出来给你看

>> 终于忍不住贴上来了
实在是闲的无聊啊， 没办法
再说了，人都是有表现欲的嘛，
你难道没写过 'xxx到此一游' ？
乾隆老爷子不也写了一万多首"诗"??

大富翁真应该有个精华区的,放一些非FAQ的专题文章.
网易广州社区的C版精华区就狠酷.