exoduscom_tlb.pas

类似QQ的源码程序

    ['{2C576B16-DD6A-4E8C-8DEB-38E255B48A88}']
    function onBeforeMessage(var Body: WideString): WordBool; dispid 1;
    function onAfterMessage(var Body: WideString): WideString; dispid 2;
    procedure onKeyPress(const Key: WideString); dispid 3;
    procedure onContextMenu(const ID: WideString); dispid 4;
    procedure onRecvMessage(const Body: WideString; const xml: WideString); dispid 5;
    procedure onClose; dispid 6;
    procedure onMenu(const ID: WideString); dispid 201;
    procedure onNewWindow(HWND: Integer); dispid 202;
  end;

// *********************************************************************//
// Interface: IExodusRoster
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {29B1C26F-2F13-47D8-91C4-A4A5AC43F4A9}
// *********************************************************************//
  IExodusRoster = interface(IDispatch)
    ['{29B1C26F-2F13-47D8-91C4-A4A5AC43F4A9}']
    procedure Fetch; safecall;
    function Subscribe(const JabberID: WideString; const nickname: WideString; 
                       const Group: WideString; Subscribe: WordBool): IExodusRosterItem; safecall;
    function Find(const JabberID: WideString): IExodusRosterItem; safecall;
    function Item(Index: Integer): IExodusRosterItem; safecall;
    function Count: Integer; safecall;
    procedure removeItem(const Item: IExodusRosterItem); safecall;
    function addGroup(const grp: WideString): IExodusRosterGroup; safecall;
    function getGroup(const grp: WideString): IExodusRosterGroup; safecall;
    procedure removeGroup(const grp: IExodusRosterGroup); safecall;
    function Get_GroupsCount: Integer; safecall;
    function Groups(Index: Integer): IExodusRosterGroup; safecall;
    function Items(Index: Integer): IExodusRosterItem; safecall;
    function AddContextMenu(const ID: WideString): WordBool; safecall;
    procedure RemoveContextMenu(const ID: WideString); safecall;
    function addContextMenuItem(const menu_id: WideString; const Caption: WideString; 
                                const action: WideString): WideString; safecall;
    procedure removeContextMenuItem(const menu_id: WideString; const item_id: WideString); safecall;
    function addItem(const JabberID: WideString): IExodusRosterItem; safecall;
    property GroupsCount: Integer read Get_GroupsCount;
  end;

// *********************************************************************//
// DispIntf:  IExodusRosterDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {29B1C26F-2F13-47D8-91C4-A4A5AC43F4A9}
// *********************************************************************//
  IExodusRosterDisp = dispinterface
    ['{29B1C26F-2F13-47D8-91C4-A4A5AC43F4A9}']
    procedure Fetch; dispid 1;
    function Subscribe(const JabberID: WideString; const nickname: WideString; 
                       const Group: WideString; Subscribe: WordBool): IExodusRosterItem; dispid 3;
    function Find(const JabberID: WideString): IExodusRosterItem; dispid 6;
    function Item(Index: Integer): IExodusRosterItem; dispid 7;
    function Count: Integer; dispid 8;
    procedure removeItem(const Item: IExodusRosterItem); dispid 201;
    function addGroup(const grp: WideString): IExodusRosterGroup; dispid 202;
    function getGroup(const grp: WideString): IExodusRosterGroup; dispid 203;
    procedure removeGroup(const grp: IExodusRosterGroup); dispid 204;
    property GroupsCount: Integer readonly dispid 205;
    function Groups(Index: Integer): IExodusRosterGroup; dispid 206;
    function Items(Index: Integer): IExodusRosterItem; dispid 207;
    function AddContextMenu(const ID: WideString): WordBool; dispid 208;
    procedure RemoveContextMenu(const ID: WideString); dispid 209;
    function addContextMenuItem(const menu_id: WideString; const Caption: WideString; 
                                const action: WideString): WideString; dispid 210;
    procedure removeContextMenuItem(const menu_id: WideString; const item_id: WideString); dispid 211;
    function addItem(const JabberID: WideString): IExodusRosterItem; dispid 212;
  end;

