UTest.pas 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231
  1. unit UTest;
  2. interface
  3. uses
  4. mybean.core.objects, Classes, SysUtils, StrUtils, superobject, Dialogs,
  5. DateUtils, InterfaceAppCentre, Forms, Graphics;
  6. type
  7. TAppCentreTest = class(TMyBeanInterfacedObject, IAppCentre)
  8. public
  9. function Login(ALoginName: WideString; AHotAppView: IHotAppView):WideString; stdcall;
  10. procedure Logout; stdcall;
  11. function GetHotApps: IInterfaceList; stdcall;
  12. function GetAllApps: IInterfaceList; stdcall;
  13. function RemoveHotApp(AAppKey: AnsiString): Boolean; stdcall;
  14. function AddHotApp(AAppKey: AnsiString; AHotApp: IHotApp): Boolean; stdcall;
  15. function GetEnable(): Boolean; stdcall;
  16. function GetAppCentreURL: AnsiString; stdcall;
  17. procedure OpenAppCentreFrom; stdcall;
  18. procedure CloseAppCentreForm; stdcall;
  19. procedure ChangeUIColor(AColor: TColor); stdcall;
  20. procedure Hello; stdcall;
  21. procedure SSO(AAppKey: AnsiString; AUrl: AnsiString = ''); stdcall;
  22. procedure SetMainApplication(AMainApplication: TApplication); stdcall;
  23. procedure OpenWebDebuggerTool; stdcall;
  24. procedure CloseWebDebuggerTool; stdcall;
  25. /// <summary>
  26. /// ²ÐÁª¶¨ÖÆ
  27. /// </summary>
  28. function AuthFromCanlian(ALoginName, APassword: WideString): Boolean; stdcall;
  29. procedure OpenMessageCentre(ALoginName, APassword: WideString); stdcall;
  30. end;
  31. TAppCentreConfigTest = class(TMyBeanInterfacedObject, IAppCentreConfig)
  32. public
  33. function GetClientIP: WideString; stdcall;
  34. function GetClientPort: Integer; stdcall;
  35. function GetEnable: Boolean; stdcall;
  36. function GetIP: WideString; stdcall;
  37. function GetLxtAppID: WideString; stdcall;
  38. function GetLxtAppKey: WideString; stdcall;
  39. function GetLxtAppSecret: WideString; stdcall;
  40. function GetPort: Integer; stdcall;
  41. function GetShowType: TAppCentreShowType; stdcall;
  42. function GetProjectType: TAppCentreProjectType; stdcall;
  43. procedure Load; stdcall;
  44. function GetMessageCentreIP: WideString; stdcall;
  45. function GetMessageCentrePort: Integer; stdcall;
  46. function GetMessageCentreEnable: Boolean; stdcall;
  47. function GetDanDianDengLu: Boolean; stdcall;
  48. end;
  49. implementation
  50. { TAppCentreConfigTest }
  51. function TAppCentreConfigTest.GetClientIP: WideString;
  52. begin
  53. end;
  54. function TAppCentreConfigTest.GetClientPort: Integer;
  55. begin
  56. end;
  57. function TAppCentreConfigTest.GetDanDianDengLu: Boolean;
  58. begin
  59. end;
  60. function TAppCentreConfigTest.GetEnable: Boolean;
  61. begin
  62. end;
  63. function TAppCentreConfigTest.GetIP: WideString;
  64. begin
  65. end;
  66. function TAppCentreConfigTest.GetLxtAppID: WideString;
  67. begin
  68. end;
  69. function TAppCentreConfigTest.GetLxtAppKey: WideString;
  70. begin
  71. end;
  72. function TAppCentreConfigTest.GetLxtAppSecret: WideString;
  73. begin
  74. end;
  75. function TAppCentreConfigTest.GetMessageCentreEnable: Boolean;
  76. begin
  77. end;
  78. function TAppCentreConfigTest.GetMessageCentreIP: WideString;
  79. begin
  80. end;
  81. function TAppCentreConfigTest.GetMessageCentrePort: Integer;
  82. begin
  83. end;
  84. function TAppCentreConfigTest.GetPort: Integer;
  85. begin
  86. end;
  87. function TAppCentreConfigTest.GetProjectType: TAppCentreProjectType;
  88. begin
  89. end;
  90. function TAppCentreConfigTest.GetShowType: TAppCentreShowType;
  91. begin
  92. end;
  93. procedure TAppCentreConfigTest.Load;
  94. begin
  95. end;
  96. { TAppCentreTest }
  97. function TAppCentreTest.AddHotApp(AAppKey: AnsiString;
  98. AHotApp: IHotApp): Boolean;
  99. begin
  100. end;
  101. function TAppCentreTest.AuthFromCanlian(ALoginName,
  102. APassword: WideString): Boolean;
  103. begin
  104. end;
  105. procedure TAppCentreTest.ChangeUIColor(AColor: TColor);
  106. begin
  107. end;
  108. procedure TAppCentreTest.CloseAppCentreForm;
  109. begin
  110. end;
  111. procedure TAppCentreTest.CloseWebDebuggerTool;
  112. begin
  113. end;
  114. function TAppCentreTest.GetAllApps: IInterfaceList;
  115. begin
  116. end;
  117. function TAppCentreTest.GetAppCentreURL: AnsiString;
  118. begin
  119. end;
  120. function TAppCentreTest.GetEnable: Boolean;
  121. begin
  122. end;
  123. function TAppCentreTest.GetHotApps: IInterfaceList;
  124. begin
  125. end;
  126. procedure TAppCentreTest.Hello;
  127. begin
  128. end;
  129. function TAppCentreTest.Login(ALoginName: WideString;
  130. AHotAppView: IHotAppView): WideString;
  131. begin
  132. end;
  133. procedure TAppCentreTest.Logout;
  134. begin
  135. end;
  136. procedure TAppCentreTest.OpenAppCentreFrom;
  137. begin
  138. end;
  139. procedure TAppCentreTest.OpenMessageCentre(ALoginName, APassword: WideString);
  140. begin
  141. end;
  142. procedure TAppCentreTest.OpenWebDebuggerTool;
  143. begin
  144. end;
  145. function TAppCentreTest.RemoveHotApp(AAppKey: AnsiString): Boolean;
  146. begin
  147. end;
  148. procedure TAppCentreTest.SetMainApplication(AMainApplication: TApplication);
  149. begin
  150. end;
  151. procedure TAppCentreTest.SSO(AAppKey, AUrl: AnsiString);
  152. begin
  153. end;
  154. end.