Class TChatChannel (unit ChatChannel)

Inherits from

TAutoObject

IChatChannel

Constructors



Functions

destructor Destroy;

delegate QueryInterface to FChatUsers for IConnectionPointContainer

procedure BroadcastMessage (const UserName, Message: WideString);

OleCheck ((FChatEventSinks as IConnectionPoint).

function ConnectUser(const Callback: IChatEvent; var UserId: Integer): WordBool;

IChatChannel

TChatChannel


function DisconnectUser(UserId: Integer): WordBool;

OleCheck ((FChatEventSinks as IConnectionPoint).

procedure Initialize;

while

function ObjQueryInterface (const IID: TGUID; out Obj): Integer;


Properties

Events

Variables

FChatEventSinks : TConnectionPoint;


FChatUsers : TConnectionPoints;


FDispChatEventSinks : TConnectionPoint;



Constructors


Functions


destructor Destroy;

delegate QueryInterface to FChatUsers for IConnectionPointContainer


procedure BroadcastMessage (const UserName, Message: WideString);

OleCheck ((FChatEventSinks as IConnectionPoint).UnAdvise (UserId));


function ConnectUser(const Callback: IChatEvent; var UserId: Integer): WordBool;

IChatChannel

TChatChannel


function DisconnectUser(UserId: Integer): WordBool;

OleCheck ((FChatEventSinks as IConnectionPoint).Advise (Callback as IUnknown, UserId));


procedure Initialize;

while


function ObjQueryInterface (const IID: TGUID; out Obj): Integer;


Properties


Events


Variables


FChatEventSinks : TConnectionPoint;


FChatUsers : TConnectionPoints;


FDispChatEventSinks : TConnectionPoint;