// *********************************************************************//
// Interface: IExodusPPDB
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {284E49F2-2006-4E48-B0E0-233867A78E54}
// *********************************************************************//
  IExodusPPDB = interface(IDispatch)
    ['{284E49F2-2006-4E48-B0E0-233867A78E54}']
    function Find(const JabberID: WideString; const resource: WideString): IExodusPresence; safecall;
    function Next(const JabberID: WideString; const resource: WideString): IExodusPresence; safecall;
    function Get_Count: Integer; safecall;
    function Get_LastPresence: IExodusPresence; safecall;
    property Count: Integer read Get_Count;
    property LastPresence: IExodusPresence read Get_LastPresence;
  end;

// *********************************************************************//
// DispIntf:  IExodusPPDBDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {284E49F2-2006-4E48-B0E0-233867A78E54}
// *********************************************************************//
  IExodusPPDBDisp = dispinterface
    ['{284E49F2-2006-4E48-B0E0-233867A78E54}']
    function Find(const JabberID: WideString; const resource: WideString): IExodusPresence; dispid 1;
    function Next(const JabberID: WideString; const resource: WideString): IExodusPresence; dispid 2;
    property Count: Integer readonly dispid 3;
    property LastPresence: IExodusPresence readonly dispid 4;
  end;

// *********************************************************************//
// Interface: IExodusRosterItem
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F710F80C-C74A-4A69-8D2B-023504125B96}
// *********************************************************************//
  IExodusRosterItem = interface(IDispatch)
    ['{F710F80C-C74A-4A69-8D2B-023504125B96}']
    function Get_JabberID: WideString; safecall;
    procedure Set_JabberID(const Value: WideString); safecall;
    function Get_Subscription: WideString; safecall;
    procedure Set_Subscription(const Value: WideString); safecall;
    function Get_Ask: WideString; safecall;
    function Get_GroupCount: Integer; safecall;
    function Group(Index: Integer): WideString; safecall;
    function xml: WideString; safecall;
    procedure Remove; safecall;
    procedure Update; safecall;
    function Get_nickname: WideString; safecall;
    procedure Set_nickname(const Value: WideString); safecall;
    function Get_RawNickname: WideString; safecall;
    function Get_ContextMenuID: WideString; safecall;
    procedure Set_ContextMenuID(const Value: WideString); safecall;
    function Get_Status: WideString; safecall;
    procedure Set_Status(const Value: WideString); safecall;
    function Get_Tooltip: WideString; safecall;
    procedure Set_Tooltip(const Value: WideString); safecall;
    function Get_action: WideString; safecall;
    procedure Set_action(const Value: WideString); safecall;
    function Get_imageIndex: Integer; safecall;
    procedure Set_imageIndex(Value: Integer); safecall;
    function Get_InlineEdit: WordBool; safecall;
    procedure Set_InlineEdit(Value: WordBool); safecall;
    procedure fireChange; safecall;
    function Get_IsContact: WordBool; safecall;
    procedure Set_IsContact(Value: WordBool); safecall;
    procedure addGroup(const grp: WideString); safecall;
    procedure removeGroup(const grp: WideString); safecall;
    procedure setCleanGroups; safecall;
    function Get_ImagePrefix: WideString; safecall;
    procedure Set_ImagePrefix(const Value: WideString); safecall;
    function Get_IsNative: WordBool; safecall;
    procedure Set_IsNative(Value: WordBool); safecall;
    function Get_CanOffline: WordBool; safecall;
    procedure Set_CanOffline(Value: WordBool); safecall;
    property JabberID: WideString read Get_JabberID write Set_JabberID;
    property Subscription: WideString read Get_Subscription write Set_Subscription;
    property Ask: WideString read Get_Ask;
    property GroupCount: Integer read Get_GroupCount;
    property nickname: WideString read Get_nickname write Set_nickname;
    property RawNickname: WideString read Get_RawNickname;
    property ContextMenuID: WideString read Get_ContextMenuID write Set_ContextMenuID;
    property Status: WideString read Get_Status write Set_Status;
    property Tooltip: WideString read Get_Tooltip write Set_Tooltip;
    property action: WideString read Get_action write Set_action;
    property imageIndex: Integer read Get_imageIndex write Set_imageIndex;
    property InlineEdit: WordBool read Get_InlineEdit write Set_InlineEdit;
    property IsContact: WordBool read Get_IsContact write Set_IsContact;
    property ImagePrefix: WideString read Get_ImagePrefix write Set_ImagePrefix;
    property IsNative: WordBool read Get_IsNative write Set_IsNative;
    property CanOffline: WordBool read Get_CanOffline write Set_CanOffline;
  end;

