| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231 |
- unit UTest;
- interface
- uses
- mybean.core.objects, Classes, SysUtils, StrUtils, superobject, Dialogs,
- DateUtils, InterfaceAppCentre, Forms, Graphics;
- type
- TAppCentreTest = class(TMyBeanInterfacedObject, IAppCentre)
- public
- 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;
- TAppCentreConfigTest = class(TMyBeanInterfacedObject, IAppCentreConfig)
- public
- 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
- { TAppCentreConfigTest }
- function TAppCentreConfigTest.GetClientIP: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetClientPort: Integer;
- begin
- end;
- function TAppCentreConfigTest.GetDanDianDengLu: Boolean;
- begin
- end;
- function TAppCentreConfigTest.GetEnable: Boolean;
- begin
- end;
- function TAppCentreConfigTest.GetIP: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetLxtAppID: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetLxtAppKey: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetLxtAppSecret: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetMessageCentreEnable: Boolean;
- begin
- end;
- function TAppCentreConfigTest.GetMessageCentreIP: WideString;
- begin
- end;
- function TAppCentreConfigTest.GetMessageCentrePort: Integer;
- begin
- end;
- function TAppCentreConfigTest.GetPort: Integer;
- begin
- end;
- function TAppCentreConfigTest.GetProjectType: TAppCentreProjectType;
- begin
- end;
- function TAppCentreConfigTest.GetShowType: TAppCentreShowType;
- begin
- end;
- procedure TAppCentreConfigTest.Load;
- begin
- end;
- { TAppCentreTest }
- function TAppCentreTest.AddHotApp(AAppKey: AnsiString;
- AHotApp: IHotApp): Boolean;
- begin
- end;
- function TAppCentreTest.AuthFromCanlian(ALoginName,
- APassword: WideString): Boolean;
- begin
- end;
- procedure TAppCentreTest.ChangeUIColor(AColor: TColor);
- begin
- end;
- procedure TAppCentreTest.CloseAppCentreForm;
- begin
- end;
- procedure TAppCentreTest.CloseWebDebuggerTool;
- begin
- end;
- function TAppCentreTest.GetAllApps: IInterfaceList;
- begin
- end;
- function TAppCentreTest.GetAppCentreURL: AnsiString;
- begin
- end;
- function TAppCentreTest.GetEnable: Boolean;
- begin
- end;
- function TAppCentreTest.GetHotApps: IInterfaceList;
- begin
- end;
- procedure TAppCentreTest.Hello;
- begin
- end;
- function TAppCentreTest.Login(ALoginName: WideString;
- AHotAppView: IHotAppView): WideString;
- begin
- end;
- procedure TAppCentreTest.Logout;
- begin
- end;
- procedure TAppCentreTest.OpenAppCentreFrom;
- begin
- end;
- procedure TAppCentreTest.OpenMessageCentre(ALoginName, APassword: WideString);
- begin
- end;
- procedure TAppCentreTest.OpenWebDebuggerTool;
- begin
- end;
- function TAppCentreTest.RemoveHotApp(AAppKey: AnsiString): Boolean;
- begin
- end;
- procedure TAppCentreTest.SetMainApplication(AMainApplication: TApplication);
- begin
- end;
- procedure TAppCentreTest.SSO(AAppKey, AUrl: AnsiString);
- begin
- end;
- end.
|