MPLATFORMLib Namespace > IMObject Interface : ObjectCallbackSet Method |
Sub ObjectCallbackSet( _ ByVal _pCallback As IMCallback, _ ByVal _llCallbackUserData As Long _ )
void ObjectCallbackSet( IMCallback _pCallback, long _llCallbackUserData )
procedure ObjectCallbackSet( _pCallback: IMCallback; _llCallbackUserData: Int64 );
void ObjectCallbackSet( IMCallback* _pCallback, long _llCallbackUserData )
var cookie: LONG_PTR; myPlaylist: MPlaylist; myObject: IMObject; myEvents TEvents; begin myEvents := TEvents.Create() myPlaylist:= CreateComObject(CLASS_MPlatlist) as MPlaylist; myObject:= myPlaylist as IMObject; myObject.ObjectCallbackSet(myEvents, cookie); end.