How to decode Lv.QlmLicenseObject.GetStatus result
Following a Delphi example code for splitting the integer value returned by Lv.QlmLicenseObject.GetStatus in its separate status enums. The status enums will be returned inside the array "LicStatus".
var
StatusEnum, LicStatus: Array of Integer;
i, Status: Integer;
begin
SetLength(LicStatus, 0);
Status := Lv.QlmLicenseObject.GetStatus;
StatusEnum := [2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048];
repeat
for i := High(StatusEnum) downto Low(StatusEnum) do
begin
if StatusEnum[i] > Status then
SetLength(StatusEnum, Length(StatusEnum) - 1)
else
begin
LicStatus := LicStatus + [StatusEnum[i]];
Status := Status - StatusEnum[i];
SetLength(StatusEnum, Length(StatusEnum) - 1);
end;
end;
until
Length(StatusEnum) = 0;
end;
Please sign in to leave a comment.
Comments
0 comments