Delphi CreateOleObject 事件
有一段代码：
var
myobject: OleVariant;
begin
myobject := CreateOleObject('SomeNamespace.SomeClass');
end;
这个COM对象有事件（例如OnClick）。我应该如何在不导入 TLB 的情况下连接到这些事件？
There is a code:
var
myobject: OleVariant;
begin
myobject := CreateOleObject('SomeNamespace.SomeClass');
end;
This COM object has events (for example OnClick). How should I connect to these events without importing TLB?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
您正在使用 COM 后期绑定，因此您需要编写大量代码来处理事件吗？如果你了解 COM，这个任务并不困难，基本上你需要遵循以下步骤。
TInterfacedObject的新对象（类）实现IDispatchInvoke()函数IConnectionpointContainer）和所需的连接点。IConnectionPointContainer.FindConnectionPointIConnectionPoint.Advise()使用您的实现IDispatch您可以在这些链接上找到此实现的示例
如何使用使用 createoleobject 创建的对象事件尝试这些链接以获取有关 COM、后期绑定的更多信息和事件
You are working with COM late-binding, so do you need write a lot of code to handle events. this task is not difficult if you know COM, basically do you need follow these steps.
TInterfacedObjectthat implementsIDispatchInvoke()function of your new classIConnectionpointContainer) and desired connection point.IConnectionPointContainer.FindConnectionPointIConnectionPoint.Advise()using your implementation ofthe
IDispatchyou can found examples of this implementation on these links
How to use an objects event created using createoleobjectDelphi 5 running powerpoint (example using a late binding object with events)try out these links for more info about COM, late-binding and events