B
bitfarmer
Unregistered / Unconfirmed
GUEST, unregistred user!
unit uSvrPlugInf;<br><br>interface<br>type<br> TPlugPackEvnt = procedure(ARoomID, AUserID: longword; APack: pointer; ASize: integer); stdcall;<br> TRoomOnOffEvnt = procedure(ARoomID: longword; IsOn: boolean); stdcall;<br> TUserInOutEvnt = procedure(ARoomID, AUserID: longword; IsLogin: boolean); stdcall;<br><br> pPlugEvnts = ^TPlugEvnts;<br> TPlugEvnts = packed record<br> OnPlugPack: TPlugPackEvnt;<br> OnRoomOnOff: TRoomOnOffEvnt;<br> OnUserInOut: TUserInOutEvnt;<br> end;<br> <br><br>TCreatePlugFun = function(APlugMngIp: longword; APlugMngPort: word; APlugID: longword): longword; stdcall;<br>TFreePlugFun = function(AHandle: longword): boolean; stdcall;<br>TSetPlugEvntsFun = function(AHandle: longword; pEvnts: pPlugEvnts): boolean; stdcall;<br>TSendPackFun = function(AHandle, ARoomID, AUserID: longword; APack: pointer;ASize: integer): boolean; stdcall;<br><br>implementation<br><br>end.