Delphi CreateOleObject Events

Question

There is a code:

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

This COM object has events (for example, OnClick). How to connect to these events without importing TLB?

Answer 1

You work with late COM bindings, so you need to write a lot of code to handle events. this task is not difficult if you know COM, basically you need to follow these steps.

• Create a new object (class) derived from TInterfacedObjectthat implements IDispatch
• implements the function of Invoke()your new class
• Request container connection points ( IConnectionpointContainer) and the desired connection point.
• remove the connection point using IConnectionPointContainer.FindConnectionPoint
• , IConnectionPoint.Advise(), IDispatch

• , createoleobject
• Delphi 5 Powerpoint ( )
• Delphi 5, Powerpoint ( )

COM,

• COM Delphi
• Delphi