Delphi CreateOleObject事件

Question

有一个代码:

var 
myobject: OleVariant;
begin
 myobject := CreateOleObject('SomeNamespace.SomeClass');
end;

此COM对象具有事件(例如OnClick).如何在不导入TLB的情况下连接这些事件？

Answer 1

您正在使用COM后期绑定,因此您需要编写大量代码来处理事件.如果您了解COM,这项任务并不困难,基本上您需要按照这些步骤操作.

• 创建从TInterfacedObject该实现 派生的新对象(类)IDispatch
• 实现Invoke()新类的功能
• 查询连接点容器(IConnectionpointContainer)和所需的连接点.
• 使用连接点沉入连接点 IConnectionPointContainer.FindConnectionPoint
• 最后执行IConnectionPoint.Advise()使用你的实现IDispatch

您可以在这些链接上找到此实现的示例

• 如何使用createoleobject创建的对象事件
• Delphi 5运行powerpoint(使用带事件的后期绑定对象的示例)
• Delphi 5运行powerpoint(使用带事件的后期绑定对象的示例)

试试这些链接,了解有关COM,后期绑定和事件的更多信息

• Delphi中的自动化COM编程
• 支持Delphi中的自动化事件