// *********************************************************************//
// DispIntf:  IExodusRosterItemDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F710F80C-C74A-4A69-8D2B-023504125B96}
// *********************************************************************//
  IExodusRosterItemDisp = dispinterface
    ['{F710F80C-C74A-4A69-8D2B-023504125B96}']
    property JabberID: WideString dispid 1;
    property Subscription: WideString dispid 2;
    property Ask: WideString readonly dispid 4;
    property GroupCount: Integer readonly dispid 5;
    function Group(Index: Integer): WideString; dispid 6;
    function xml: WideString; dispid 7;
    procedure Remove; dispid 8;
    procedure Update; dispid 9;
    property nickname: WideString dispid 10;
    property RawNickname: WideString readonly dispid 11;
    property ContextMenuID: WideString dispid 201;
    property Status: WideString dispid 202;
    property Tooltip: WideString dispid 203;
    property action: WideString dispid 204;
    property imageIndex: Integer dispid 205;
    property InlineEdit: WordBool dispid 206;
    procedure fireChange; dispid 207;
    property IsContact: WordBool dispid 208;
    procedure addGroup(const grp: WideString); dispid 210;
    procedure removeGroup(const grp: WideString); dispid 211;
    procedure setCleanGroups; dispid 212;
    property ImagePrefix: WideString dispid 209;
    property IsNative: WordBool dispid 213;
    property CanOffline: WordBool dispid 214;
  end;

// *********************************************************************//
// Interface: IExodusPresence
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D2FD3425-40CE-469F-A95C-1C80B7FF3119}
// *********************************************************************//
  IExodusPresence = interface(IDispatch)
    ['{D2FD3425-40CE-469F-A95C-1C80B7FF3119}']
    function Get_PresType: WideString; safecall;
    procedure Set_PresType(const Value: WideString); safecall;
    function Get_Status: WideString; safecall;
    procedure Set_Status(const Value: WideString); safecall;
    function Get_Show: WideString; safecall;
    procedure Set_Show(const Value: WideString); safecall;
    function Get_Priority: Integer; safecall;
    procedure Set_Priority(Value: Integer); safecall;
    function Get_ErrorString: WideString; safecall;
    procedure Set_ErrorString(const Value: WideString); safecall;
    function xml: WideString; safecall;
    function isSubscription: WordBool; safecall;
    function Get_toJid: WideString; safecall;
    procedure Set_toJid(const Value: WideString); safecall;
    function Get_fromJid: WideString; safecall;
    procedure Set_fromJid(const Value: WideString); safecall;
    property PresType: WideString read Get_PresType write Set_PresType;
    property Status: WideString read Get_Status write Set_Status;
    property Show: WideString read Get_Show write Set_Show;
    property Priority: Integer read Get_Priority write Set_Priority;
    property ErrorString: WideString read Get_ErrorString write Set_ErrorString;
    property toJid: WideString read Get_toJid write Set_toJid;
    property fromJid: WideString read Get_fromJid write Set_fromJid;
  end;

// *********************************************************************//
// DispIntf:  IExodusPresenceDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D2FD3425-40CE-469F-A95C-1C80B7FF3119}
// *********************************************************************//