在Delphi中如何相应普通COM组件的事件呢？急啊，谢谢

Question

李维的<<Delpi5.x ADO/MTS/COM+高级程序设计篇>>中的COM部分有详细的关于如何引用COM中的事件的引用,只是我也记不得,你可以去找来看一看.

Answer 1

InterfaceConnect其实是COM API的封装，你可以看看它的源码。先用QueryInterface一个IConnectionPointContainer interface，然后
IConnectionPointContainer.FindConnectionPoint 找到事件，然后加入你的事件代码
IConnectionPoint.Advise（IUnknown）,加入你的事件接口，需要实现IUnknown接口。
使用完后IConnectionPoint.Unadvise。