Delphi CreateOleObject 事件

Question

有一个代码:

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

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

Answer 1

您正在使用 COM 后期绑定(bind)，因此是否需要编写大量代码来处理事件。如果您了解 COM，此任务并不困难，基本上您需要遵循以下步骤。

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

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

• <罢工> How to use an objects event created using createoleobject
• <罢工> Delphi 5 running powerpoint (example using a late binding object with events)
• Delphi 5 running powerpoint (使用带有事件的后期绑定(bind)对象的示例)

尝试这些链接以获取有关 COM、后期绑定(bind)和事件的更多信息

• Automation in Delphi COM Programming
• Supporting automation events in Delphi