ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/IB.pas
(Generate patch)

Comparing ibx/trunk/fbintf/IB.pas (file contents):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC

# Line 129 | Line 129 | uses
129    Classes,
130    {$IFDEF WINDOWS}Windows, {$ENDIF}
131    {$IFDEF FPC} Dynlibs, {$ENDIF}
132 <  SysUtils, DB, FBMessages, IBExternals;
132 >  SysUtils, DB, FBMessages, IBExternals, FmtBcd;
133  
134   const
135    {Interface version information}
136    FBIntf_Major = 1;
137 <  FBIntf_Minor = 1;
138 <  FBIntf_Release = 6;
139 <  FBIntf_Version = '1.1.6';
137 >  FBIntf_Minor = 3;
138 >  FBIntf_Release = 2;
139 >  FBIntf_Version = '1.3.2';
140 >
141 > const
142 >  {DPB, TPB and SPB Parameter Block Name Prefixes}
143 >  DPBPrefix = 'isc_dpb_';
144 >  TPBPrefix = 'isc_tpb_';
145 >
146 > const
147 >  {Time Zone ID constraint}
148 >  MaxOffsetTimeZoneID = 2879; {lower values represent a time zone offset between
149 >                               -23:59 and 23:59. Higher values are keys to the
150 >                               Time Zone database.}
151 >
152 >  TimeZoneID_GMT = 23*minsPerHour + 59;
153 >  decimillisecondsPerSecond = 10000;
154 >  TimeZoneDisplacementDelta = 60*23 + 59; {23:59 in minutes}
155  
156   {These include files are converted from the 'C' originals in the Firebird API
157   and define the various constants used by the API}
158  
159   {$I 'include/consts_pub.inc'}
160 + {$I 'include/dyn_consts.inc'}
161   {$I 'include/inf_pub.inc'}
162   {$I 'include/configkeys.inc'}
163 + {$I 'include/blr.inc'}
164  
165   {The following constants define the values return by calls to the GetSQLType
166   methods provided by several of the interfaces defined below.}
# Line 165 | Line 182 | const
182    SQL_TYPE_TIME                  =        560;
183    SQL_TYPE_DATE                  =        570;
184    SQL_INT64                      =        580;
185 +  SQL_TIMESTAMP_TZ_EX            =        32748;
186 +  SQL_TIME_TZ_EX                 =        32750;
187 +  SQL_INT128                     =        32752;
188    SQL_BOOLEAN                    =        32764;
189 +  SQL_TIMESTAMP_TZ               =        32754;
190 +  SQL_TIME_TZ                    =        32756;
191 +  SQL_DEC_FIXED                  =        32758;    {FB4 Beta 1 only}
192 +  SQL_DEC16                      =        32760;
193 +  SQL_DEC34                      =        32762;
194 +  SQL_NULL                       =        32766;
195    SQL_DATE                       =        SQL_TIMESTAMP;
196  
197   type
# Line 215 | Line 241 | type
241  
242    TFBStatusCode = cardinal;
243    TByteArray = array of byte;
244 +  TFBTimeZoneID = ISC_USHORT;
245  
246    IFirebirdAPI = interface;
247    IAttachment = interface;
# Line 234 | Line 261 | type
261      property Items[index: integer]: _IItem read getItems; default;
262    end;
263  
264 +  IParameterBlockWithTypeNames<_IItem> = interface(IParameterBlock<_IItem>)
265 +    function AddByTypeName(ParamTypeName: AnsiString): _IItem;
266 +    function GetDPBParamTypeName(ParamType: byte): Ansistring; deprecated 'Use Get ParamTypeName';
267 +    function GetParamTypeName(ParamType: byte): Ansistring;
268 +  end;
269 +
270    {IParameterBlockItem is not used on its own but instead provides a base type for
271     different parameter block items }
272  
# Line 251 | Line 284 | type
284      property AsInteger: integer read getAsInteger write SetAsInteger;
285    end;
286  
287 +  IParameterBlockItemWithTypeName = interface(IParameterBlockItem)
288 +    function getParamTypeName: AnsiString;
289 +  end;
290  
291    {The IStatus interface provides access to error information, if any, returned
292     by the last API call. It can also be used to customise the error message
# Line 265 | Line 301 | type
301  
302     TIBDataBaseErrorMessages   = set of TIBDataBaseErrorMessage;
303  
304 +   TStatusCode = long;
305 +
306    IStatus = interface
307      ['{34167722-af38-4831-b08a-93162d58ede3}']
308 <    function GetIBErrorCode: Long;
309 <    function Getsqlcode: Long;
308 >    function GetIBErrorCode: TStatusCode;
309 >    function Getsqlcode: TStatusCode;
310      function GetMessage: AnsiString;
311      function CheckStatusVector(ErrorCodes: array of TFBStatusCode): Boolean;
312      function GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
# Line 291 | Line 329 | type
329      function GetSQLTypeName: AnsiString;
330      function GetScale: integer;
331      function GetSize: cardinal;
332 +    function GetCharSetWidth: integer;
333      function GetCharSetID: cardinal;
334      function GetTableName: AnsiString;
335      function GetColumnName: AnsiString;
# Line 329 | Line 368 | type
368      function GetAsBoolean(index: array of integer): boolean;
369      function GetAsCurrency(index: array of integer): Currency;
370      function GetAsInt64(index: array of integer): Int64;
371 <    function GetAsDateTime(index: array of integer): TDateTime;
371 >    function GetAsDateTime(index: array of integer): TDateTime; overload;
372 >    procedure GetAsDateTime(index: array of integer; var aDateTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID); overload;
373 >    procedure GetAsDateTime(index: array of integer; var aDateTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString); overload;
374 >    procedure GetAsTime(index: array of integer; var aTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID; OnDate: TDateTime); overload;
375 >    procedure GetAsTime(index: array of integer; var aTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString; OnDate: TDateTime); overload;
376 >    function GetAsUTCDateTime(index: array of integer): TDateTime;
377      function GetAsDouble(index: array of integer): Double;
378      function GetAsFloat(index: array of integer): Float;
379      function GetAsLong(index: array of integer): Long;
380      function GetAsShort(index: array of integer): Short;
381      function GetAsString(index: array of integer): AnsiString;
382      function GetAsVariant(index: array of integer): Variant;
383 +    function GetAsBCD(index: array of integer): tBCD;
384      procedure SetAsInteger(index: array of integer; AValue: integer);
385      procedure SetAsBoolean(index: array of integer; AValue: boolean);
386      procedure SetAsCurrency(index: array of integer; Value: Currency);
387      procedure SetAsInt64(index: array of integer; Value: Int64);
388      procedure SetAsDate(index: array of integer; Value: TDateTime);
389 +    procedure SetAsDateTime(index: array of integer; Value: TDateTime); overload;
390 +    procedure SetAsDateTime(index: array of integer; aValue: TDateTime; aTimeZoneID: TFBTimeZoneID); overload;
391 +    procedure SetAsDateTime(index: array of integer; aValue: TDateTime; aTimeZone: AnsiString); overload;
392 +    procedure SetAsTime(index: array of integer; Value: TDateTime); overload;
393 +    procedure SetAsTime(index: array of integer; aValue: TDateTime; OnDate: TDateTime; aTimeZoneID: TFBTimeZoneID); overload;
394 +    procedure SetAsTime(index: array of integer; aValue: TDateTime; OnDate: TDateTime; aTimeZone: AnsiString); overload;
395 +    procedure SetAsUTCDateTime(index: array of integer; aUTCTime: TDateTime);
396      procedure SetAsLong(index: array of integer; Value: Long);
345    procedure SetAsTime(index: array of integer; Value: TDateTime);
346    procedure SetAsDateTime(index: array of integer; Value: TDateTime);
397      procedure SetAsDouble(index: array of integer; Value: Double);
398      procedure SetAsFloat(index: array of integer; Value: Float);
399      procedure SetAsShort(index: array of integer; Value: Short);
400      procedure SetAsString(index: array of integer; Value: AnsiString);
401      procedure SetAsVariant(index: array of integer; Value: Variant);
402 +    procedure SetAsBcd(index: array of integer; aValue: tBCD);
403      procedure SetBounds(dim, UpperBound, LowerBound: integer);
404      function GetAttachment: IAttachment;
405      function GetTransaction: ITransaction;
# Line 421 | Line 472 | type
472  
473    TIBDateTimeFormats = (dfTimestamp, {SQL TIMESTAMP}
474                          dfDateTime,   {SQL DATETIME}
475 <                        dfTime);      {SQL TIME}
475 >                        dfTime,      {SQL TIME}
476 >                        dfTimestampTZ, {SQL_TIMESTAMP_TZ}
477 >                        dfTimeTZ);       {SQLTIME_TZ
478  
479    { IColumnMetaData }
480  
# Line 439 | Line 492 | type
492      function getScale: integer;
493      function getCharSetID: cardinal;
494      function getCodePage: TSystemCodePage;
495 +    function GetCharSetWidth: integer;
496      function getIsNullable: boolean;
497      function GetSize: cardinal;
498      function GetArrayMetaData: IArrayMetaData; {Valid only for Array SQL Type}
# Line 491 | Line 545 | type
545      function GetAsBoolean: boolean;
546      function GetAsCurrency: Currency;
547      function GetAsInt64: Int64;
548 <    function GetAsDateTime: TDateTime;
548 >    function GetAsDateTime: TDateTime; overload;
549 >    procedure GetAsDateTime(var aDateTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID); overload;
550 >    procedure GetAsDateTime(var aDateTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString); overload;
551 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID; OnDate: TDateTime); overload;
552 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString; OnDate: TDateTime); overload;
553 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID); overload;
554 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString); overload;
555 >    function GetAsUTCDateTime: TDateTime;
556      function GetAsDouble: Double;
557      function GetAsFloat: Float;
558      function GetAsLong: Long;
# Line 504 | Line 565 | type
565      function GetAsBlob: IBlob; overload;
566      function GetAsBlob(BPB: IBPB): IBlob; overload;
567      function GetAsArray: IArray;
568 +    function GetAsBCD: tBCD;
569      property AsDate: TDateTime read GetAsDateTime;
570      property AsBoolean:boolean read GetAsBoolean;
571      property AsTime: TDateTime read GetAsDateTime;
# Line 521 | Line 583 | type
583      property AsVariant: Variant read GetAsVariant ;
584      property AsBlob: IBlob read GetAsBlob;
585      property AsArray: IArray read GetAsArray;
586 +    property AsBCD: tBCD read GetAsBCD;
587      property IsNull: Boolean read GetIsNull;
588      property Value: Variant read GetAsVariant;
589    end;
# Line 551 | Line 614 | type
614    }
615    IResultSet = interface(IResults)
616      ['{0ae4979b-7857-4e8c-8918-ec6f155b51a0}']
617 <    function FetchNext: boolean;
617 >    function FetchNext: boolean; {fetch next record}
618 >    function FetchPrior: boolean; {fetch previous record}
619 >    function FetchFirst:boolean; {fetch first record}
620 >    function FetchLast: boolean; {fetch last record}
621 >    function FetchAbsolute(position: Integer): boolean; {fetch record by its absolute position in result set}
622 >    function FetchRelative(offset: Integer): boolean; {fetch record by position relative to current}
623      function GetCursorName: AnsiString;
624 +    function IsBof: boolean;
625      function IsEof: boolean;
626      procedure Close;
627    end;
628  
629    {The ISQLParam interface is used to provide access to each parameter in a
630 <   parametised SQL Statement. It subclasses IColumnMetaData and this part of
562 <   the interface may be used to access information on the expected SQL Type, etc.
563 <
564 <   It also subclasses ISQLData and this part of the interface may be used to access
565 <   current values for each parameter.
566 <
567 <   Otherwise, the interface comprises the Setter Methods and properties used to
630 >   parametised SQL Statement. The interface comprises the Setter Methods and properties used to
631     set the value of each parameter.
632  
633     Automatic conversion is provided to and from strings. That is GetAsString and
634     SetAsString are safe to use for sql types other than boolean - provided automatic
635     conversion is possible.
636 +
637 +   ISQLParam is subclassed from the IParamMetaData interface. This interface provides
638 +   access to the parameter metadata. This metadata is mutable and can change after
639 +   a parameter is set to a given value. This is acceptable as long as the parameter
640 +   metadata is type compatible with the underlying column metadata and hence the
641 +   parameter value can be converted by Firebird into a value acceptable by the
642 +   underlying column. The column metadata, which is unmutable, can be obtained
643 +   by the ISQLParam.getColMetadata interface. When a statement is prepared, the
644 +   parameter metadata is always initialised to the column metadata.
645    }
646  
647 <  ISQLParam = interface
648 <    ['{b22b4578-6d41-4807-a9a9-d2ec8d1d5a14}']
577 <    function GetIndex: integer;
647 >  IParamMetaData = interface
648 >  ['{4e148c4e-2d48-4991-a263-f66eca05c6aa}']
649      function GetSQLType: cardinal;
650      function GetSQLTypeName: AnsiString;
651      function getSubtype: integer;
581    function getName: AnsiString;
652      function getScale: integer;
653      function getCharSetID: cardinal;
654      function getCodePage: TSystemCodePage;
655      function getIsNullable: boolean;
656      function GetSize: cardinal;
657 +    property SQLType: cardinal read GetSQLType;
658 +  end;
659 +
660 +  ISQLParam = interface(IParamMetaData)
661 +    ['{b22b4578-6d41-4807-a9a9-d2ec8d1d5a14}']
662 +    function getColMetadata: IParamMetaData;
663 +    function GetIndex: integer;
664 +    function getName: AnsiString;
665      function GetAsBoolean: boolean;
666      function GetAsCurrency: Currency;
667      function GetAsInt64: Int64;
668 <    function GetAsDateTime: TDateTime;
668 >    function GetAsDateTime: TDateTime; overload;
669 >    procedure GetAsDateTime(var aDateTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID); overload;
670 >    procedure GetAsDateTime(var aDateTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString); overload;
671 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID; OnDate: TDateTime); overload;
672 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString; OnDate: TDateTime); overload;
673 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezoneID: TFBTimeZoneID); overload;
674 >    procedure GetAsTime(var aTime: TDateTime; var dstOffset: smallint; var aTimezone: AnsiString); overload;
675 >    function GetAsUTCDateTime: TDateTime;
676      function GetAsDouble: Double;
677      function GetAsFloat: Float;
678      function GetAsLong: Long;
# Line 599 | Line 684 | type
684      function GetAsVariant: Variant;
685      function GetAsBlob: IBlob;
686      function GetAsArray: IArray;
687 +    function GetAsBCD: tBCD;
688 +    function GetStatement: IStatement;
689 +    function GetTransaction: ITransaction;
690      procedure Clear;
691      function GetModified: boolean;
692      procedure SetAsBoolean(AValue: boolean);
# Line 606 | Line 694 | type
694      procedure SetAsInt64(aValue: Int64);
695      procedure SetAsDate(aValue: TDateTime);
696      procedure SetAsLong(aValue: Long);
697 <    procedure SetAsTime(aValue: TDateTime);
698 <    procedure SetAsDateTime(aValue: TDateTime);
697 >    procedure SetAsTime(aValue: TDateTime); overload;
698 >    procedure SetAsTime(aValue: TDateTime; OnDate: TDateTime; aTimeZoneID: TFBTimeZoneID); overload;
699 >    procedure SetAsTime(aValue: TDateTime; OnDate: TDateTime; aTimeZone: AnsiString); overload;
700 >    procedure SetAsTime(aValue: TDateTime; aTimeZoneID: TFBTimeZoneID); overload;
701 >    procedure SetAsTime(aValue: TDateTime; aTimeZone: AnsiString); overload;
702 >    procedure SetAsDateTime(aValue: TDateTime); overload;
703 >    procedure SetAsDateTime(aValue: TDateTime; aTimeZoneID: TFBTimeZoneID); overload;
704 >    procedure SetAsDateTime(aValue: TDateTime; aTimeZone: AnsiString); overload;
705 >    procedure SetAsUTCDateTime(aUTCTime: TDateTime);
706      procedure SetAsDouble(aValue: Double);
707      procedure SetAsFloat(aValue: Float);
708      procedure SetAsPointer(aValue: Pointer);
# Line 619 | Line 714 | type
714      procedure SetAsArray(anArray: IArray);
715      procedure SetAsQuad(aValue: TISC_QUAD);
716      procedure SetCharSetID(aValue: cardinal);
717 +    procedure SetAsBcd(aValue: tBCD);
718      property AsDate: TDateTime read GetAsDateTime write SetAsDate;
719      property AsBoolean:boolean read GetAsBoolean write SetAsBoolean;
720      property AsTime: TDateTime read GetAsDateTime write SetAsTime;
# Line 635 | Line 731 | type
731      property AsVariant: Variant read GetAsVariant write SetAsVariant;
732      property AsBlob: IBlob read GetAsBlob write SetAsBlob;
733      property AsArray: IArray read GetAsArray write SetAsArray;
734 +    property AsBCD: tBCD read GetAsBCD write SetAsBCD;
735      property AsQuad: TISC_QUAD read GetAsQuad write SetAsQuad;
736      property Value: Variant read GetAsVariant write SetAsVariant;
737      property IsNull: Boolean read GetIsNull write SetIsNull;
738      property IsNullable: Boolean read GetIsNullable;
739      property Modified: Boolean read getModified;
740      property Name: AnsiString read GetName;
644    property SQLType: cardinal read GetSQLType;
741    end;
742  
743     {
# Line 668 | Line 764 | type
764  
765    TPerfCounters = array[TPerfStats] of Int64;
766  
767 +  {Batch Query Execution Support}
768 +
769 +  TBatchCompletionState = (bcExecuteFailed, bcSuccessNoInfo, bcNoMoreErrors);
770 +
771 +  IBatchCompletion = interface
772 +  ['{9bc3d49d-16d9-4606-94e5-ee987103ad92}']
773 +    function getTotalProcessed: cardinal;
774 +    function getState(updateNo: cardinal): TBatchCompletionState;
775 +    function getStatusMessage(updateNo: cardinal): AnsiString;
776 +    function getUpdated: integer;
777 +    function getErrorStatus(var RowNo: integer; var status: IStatus): boolean;
778 +    end;
779 +
780    {The IStatement interface provides access to an SQL Statement once it has been
781     initially prepared. The interface is returned from the IAttachment interface.
782     }
# Line 679 | Line 788 | type
788      function GetPlan: AnsiString;
789      function GetRowsAffected(var SelectCount, InsertCount, UpdateCount, DeleteCount: integer): boolean;
790      function GetSQLStatementType: TIBSQLStatementTypes;
791 +    function GetSQLStatementTypeName: AnsiString;
792      function GetSQLText: AnsiString;
793      function GetProcessedSQLText: AnsiString;
794      function GetSQLDialect: integer;
795      function IsPrepared: boolean;
796 <    procedure Prepare(aTransaction: ITransaction=nil);
796 >    function HasBatchMode: boolean;
797 >    function IsInBatchMode: boolean;
798 >    procedure Prepare(aTransaction: ITransaction=nil); overload;
799 >    procedure Prepare(CursorName: AnsiString; aTransaction: ITransaction=nil); overload;
800      function Execute(aTransaction: ITransaction=nil): IResults;
801 <    function OpenCursor(aTransaction: ITransaction=nil): IResultSet;
801 >    function OpenCursor(aTransaction: ITransaction=nil): IResultSet; overload;
802 >    function OpenCursor(Scrollable: boolean; aTransaction: ITransaction=nil): IResultSet; overload;
803      function GetAttachment: IAttachment;
804      function GetTransaction: ITransaction;
805      procedure SetRetainInterfaces(aValue: boolean);
806      procedure EnableStatistics(aValue: boolean);
807      function GetPerfStatistics(var stats: TPerfCounters): boolean;
808 +    {IBatch interface support}
809 +    procedure AddToBatch;
810 +    function ExecuteBatch(aTransaction: ITransaction=nil): IBatchCompletion;
811 +    procedure CancelBatch;
812 +    function GetBatchCompletion: IBatchCompletion;
813 +    function GetBatchRowLimit: integer;
814 +    procedure SetBatchRowLimit(aLimit: integer);
815 +    {Stale Reference Check}
816 +    procedure SetStaleReferenceChecks(Enable:boolean); {default true}
817 +    function GetStaleReferenceChecks: boolean;
818 +
819      property MetaData: IMetaData read GetMetaData;
820      property SQLParams: ISQLParams read GetSQLParams;
821      property SQLStatementType: TIBSQLStatementTypes read GetSQLStatementType;
# Line 707 | Line 832 | type
832     found in the Interbase 6.0 API Guide.
833    }
834  
835 <  ITPBItem = interface(IParameterBlockItem)
835 >  ITPBItem = interface(IParameterBlockItemWithTypeName)
836      ['{544c1f2b-7c12-4a87-a4a5-face7ea72671}']
837 +    function getParamTypeName: AnsiString;
838    end;
839  
840 <  ITPB = interface(IParameterBlock<ITPBItem>)
840 >  ITPB = interface(IParameterBlockWithTypeNames<ITPBItem>)
841      ['{7369b0ff-defe-437b-81fe-19b211d42d25}']
842    end;
843  
# Line 777 | Line 903 | type
903      function GetAttachment: IAttachment;
904    end;
905  
906 +  TTZTextOptions = (tzOffset,      {Time Zone Rendered as an offset to GMT}
907 +                    tzGMT,         {No Time Zone. Time part is always rendered in GMT}
908 +                    tzOriginalID); {Time Zone shown as originally entered}
909 +
910 +  {The ITimeZoneServices interface provides access to the time zone database
911 +   used for the attachment. It may be used in support of TIMESTAMP WITH TIME ZONE
912 +   and TIME WITH TIME ZONE data types.}
913 +
914 +  ITimeZoneServices = interface
915 +    ['{163821f5-ebef-42b9-ac60-8ac4b5c09954}']
916 +    {utility functions}
917 +    function TimeZoneID2TimeZoneName(aTimeZoneID: TFBTimeZoneID): AnsiString;
918 +    function TimeZoneName2TimeZoneID(aTimeZone: AnsiString): TFBTimeZoneID;
919 +    function LocalTimeToGMT(aLocalTime: TDateTime; aTimeZone: AnsiString): TDateTime; overload;
920 +    function LocalTimeToGMT(aLocalTime: TDateTime; aTimeZoneID: TFBTimeZoneID): TDateTime; overload;
921 +    function GMTToLocalTime(aGMTTime: TDateTime; aTimeZone: AnsiString): TDateTime; overload;
922 +    function GMTToLocalTime(aGMTTime: TDateTime; aTimeZoneID: TFBTimeZoneID): TDateTime; overload;
923 +    function GetEffectiveOffsetMins(aLocalTime: TDateTime; aTimeZone: AnsiString): integer; overload;
924 +    function GetEffectiveOffsetMins(aLocalTime: TDateTime; aTimeZoneID: TFBTimeZoneID): integer; overload;
925 +
926 +    {Time Zone DB Information}
927 +    function UsingRemoteTZDB: boolean;
928 +    procedure SetUseLocalTZDB(useLocalTZDB: boolean);
929 +    function GetLocalTimeZoneName: AnsiString;
930 +    function GetLocalTimeZoneID: TFBTimeZoneID;
931 +    procedure GetTimeZoneInfo(aTimeZone: AnsiString; OnDate: TDateTime;
932 +                           var ZoneOffset, DSTOffset, EffectiveOffset: integer);
933 +    {Configurable Options}
934 +    function GetTimeTZDate: TDateTime;
935 +    procedure SetTimeTZDate(aDate: TDateTime);
936 +    function GetTZTextOption: TTZTextOptions;
937 +    procedure SetTZTextOption(aOptionValue: TTZTextOptions);
938 +  end;
939 +
940    {The IDBInformation Interface.
941  
942     An IDBInformation interface is returned by the  IAttachment GetDBInformation
# Line 805 | Line 965 | type
965      function getSize: integer;
966      procedure getRawBytes(var Buffer);
967      function getAsString: AnsiString;
968 <    function getAsInteger: integer;
968 >    function getAsInteger: int64;
969      procedure DecodeIDCluster(var ConnectionType: integer; var DBFileName, DBSiteName: AnsiString);
970      function getAsBytes: TByteArray;
971      function getAsDateTime: TDateTime;
# Line 817 | Line 977 | type
977      function GetCount: integer;
978      function GetItem(index: integer): IDBInfoItem;
979      function Find(ItemType: byte): IDBInfoItem;
980 <    property AsInteger: integer read getAsInteger;
980 >    property AsInteger: int64 read getAsInteger;
981      property AsString: AnsiString read GetAsString;
982      property Count: integer read GetCount;
983      property Items[index: integer]: IDBInfoItem read getItem; default;
# Line 860 | Line 1020 | type
1020     found in the Interbase 6.0 API Guide.
1021     }
1022  
1023 <  IDPBItem = interface(IParameterBlockItem)
1023 >  IDPBItem = interface(IParameterBlockItemWithTypeName)
1024      ['{123d4ad0-087a-4cd1-a344-1b3d03b30673}']
1025    end;
1026  
1027 <  IDPB = interface(IParameterBlock<IDPBItem>)
1028 <    ['{e676067b-1cf4-4eba-9256-9724f57e0d16}']
1029 <  end;
1027 >   IDPB = interface(IParameterBlockWithTypeNames<IDPBItem>)
1028 >     ['{e676067b-1cf4-4eba-9256-9724f57e0d16}']
1029 >   end;
1030  
1031    {The IAttachment interface provides access to a Database Connection. It may be
1032     used to:
# Line 915 | Line 1075 | type
1075      function ExecuteSQL(transaction: ITransaction; sql: AnsiString; SQLDialect: integer; params: array of const): IResults; overload;
1076      function ExecuteSQL(TPB: array of byte; sql: AnsiString; params: array of const): IResults; overload;
1077      function ExecuteSQL(transaction: ITransaction; sql: AnsiString; params: array of const): IResults; overload;
918    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IResultSet; overload;
1078      function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1079 +                             Scrollable: boolean=false): IResultSet; overload;
1080 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1081 +                             params: array of const): IResultSet; overload;
1082 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1083 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; Scrollable: boolean;
1084                               params: array of const): IResultSet; overload;
921    function OpenCursor(transaction: ITransaction; sql: AnsiString): IResultSet; overload;
1085      function OpenCursor(transaction: ITransaction; sql: AnsiString;
1086                               params: array of const): IResultSet; overload;
1087 <    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IResultSet; overload;
1087 >    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; Scrollable: boolean;
1088 >                             params: array of const): IResultSet; overload;
1089      function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1090 +                             Scrollable: boolean=false): IResultSet; overload;
1091 +    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1092 +                             params: array of const): IResultSet; overload;
1093 +    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; Scrollable: boolean;
1094                               params: array of const): IResultSet; overload;
1095 <    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString): IResultSet; overload;
1095 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1096      function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString;
1097                               params: array of const): IResultSet; overload;
1098 <    function OpenCursorAtStart(sql: AnsiString): IResultSet; overload;
1098 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; Scrollable: boolean;
1099 >                             params: array of const): IResultSet; overload;
1100 >    function OpenCursorAtStart(sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1101 >    function OpenCursorAtStart(sql: AnsiString; Scrollable: boolean;
1102 >                             params: array of const): IResultSet; overload;
1103      function OpenCursorAtStart(sql: AnsiString;
1104                               params: array of const): IResultSet; overload;
1105 <    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; overload;
1106 <    function Prepare(transaction: ITransaction; sql: AnsiString): IStatement; overload;
1105 >    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; CursorName: AnsiString=''): IStatement; overload;
1106 >    function Prepare(transaction: ITransaction; sql: AnsiString; CursorName: AnsiString=''): IStatement; overload;
1107      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
1108                         aSQLDialect: integer; GenerateParamNames: boolean=false;
1109 <                       CaseSensitiveParams: boolean = false): IStatement; overload;
1109 >                       CaseSensitiveParams: boolean = false; CursorName: AnsiString=''): IStatement; overload;
1110      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
1111                         GenerateParamNames: boolean=false;
1112 <                       CaseSensitiveParams: boolean = false): IStatement; overload;
1112 >                       CaseSensitiveParams: boolean = false; CursorName: AnsiString=''): IStatement; overload;
1113  
1114      {Events}
1115      function GetEventHandler(Events: TStrings): IEvents; overload;
# Line 950 | Line 1122 | type
1122      function CreateBlob(transaction: ITransaction; SubType: integer; CharSetID: cardinal=0; BPB: IBPB=nil): IBlob; overload;
1123      function OpenBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob; overload;
1124      function OpenBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;  overload;
1125 +    function GetInlineBlobLimit: integer;
1126 +    procedure SetInlineBlobLimit(limit: integer);
1127  
1128      {Array - may use to open existing arrays. However, ISQLData.AsArray is preferred}
1129  
# Line 976 | Line 1150 | type
1150      function GetODSMinorVersion: integer;
1151      procedure getFBVersion(version: TStrings);
1152      function HasActivity: boolean;
1153 +    function HasDecFloatSupport: boolean;
1154 +    function HasBatchMode: boolean;
1155  
1156      {Character Sets}
1157      function HasDefaultCharSet: boolean;
# Line 987 | Line 1163 | type
1163      function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
1164      procedure RegisterCharSet(CharSetName: AnsiString; CodePage: TSystemCodePage;
1165        AllowReverseLookup:boolean; out CharSetID: integer);
1166 <  end;
1166 >
1167 >    {Time Zone Database}
1168 >    function GetTimeZoneServices: ITimeZoneServices;
1169 >    function HasTimeZoneSupport: boolean;
1170 > end;
1171  
1172    TProtocolAll = (TCP, SPX, NamedPipe, Local, inet, inet4, inet6, wnet, xnet, unknownProtocol);
1173    TProtocol = TCP..xnet;
# Line 1004 | Line 1184 | type
1184  
1185    }
1186  
1187 <  ISPBItem = interface(IParameterBlockItem)
1187 >  ISPBItem = interface(IParameterBlockItemWithTypeName)
1188      ['{5d08ae2b-4519-41bd-8b40-97cd451c3f6a}']
1189    end;
1190  
1191 <  ISPB = interface(IParameterBlock<ISPBItem>)
1191 >  ISPB = interface(IParameterBlockWithTypeNames<ISPBItem>)
1192      ['{2c5836fd-41ed-4426-9b7d-5af580ec2659}']
1193    end;
1194  
# Line 1068 | Line 1248 | type
1248      function getSize: integer;
1249      procedure getRawBytes(var Buffer);
1250      function getAsString: AnsiString;
1251 <    function getAsInteger: integer;
1251 >    function getAsInteger: int64;
1252      function getAsByte: byte;
1253      function CopyTo(stream: TStream; count: integer): integer;
1254      property AsString: AnsiString read getAsString;
1255 <    property AsInteger: integer read getAsInteger;
1255 >    property AsInteger: int64 read getAsInteger;
1256      property AsByte: byte read getAsByte;
1257    end;
1258  
# Line 1142 | Line 1322 | type
1322     The interface is returned by the FirebirdAPI function.
1323    }
1324  
1325 +  { IFirebirdAPI }
1326 +
1327    IFirebirdAPI = interface
1328      ['{edeee691-c8d3-4dcf-a780-cd7e432821d5}']
1329      {Database connections}
# Line 1170 | Line 1352 | type
1352      function GetImplementationVersion: AnsiString;
1353      function GetClientMajor: integer;
1354      function GetClientMinor: integer;
1355 +    function HasDecFloatSupport: boolean;
1356 +    function HasLocalTZDB: boolean;
1357 +    function HasTimeZoneSupport: boolean;
1358 +    function HasExtendedTZSupport: boolean;
1359 +    function HasScollableCursors: boolean;
1360  
1361      {Firebird 3 API}
1362      function HasMasterIntf: boolean;
1363 <    function GetIMaster: TObject;
1363 >    function GetIMaster: TObject;  deprecated 'Use FirebirdAPI.QueryInterface and FBClientLib.pas IFBIMasterProvider instead';
1364      function GetFBLibrary: IFirebirdLibrary;
1365   end;
1366  
# Line 1209 | Line 1396 | type
1396     {IB Client Exceptions}
1397     EIBClientError = class(EIBError);
1398  
1399 +   {Used to explicitly report a Batch Buffer overflow}
1400 +   EIBBatchBufferOverflow = class(EIBError);
1401 +
1402   {The Firebird API function is used to access the IFirebirdAPI interface.
1403  
1404   It will load the Firebird Client Library if this is not already loaded and
# Line 1218 | Line 1408 | type
1408   function FirebirdAPI: IFirebirdAPI;
1409  
1410   {IBX support functions. Probably best ignored i.e. always used the FirebirdAPI
1411 < functino to load the library and check if it's loaded.}
1411 > function to load the library and check if it's loaded.}
1412  
1413   function TryIBLoad: Boolean;
1414   procedure CheckIBLoaded;
# Line 1229 | Line 1419 | procedure CheckIBLoaded;
1419  
1420   function LoadFBLibrary(aLibPathName: string): IFirebirdLibrary;
1421  
1422 +
1423   implementation
1424  
1425   uses FBClientAPI

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines