Advise
(Available in 01 TS COM - TS_COM_ISink)
Purpose
Activate the sink.
Syntax
hResult:=oSomeISink:Advise( )
Description
Activate the sink. After calling this method with success events from the 'source'-interface are passed to the 'ISink' interface.
Returns
hResult
Example
SELF:_ISink:=TS_CreateInstanceStatic( #TS_ISink, NULL_OBJECT, ; ...
...oAIUnknown, SELF:_InvokeHandler, SELF:IID ; ...
..., NIL )
TSTrace SetCreatedAt( SELF:_ISink )
DO CASE
CASE SELF:_ISink==NULL_OBJECT
TSTrace Warning "SELF:_ISink:=TS_CreateInstanceStatic(#TS_ISink,NULL_OBJECT,oAIUnknown" ; ...
... +",SELF:_InvokeHandler,SELF:IID,NIL)==NULL_OBJECT"
SELF:InvalidateObject( )
CASE SELF:_ISink:Advise( )
Send( oOwner, #_RegisterDelegateISink, SELF )
SELF:RegisterAxit( )
OTHERWISE
TSTrace Warning "!SELF:_ISink:Advise()"
SELF:_ISink:UnAdvise( )
SELF:_ISink:Release( )
SELF:_ISink:=NULL_OBJECT
SELF:InvalidateObject( )
END
Source
METHOD Advise( ) AS LOGIC PASCAL