InterfaceConfig.pas 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138
  1. unit InterfaceConfig;
  2. interface
  3. uses
  4. superobject, Graphics;
  5. type
  6. TGroupVersion = (gvUnkown, gvIntegration, gvIndependent);
  7. TGroupShareVersion = (gsvUnkown, gsvOld, gsvNew);
  8. IBaseConfig = interface
  9. ['{04A30FDB-43B9-438A-A7E7-D75F22C07CCB}']
  10. function Load(ALoginName: string = ''): Boolean;
  11. procedure Save;
  12. procedure RestoreDefault;
  13. procedure UndoChange;
  14. function ToJsonStr: string;
  15. end;
  16. ITestConfig = interface(IBaseConfig)
  17. ['{71CF795D-0133-435C-90D3-1C83E08DCFFB}']
  18. function GetHello: string;
  19. procedure SetHello(const Value: string);
  20. end;
  21. IHotkeyConfig = interface(IBaseConfig)
  22. ['{D871A971-8E90-4AF3-9910-5AF75F5F2E54}']
  23. function GetCopyScreen: string;
  24. function GetReadMessage: string;
  25. function GetSendMessage: string;
  26. procedure SetCopyScreen(const Value: string);
  27. procedure SetReadMessage(const Value: string);
  28. procedure SetSendMessage(const Value: string);
  29. end;
  30. IFaceConfig = interface(IBaseConfig)
  31. ['{BC42349B-7AB3-4DA6-B748-3212DA15C04A}']
  32. function GetFace(const shutcut: string): ISuperObject;
  33. end;
  34. IFontConfig = interface(IBaseConfig)
  35. ['{000B6E31-DB87-4CEF-AEB4-2C47FA1626CF}']
  36. function GetFont: string;
  37. procedure SetFont(const Value: string);
  38. end;
  39. INetConfig = interface(IBaseConfig)
  40. ['{7556EFD0-1066-495E-ADF6-B1A51C7E1B01}']
  41. function GetIP: string;
  42. function GetPort: Integer;
  43. procedure SetIP(const Value: string);
  44. procedure SetPort(const Value: Integer);
  45. end;
  46. IUIViewConfig = interface(IBaseConfig)
  47. ['{3EE8C5CF-D5CB-4940-80BD-962917C9BB6C}']
  48. function GetDev: Boolean;
  49. function GetRemoteUI: Boolean;
  50. function GetRemoteUIHost: string;
  51. procedure SetDev(const Value: Boolean);
  52. procedure SetRemoteUI(const Value: Boolean);
  53. procedure SetRemoteUIHost(const Value: string);
  54. function GetForm(AName: string): ISuperObject;
  55. function GetFormColor: TColor;
  56. end;
  57. IClientConfig = interface(IBaseConfig)
  58. ['{2C4F7FAC-0C50-4CCA-B752-B189D77ADA2A}']
  59. function GetFirstLoginConfirm: Boolean;
  60. function GetGradeSystem: Boolean;
  61. function GetNewCenterServer: Boolean;
  62. function GetOtherServersDisable: Boolean;
  63. function GetSMSName: string;
  64. function GetUserInfoCheck: Boolean;
  65. function GetUserInfoController: Boolean;
  66. end;
  67. IGroupConfig = interface(IBaseConfig)
  68. ['{6DD23675-98F2-4EAA-AC20-050AC98DB140}']
  69. function GetGatewayEnable: Boolean;
  70. function GetImageHost: string;
  71. function GetSocketHost: string;
  72. function GetGroupVersion: TGroupVersion;
  73. function GetGatewayHost: string;
  74. end;
  75. IGroupShareConfig = interface(IBaseConfig)
  76. ['{FDA8249C-F023-4B66-8DD4-BE488367565B}']
  77. function GetHost: string;
  78. function GetVersion: TGroupShareVersion;
  79. end;
  80. IOfflineFileConfig = interface(IBaseConfig)
  81. ['{D877CD3E-F7DA-414A-9DDF-4D9E8F70C600}']
  82. function GetIP: string;
  83. function GetPackageSize: Int64;
  84. function GetPort: Integer;
  85. function GetVersion: TGroupVersion;
  86. end;
  87. TAppCentreShowType = (stForm, stOnMainform);
  88. /// <remarks>
  89. /// ptCanlian ²ÐÁª
  90. /// ptOH 걺£
  91. /// </remarks>
  92. TAppCentreProjectType = (ptNormal, ptCanlian, ptOH);
  93. IAppCentreConfig = interface(IBaseConfig)
  94. ['{4B88DF67-3ED4-45E0-9502-663BF2450B80}']
  95. function GetAuthHost: string;
  96. function GetBSLoginout: Boolean;
  97. function GetEmbeddedClientHost: string;
  98. function GetEnable: Boolean;
  99. function GetLxtAppKey: string;
  100. function GetLxtAppSecret: string;
  101. function GetShowType: TAppCentreShowType;
  102. function GetProjectType: TAppCentreProjectType;
  103. end;
  104. ICaConfig = interface(IBaseConfig)
  105. ['{F6594EA0-E1A6-42D7-B49F-CDC74B7D99D5}']
  106. function GetAppID: string;
  107. function GetEnable: Boolean;
  108. function GetURL: string;
  109. function GetCASubject: string; stdcall;
  110. end;
  111. IBehaviorConfig = interface(IBaseConfig)
  112. ['{CA07AFDA-1271-4B21-8769-92C9FFB88FB7}']
  113. function GetEnable: Boolean;
  114. function GetHost: string;
  115. end;
  116. implementation
  117. end.