33 |
|
interface |
34 |
|
|
35 |
|
uses |
36 |
< |
Windows, IBUtils; |
36 |
> |
{$IFDEF LINUX } |
37 |
> |
unix; |
38 |
> |
{$ELSE} |
39 |
> |
Windows; |
40 |
> |
{$ENDIF} |
41 |
|
|
42 |
|
type |
43 |
|
Int = LongInt; { 32 bit signed } |
51 |
|
ISC_LONG = Long; { 32 bit signed } |
52 |
|
UISC_LONG = ULong; { 32 bit unsigned } |
53 |
|
ISC_INT64 = Int64; { 64 bit signed } |
54 |
+ |
{$IFDEF CPU64} |
55 |
+ |
ISC_STATUS = Int64; { 64 bit signed } |
56 |
+ |
UISC_STATUS = UInt64; { 64 bit unsigned} |
57 |
+ |
{$ELSE} |
58 |
|
ISC_STATUS = Long; { 32 bit signed } |
59 |
|
UISC_STATUS = ULong; { 32 bit unsigned} |
60 |
+ |
{$ENDIF} |
61 |
+ |
FB_API_HANDLE = ^Pointer; |
62 |
|
Void = Pointer; |
63 |
|
{ Delphi Pointer types } |
54 |
– |
PPChar = ^PChar; |
55 |
– |
PSmallInt = ^SmallInt; |
64 |
|
PInt = ^Int; |
57 |
– |
PInteger = ^Integer; |
65 |
|
PShort = ^Short; |
66 |
|
PUShort = ^UShort; |
67 |
|
PLong = ^Long; |
69 |
|
PFloat = ^Float; |
70 |
|
PUChar = ^UChar; |
71 |
|
PVoid = ^Pointer; |
65 |
– |
PDouble = ^Double; |
72 |
|
PISC_LONG = ^ISC_LONG; |
73 |
|
PUISC_LONG = ^UISC_LONG; |
74 |
|
PISC_STATUS = ^ISC_STATUS; |
86 |
|
tm_wday : integer; { Weekday (0--6) Sunday = 0) } |
87 |
|
tm_yday : integer; { Day of year (0--365) } |
88 |
|
tm_isdst : integer; { 0 if daylight savings time is not in effect) } |
89 |
+ |
tm_gmtoff: longint; |
90 |
+ |
tm_zone: PChar; |
91 |
|
end; |
92 |
|
PCTimeStructure = ^TCTimeStructure; |
93 |
|
TM = TCTimeStructure; |