U_CommonData.pas 556 B

12345678910111213141516171819202122232425262728293031323334
  1. unit U_CommonData;
  2. interface
  3. type
  4. THttpResponse = class
  5. public
  6. httpCode: Integer;
  7. data: string;
  8. end;
  9. TPrinterClient = class
  10. public
  11. printerUniqueCode: string;
  12. printerName: string;
  13. voidFlag: Integer;
  14. authorizeDate: Int64;
  15. authorizeDateLong: Int64;
  16. province: string;
  17. city: string;
  18. district: string;
  19. address: string;
  20. permissions: string;
  21. end;
  22. TCheckResult = packed record
  23. expireDate: Int64;
  24. remainDays: Integer;
  25. permissions: array [0 .. 49] of Integer;
  26. end;
  27. implementation
  28. end.