| Class TChatChannel (unit ChatChannel) |
TAutoObject
| Constructors |
| Functions |
destructor Destroy;
procedure BroadcastMessage (const UserName, Message: WideString);
function ConnectUser(const Callback: IChatEvent; var UserId: Integer): WordBool;TChatChannel
function DisconnectUser(UserId: Integer): WordBool;
procedure Initialize;
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;