RealICQClient/AppCentre/InterfaceAppCentre.pas

unit InterfaceAppCentre;

interface

{$I ..\Includes\DelphiVersion.inc}

uses
  Graphics, {$IFDEF DELPHI14_UP} System.Classes {$ELSE} Classes {$ENDIF}, Forms;

type
  IApp = interface
  ['{5CD9B954-6597-4596-A60F-4F036D1AC6DF}']
    function GetID: Integer;stdcall;
    function GetImageUrl:AnsiString;stdcall;
    function GetIsHot :Boolean;stdcall;
    function GetAppID :Integer; stdcall;
    function GetIcon: AnsiString; stdcall;
    function GetTitle: AnsiString; stdcall;
    function GetCode: AnsiString; stdcall;
    function GetUrl: AnsiString; stdcall;
    function GetCallBackUri: AnsiString; stdcall;
    function GetTopmost: Boolean; stdcall;
    function GetLocked: Boolean; stdcall;
    function GetAppKey: AnsiString; stdcall;
    function GetAppSecret: AnsiString; stdcall;
    function GetStyle: Byte; stdcall;
    function GetAppStatus: Byte; stdcall;
    function GetUserID: LongWord; stdcall;
    function GetAccessToken: AnsiString; stdcall;
    function GetAccessTokenExpired: AnsiString; stdcall;
    function GetRefreshToken:AnsiString; stdcall;
    function GetOpenID: AnsiString; stdcall;
    function GetOpenKey: AnsiString; stdcall;
    function GetScope:AnsiString; stdcall;
    function GetUserStatus: Integer; stdcall;
    function GetIsAccessTokenValid: Boolean; stdcall;
    function IsCSApp: Boolean; stdcall;
    function IsBSApp: Boolean; stdcall;
    function IsPhoneApp: Boolean; stdcall;
    function GetEmbedded: Boolean; stdcall;
  end;

  IHotApp = interface
    ['{057BD180-E26C-4E87-843D-C3A2B26F0C78}']
    function GetID: Integer; stdcall;
    function GetUserAppID: Integer; stdcall;
    function GetOpenID: AnsiString; stdcall;
    function GetPosition: Integer;  stdcall;
    function GetStatus: Integer; stdcall;
    function GetCreateDate: AnsiString; stdcall;
    function GetUserApp: IApp; stdcall;
    procedure SetCreateDate(const Value: AnsiString);
    procedure SetID(const Value: Integer);
    procedure SetOpenID(const Value: AnsiString);
    procedure SetPosition(const Value: Integer);
    procedure SetStatus(const Value: Integer);
    procedure SetUserApp(const Value: IApp);
    procedure SetUserAppID(const Value: Integer);
  end;

  IHotAppView = interface
  ['{59509CB7-A398-4FC2-B38C-4AD398316EFA}']
    function AddHotApp(AApp: IHotApp): Boolean; stdcall;
    function RemoveHotApp(AApp: IHotApp): Boolean; stdcall;
    procedure OnASyncAppIconDownloaded(AAppKey: AnsiString; const ABuffer; const ACount: Integer); stdcall;
  end;

  IAppCentre = interface
  ['{DE13A6E5-C39E-4088-ACB8-00A0A50143B0}']
    function Login(ALoginName: WideString; AHotAppView: IHotAppView):WideString; stdcall;
    procedure Logout; stdcall;
    function GetHotApps: IInterfaceList; stdcall;
    function GetAllApps: IInterfaceList; stdcall;
    function RemoveHotApp(AAppKey: AnsiString): Boolean; stdcall;
    function AddHotApp(AAppKey: AnsiString; AHotApp: IHotApp): Boolean; stdcall;

    function GetEnable(): Boolean; stdcall;
    function GetAppCentreURL: AnsiString; stdcall;
    procedure OpenAppCentreFrom; stdcall;
    procedure CloseAppCentreForm; stdcall;
    procedure ChangeUIColor(AColor: TColor); stdcall;
    procedure Hello; stdcall;
    procedure SSO(AAppKey: AnsiString; AUrl: AnsiString = ''); stdcall;
    procedure SetMainApplication(AMainApplication: TApplication); stdcall;
    procedure OpenWebDebuggerTool; stdcall;
    procedure CloseWebDebuggerTool; stdcall;

    /// <summary>
    /// ²ÐÁª¶¨ÖÆ
    /// </summary>
    function AuthFromCanlian(ALoginName, APassword: WideString): Boolean; stdcall;

    procedure OpenMessageCentre(ALoginName, APassword: WideString); stdcall;
  end;

  TAppCentreShowType = (stForm, stOnMainform);
  /// <remarks>
  /// ptCanlian ²ÐÁª
  ///  ptOH 걺£
  /// </remarks>
  TAppCentreProjectType = (ptNormal, ptCanlian, ptOH);

  IAppCentreConfig = interface
  ['{FF2E98EE-5F9E-4B11-B32E-48909331321F}']
    function GetClientIP: WideString; stdcall;
    function GetClientPort: Integer; stdcall;
    function GetEnable: Boolean; stdcall;
    function GetIP: WideString; stdcall;
    function GetLxtAppID: WideString; stdcall;
    function GetLxtAppKey: WideString; stdcall;
    function GetLxtAppSecret: WideString; stdcall;
    function GetPort: Integer; stdcall;
    function GetShowType: TAppCentreShowType; stdcall;
    function GetProjectType: TAppCentreProjectType; stdcall;
    procedure Load; stdcall;
    function GetMessageCentreIP: WideString; stdcall;
    function GetMessageCentrePort: Integer; stdcall;
    function GetMessageCentreEnable: Boolean; stdcall;
    function GetDanDianDengLu: Boolean; stdcall;
  end;

implementation

end.