ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/3.0/FB30ClientAPI.pas

Comparing ibx/trunk/fbintf/client/3.0/FB30ClientAPI.pas (file contents):
Revision 318 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 319 by tony, Thu Feb 25 12:05:40 2021 UTC

#	Line 77 | Line 77 | type
77		when this class is freed and last reference to IStatus
78		goes out of scope.}
79		procedure CheckPlugins;
80	+	function Firebird4orLater: boolean;
81		public
82		constructor Create(aFBLibrary: TFBLibrary);
83		destructor Destroy; override;
#	Line 226 | Line 227 | begin
227		end;
228		end;
229
230	+	function TFB30ClientAPI.Firebird4orLater: boolean;
231	+	begin
232	+	Result :=  (GetClientMajor >=4) and (UtilIntf.vtable.version >= 4)
233	+	and (UtilIntf.vtable.version <> 21) {ignore FB4 Beta1}
234	+	and (UtilIntf.vtable.version <> 24) {ignore FB4 Beta2}
235	+	end;
236	+
237		{$IFDEF UNIX}
238		function TFB30ClientAPI.GetFirebirdLibList: string;
239		begin
#	Line 653 | Line 661 | end;
661
662		function TFB30ClientAPI.HasTimeZoneSupport: boolean;
663		begin
664	<	Result := GetClientMajor >=4;
664	>	Result := Firebird4orLater;
665		end;
666
667		function TFB30ClientAPI.HasExtendedTZSupport: boolean;
668		begin
669	<	Result :=  (GetClientMajor >=4) and (UtilIntf.vtable.version >= 4) {ignore FB4 Beta1}
669	>	Result := Firebird4orLater;
670		end;
671
672		function TFB30ClientAPI.HasInt128Support: boolean;
673		begin
674	<	Result := (GetClientMajor >=4) and (UtilIntf.vtable.version >= 4) {ignore FB4 Beta1} ;
674	>	Result := Firebird4orLater;
675		end;
676
677		end.

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines