Class TChatChannel (unit ChatChannel) |
Inherits from
TAutoObject
IChatChannel
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;
FChatEventSinks : TConnectionPoint;
FChatUsers : TConnectionPoints;
FDispChatEventSinks : TConnectionPoint;
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;
FChatEventSinks : TConnectionPoint;
FChatUsers : TConnectionPoints;
FDispChatEventSinks : TConnectionPoint;