2008-08-24 13:33:06 +00:00
|
|
|
{$DEFINE USE_SERIALIZE}
|
|
|
|
{$UNDEF TRemotableTypeInitializer_Initialize}
|
2008-09-13 15:19:20 +00:00
|
|
|
{$UNDEF WST_TKPROCVAR}
|
|
|
|
{$UNDEF WST_UNICODESTRING}
|
2008-09-21 16:56:14 +00:00
|
|
|
{$UNDEF WST_SEMAPHORE_TIMEOUT}
|
2011-06-14 10:46:00 +00:00
|
|
|
{$UNDEF WST_TKHELPER}
|
2009-07-06 16:21:25 +00:00
|
|
|
{$DEFINE WST_HAS_TDURATIONREMOTABLE}
|
|
|
|
{$DEFINE WST_HAS_TTIMEREMOTABLE}
|
2014-08-13 09:53:14 +00:00
|
|
|
{$DEFINE WST_HAS_STRICT_DELIMITER}
|
2008-08-24 13:33:06 +00:00
|
|
|
|
2008-06-06 13:27:02 +00:00
|
|
|
{$WARNINGS OFF}
|
2007-11-12 09:21:46 +00:00
|
|
|
|
2008-06-06 13:27:02 +00:00
|
|
|
{$IFDEF FPC}
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{$DEFINE HAS_QWORD}
|
2009-06-17 19:03:05 +00:00
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
2008-07-28 17:44:56 +00:00
|
|
|
{$DEFINE HAS_TKBOOL}
|
2008-06-06 13:27:02 +00:00
|
|
|
{$UNDEF WST_INTF_DOM}
|
2015-01-03 13:33:43 +00:00
|
|
|
{$DEFINE WST_RECORD_RTTI}
|
2008-06-06 13:27:02 +00:00
|
|
|
//{$DEFINE USE_INLINE}
|
2010-07-19 10:41:15 +00:00
|
|
|
{$IF Defined(FPC_VERSION) and
|
|
|
|
( (FPC_VERSION > 2) or
|
|
|
|
( (FPC_VERSION = 2) and
|
|
|
|
(FPC_RELEASE > 4)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
}
|
|
|
|
{ $DEFINE HAS_JSON_CLONE}
|
|
|
|
{$IFEND}
|
2010-10-01 19:02:18 +00:00
|
|
|
{$IF Defined(FPC_VERSION) and
|
|
|
|
( (FPC_VERSION > 2) or
|
|
|
|
( (FPC_VERSION = 2) and
|
|
|
|
(FPC_RELEASE > 4)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
}
|
2011-06-14 10:46:00 +00:00
|
|
|
{$DEFINE WST_HAS_JSON_INT64}
|
|
|
|
{$DEFINE WST_TKHELPER}
|
2010-10-01 19:02:18 +00:00
|
|
|
{$IFEND}
|
2010-07-19 10:41:15 +00:00
|
|
|
|
2015-01-17 19:15:48 +00:00
|
|
|
{$DEFINE WST_TKPROCVAR}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE TDOMNodeList_RELEASE_NOT_FREE}
|
|
|
|
{$DEFINE HAS_FORMAT_SETTINGS}
|
2008-09-21 16:56:14 +00:00
|
|
|
{$IFDEF WINDOWS}
|
|
|
|
{$DEFINE WST_SEMAPHORE_TIMEOUT}
|
|
|
|
{$ENDIF WINDOWS}
|
2012-10-29 19:24:11 +00:00
|
|
|
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20600) }
|
|
|
|
{$DEFINE HAS_DEFAULT_FORMAT_SETTINGS}
|
|
|
|
{$IFEND}
|
2013-11-19 15:25:37 +00:00
|
|
|
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION > 20602) }
|
2012-10-29 19:24:11 +00:00
|
|
|
{$DEFINE HAS_EXP_TREE}
|
|
|
|
{$IFEND}
|
2014-04-25 19:03:45 +00:00
|
|
|
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20701) }
|
|
|
|
{$DEFINE WST_TKFILE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
2017-06-15 09:17:38 +00:00
|
|
|
{$IFEND}
|
2019-03-18 15:48:07 +00:00
|
|
|
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30003) }
|
2017-06-19 17:28:02 +00:00
|
|
|
{$DEFINE WST_TPASSOURCEPOS}
|
|
|
|
{$DEFINE WST_TCLASS_MEMBERS}
|
2014-04-25 19:03:45 +00:00
|
|
|
{$IFEND}
|
2007-11-12 09:21:46 +00:00
|
|
|
{$ENDIF}
|
2007-08-19 21:04:16 +00:00
|
|
|
|
2008-06-06 13:27:02 +00:00
|
|
|
{$IFNDEF FPC}
|
|
|
|
{$DEFINE WST_DELPHI}
|
|
|
|
{$DEFINE DELPHI}
|
|
|
|
{$UNDEF HAS_QWORD}
|
2008-07-28 17:44:56 +00:00
|
|
|
{$UNDEF HAS_TKBOOL}
|
2008-06-06 13:27:02 +00:00
|
|
|
{$UNDEF USE_INLINE}
|
|
|
|
{$DEFINE WST_RECORD_RTTI}
|
|
|
|
{$DEFINE WST_INTF_DOM}
|
2010-02-27 16:10:25 +00:00
|
|
|
{$DEFINE HAS_FORMAT_SETTINGS}
|
2014-06-07 14:33:16 +00:00
|
|
|
{$IFDEF VER140} //Delphi 6
|
2010-02-27 16:10:25 +00:00
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
2014-08-13 09:53:14 +00:00
|
|
|
{$UNDEF WST_HAS_STRICT_DELIMITER}
|
2014-06-07 14:33:16 +00:00
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER150} //Delphi 7
|
2014-08-13 09:53:14 +00:00
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
|
|
|
{$UNDEF WST_HAS_STRICT_DELIMITER}
|
2014-06-07 14:33:16 +00:00
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER170} //Delphi 2005
|
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER180} //Delphi 2006
|
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER180} //Delphi 2007
|
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER185} //Delphi 2007
|
|
|
|
{$UNDEF HAS_FORMAT_SETTINGS}
|
|
|
|
{$ENDIF}
|
2008-12-12 22:02:35 +00:00
|
|
|
{$IFDEF VER200} // Delphi 2009
|
2009-06-17 19:03:05 +00:00
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
2008-12-12 22:02:35 +00:00
|
|
|
{$DEFINE WST_UNICODESTRING}
|
2009-03-13 17:10:21 +00:00
|
|
|
{$DEFINE USE_INLINE}
|
2008-12-12 22:02:35 +00:00
|
|
|
{$ENDIF}
|
2011-02-02 11:09:33 +00:00
|
|
|
{$IFDEF VER210} // Delphi 2010
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
2011-02-22 10:16:27 +00:00
|
|
|
{$IFDEF VER220} // Delphi XE
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
2014-04-18 13:33:50 +00:00
|
|
|
{$IFDEF VER230} // Delphi XE2
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER240} // Delphi XE3
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER250} // Delphi XE4
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER260} // Delphi XE5
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
2016-07-21 12:53:32 +00:00
|
|
|
{$IFDEF VER270} // Delphi XE6
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER280} // Delphi XE7
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER290} // Delphi XE8
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
|
|
|
{$ENDIF}
|
2016-07-21 12:49:55 +00:00
|
|
|
{$IFDEF VER300} // Delphi XE 10
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
2018-10-10 19:30:32 +00:00
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF VER320} // Delphi Tokyo
|
|
|
|
{$DEFINE HAS_BUILT_IN_64UINT}
|
|
|
|
{$DEFINE WST_UNICODESTRING}
|
|
|
|
{$DEFINE USE_INLINE}
|
|
|
|
{$DEFINE WST_TKCLASSREF}
|
|
|
|
{$DEFINE WST_TKPOINTER}
|
|
|
|
{$DEFINE WST_TKPROCEDURE}
|
2016-07-21 12:49:55 +00:00
|
|
|
{$ENDIF}
|
2008-09-21 16:56:14 +00:00
|
|
|
{$DEFINE WST_SEMAPHORE_TIMEOUT}
|
2008-12-13 20:41:37 +00:00
|
|
|
{$IFDEF MSWINDOWS}
|
|
|
|
{$IFNDEF WINDOWS}
|
|
|
|
{$DEFINE WINDOWS}
|
|
|
|
{$ENDIF WINDOWS}
|
|
|
|
{$ENDIF}
|
2008-06-06 13:27:02 +00:00
|
|
|
{$ENDIF}
|
2007-08-19 00:29:43 +00:00
|
|
|
|
2008-06-06 13:27:02 +00:00
|
|
|
{$IFDEF CPU86}
|
|
|
|
{$DEFINE HAS_COMP}
|
|
|
|
{$ENDIF}
|
2007-11-12 09:21:46 +00:00
|
|
|
|
2008-06-06 13:27:02 +00:00
|
|
|
{$WARNINGS ON}
|
2007-11-12 09:21:46 +00:00
|
|
|
|