{*******************************************************} { } { 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.