有一个代码：
var
myobject: OleVariant;
begin
myobject := CreateOleObject('SomeNamespace.SomeClass');
end;
此 COM 对象具有事件（例如 OnClick）。我应该如何在不导入 TLB 的情况下连接到这些事件？
问问题
4323 次
1 回答
6
您正在使用 COM 后期绑定，因此您需要编写大量代码来处理事件。如果您了解 COM，这个任务并不难，基本上您需要按照这些步骤操作。
- 创建一个从
TInterfacedObject该实现 派生的新对象（类）IDispatch - 实现
Invoke()你的新类的功能 - 查询连接点容器 (
IConnectionpointContainer) 和所需的连接点。 - 使用下沉连接点
IConnectionPointContainer.FindConnectionPoint - 最后执行
IConnectionPoint.Advise()使用你的实现IDispatch
您可以在这些链接上找到此实现的示例
如何使用使用 createoleobject 创建的对象事件Delphi 5 running powerpoint（使用带有事件的后期绑定对象的示例）- Delphi 5 running powerpoint（使用带有事件的后期绑定对象的示例）
尝试这些链接以获取有关 COM、后期绑定和事件的更多信息
于 2010-09-04T20:49:47.707 回答