的Delphi CreateOleObject事件

Question

有一個代碼：

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

此COM對象具有事件（例如的OnClick）。我應該如何在不導入TLB的情況下連接到這些事件？

Answer 1

你正在使用COM遲綁定，所以你需要編寫大量的代碼來處理事件。如果你知道COM，這個任務並不難，基本上你需要按照這些步驟。

• 創建一個從TInterfacedObject派生的新對象（類）實現 IDispatch
• 實現新類
• 查詢的連接點容器（IConnectionpointContainer）和所需的連接點的Invoke()功能。
• 下沉使用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（例如，使用與事件後期綁定對象）

嘗試這些鏈接有關COM更多信息，後期綁定和事件

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