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

Comparing ibx/trunk/fbintf/IB.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

# Line 127 | Line 127 | uses
127   const
128    {Interface version information}
129    FBIntf_Major = 1;
130 <  FBIntf_Minor = 0;
130 >  FBIntf_Minor = 1;
131    FBIntf_Release = 2;
132 <  FBIntf_Version = '1.0.2';
132 >  FBIntf_Version = '1.1.2';
133  
134   {These include files are converted from the 'C' originals in the Firebird API
135   and define the various constants used by the API}
# Line 352 | Line 352 | type
352      ['{660822a5-3114-4c16-b6cb-c1a7b2aba70d}']
353    end;
354  
355 <  IBPB = interface(IParameterBlock<IBPBItem>)
355 >  IBPB = interface (IParameterBlock<IBPBItem>)
356      ['{e0cb9eb5-17f7-4416-b7d1-3cddd1dfca76}']
357    end;
358  
# Line 632 | Line 632 | type
632                  psRealTime, psUserTime, psBuffers,
633                  psReads, psWrites, psFetches,psDeltaMemory);
634  
635 <  TPerfCounters = array[TPerfStats] of comp;
635 >  TPerfCounters = array[TPerfStats] of Int64;
636  
637    {The IStatement interface provides access to an SQL Statement once it has been
638     initially prepared. The interface is returned from the IAttachment interface.
# Line 773 | Line 773 | type
773      function getAsInteger: integer;
774      procedure DecodeIDCluster(var ConnectionType: integer; var DBFileName, DBSiteName: AnsiString);
775      function getAsBytes: TByteArray;
776 +    function getAsDateTime: TDateTime;
777      procedure DecodeVersionString(var Version: byte; var VersionString: AnsiString);
778      function getOperationCounts: TDBOperationCounts;
779      procedure DecodeUserNames(UserNames: TStrings);
# Line 799 | Line 800 | type
800      property Items[index: integer]: IDBInfoItem read getItem; default;
801    end;
802  
803 +  {The Database Information Request Block is used to pass requests for
804 +   database information where at least one item requested has a parameter.
805 +   At present, this is only fb_info_page_contents which has a single
806 +   integer parameter.}
807 +
808 +  IDIRBItem = interface(IParameterBlockItem)
809 +    ['{d34a7511-8435-4a24-81a7-5103d218d234}']
810 +  end;
811 +
812 +  IDIRB = interface(IParameterBlock<IDIRBItem>)
813 +    ['{1010e5ac-0a8f-403b-a302-91625e9d9579}']
814 +  end;
815 +
816 +
817    {The Database Parameter Block (DPB).
818  
819     The DPB provides the parameters used when connecting to a database. It is allocated
# Line 849 | Line 864 | type
864      ['{466e9b67-9def-4807-b3e7-e08a35e7185c}']
865      function getDPB: IDPB;
866      function AllocateBPB: IBPB;
867 +    function AllocateDIRB: IDIRB;
868      procedure Connect;
869      procedure Disconnect(Force: boolean=false);
870      function IsConnected: boolean;
# Line 911 | Line 927 | type
927      function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData;
928      function GetDBInformation(Requests: array of byte): IDBInformation; overload;
929      function GetDBInformation(Request: byte): IDBInformation; overload;
930 +    function GetDBInformation(Requests: IDIRB): IDBInformation; overload;
931 +    function GetConnectString: AnsiString;
932 +    function GetRemoteProtocol: AnsiString;
933 +    function GetAuthenticationMethod: AnsiString;
934 +    function GetSecurityDatabase: AnsiString;
935 +    function GetODSMajorVersion: integer;
936 +    function GetODSMinorVersion: integer;
937      function HasActivity: boolean;
938 +
939 +    {Character Sets}
940 +    function HasDefaultCharSet: boolean;
941 +    function GetDefaultCharSetID: integer;
942 +    function GetCharsetName(CharSetID: integer): AnsiString;
943 +    function CharSetID2CodePage(CharSetID: integer; var CodePage: TSystemCodePage): boolean;
944 +    function CodePage2CharSetID(CodePage: TSystemCodePage; var CharSetID: integer): boolean;
945 +    function CharSetName2CharSetID(CharSetName: AnsiString; var CharSetID: integer): boolean;
946 +    function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
947 +    procedure RegisterCharSet(CharSetName: AnsiString; CodePage: TSystemCodePage;
948 +      AllowReverseLookup:boolean; out CharSetID: integer);
949    end;
950  
951 <  TProtocol = (TCP, SPX, NamedPipe, Local);
951 >  TProtocolAll = (TCP, SPX, NamedPipe, Local, inet, inet4, inet6, wnet, xnet, unknownProtocol);
952 >  TProtocol = TCP..xnet;
953  
954    {Service Parameter Block (SPB).
955  
# Line 1032 | Line 1067 | type
1067      ['{905b587d-1e1f-4e40-a3f8-a3519f852e48}']
1068      function getSPB: ISPB;
1069      function getServerName: AnsiString;
1070 +    function getProtocol: TProtocol;
1071 +    function getPortNo: AnsiString;
1072      procedure Attach;
1073      procedure Detach(Force: boolean=false);
1074      function IsAttached: boolean;
1075      function AllocateSRB: ISRB;
1076      function AllocateSQPB: ISQPB;
1077 <    procedure Start(Request: ISRB);
1078 <    function Query(SQPB: ISQPB; Request: ISRB) :IServiceQueryResults; overload;
1079 <    function Query(Request: ISRB) :IServiceQueryResults; overload;
1077 >    function Start(Request: ISRB; RaiseExceptionOnError: boolean=true): boolean;
1078 >    function Query(SQPB: ISQPB; Request: ISRB; RaiseExceptionOnError: boolean=true) :IServiceQueryResults; overload;
1079 >    function Query(Request: ISRB; RaiseExceptionOnError: boolean=true) :IServiceQueryResults; overload;
1080    end;
1081  
1082    {The Firebird API.
# Line 1068 | Line 1105 | type
1105      {Service Manager}
1106      function HasServiceAPI: boolean;
1107      function AllocateSPB: ISPB;
1108 <    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
1108 >    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
1109 >    function GetServiceManager(ServerName: AnsiString; Port: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
1110  
1111      {Information}
1112      function GetStatus: IStatus;
# Line 1080 | Line 1118 | type
1118      {Firebird 3 API}
1119      function HasMasterIntf: boolean;
1120      function GetIMaster: TObject;
1083
1084    {utility}
1085    function GetCharsetName(CharSetID: integer): AnsiString;
1086    function CharSetID2CodePage(CharSetID: integer; var CodePage: TSystemCodePage): boolean;
1087    function CodePage2CharSetID(CodePage: TSystemCodePage; var CharSetID: integer): boolean;
1088    function CharSetName2CharSetID(CharSetName: AnsiString; var CharSetID: integer): boolean;
1089    function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
1121   end;
1122  
1123   type
# Line 1222 | Line 1253 | end;
1253   initialization
1254    FFirebirdAPI := nil;
1255  
1256 + finalization
1257 +  FFirebirdAPI := nil;
1258  
1259   end.
1260  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines