63 lines
1.7 KiB
Plaintext
63 lines
1.7 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ License }
|
|
{ }
|
|
{ Copyright (C) 2022 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit License;
|
|
|
|
interface
|
|
|
|
uses
|
|
Tocsg.Obj, System.SysUtils, System.Classes;
|
|
|
|
const
|
|
MajorVersion = '1';
|
|
MinorVersion = '5';
|
|
RevVersion = '9';
|
|
AFFID = '210';
|
|
PV = MajorVersion + MinorVersion + RevVersion;
|
|
Lc_Spearator = '8';
|
|
Lc_CodeDivider = '-_--_-';
|
|
MacSeparator = '_qts09_';
|
|
Lc_Password = 'UPS8XVKkKCBMGT1d3qD6.E9xRO6BX7';
|
|
|
|
// SdkVersion = MajorVersion + '.' + MinorVersion + '.' + RevVersion + '.' + AFFID;
|
|
|
|
KeyMap: array [0..9] of AnsiString =
|
|
('2', '5', '7', '6', '1', '9', '0', '8', '4', '3');
|
|
MacAddress: array [0..5] of AnsiString =
|
|
('00-50-56-C0-00-08', '48-D2-24-F5-AF-8C', '00-0C-29-E6-64-60',
|
|
'40-E2-30-CA-4E-B5', '00-0C-29-D9-76-00', '00-0C-29-D9-76-0A');
|
|
|
|
//type
|
|
// TLicense = class(TTgObject)
|
|
// private
|
|
// sMajorVersion_,
|
|
// sMinorVersion_,
|
|
// sRevVersion_,
|
|
// sAFFID_,
|
|
// sPV_: String;
|
|
//
|
|
// end;
|
|
|
|
function SdkVersion: String;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Condition;
|
|
|
|
function SdkVersion: String;
|
|
begin
|
|
Result := MajorVersion + '.' + MinorVersion + '.' + RevVersion + '.' + AFFID;
|
|
// 볼보등 이미 구버전 설치 환경에서 빌드번호 세자리 수 맞춰주기 위해 임시 조치 22_0617 07:53:35 kku
|
|
// 1.5.5.80 부터 세자리 버전 삭제 23_0207 09:58:26 kku
|
|
// if IsNeed3BuildNumber then
|
|
// Result := Result + '0';
|
|
end;
|
|
|
|
end.
|