| 248 |
|
ITransaction = interface; |
| 249 |
|
IStatement = interface; |
| 250 |
|
|
| 251 |
+ |
{The IFBNumeric interface provides a managed type for Fixed Point integers |
| 252 |
+ |
used to hold Firebird Numeric(m,n) types} |
| 253 |
+ |
|
| 254 |
+ |
IFBNumeric = interface |
| 255 |
+ |
['{8bdccfe9-d552-446b-bd82-844ca264455d}'] |
| 256 |
+ |
function getRawValue: Int64; |
| 257 |
+ |
function getScale: integer; |
| 258 |
+ |
function AdjustScaleTo(aNewScale: integer): IFBNumeric; |
| 259 |
+ |
function getAsString: AnsiString; |
| 260 |
+ |
function getAsDouble: double; |
| 261 |
+ |
function getAsBCD: TBCD; |
| 262 |
+ |
function getAsInt64: Int64; {scaled} |
| 263 |
+ |
function getAsInteger: integer; {scaled - may be truncated} |
| 264 |
+ |
function getAsSmallInt: SmallInt; {scaled - may be truncated} |
| 265 |
+ |
function getAsCurrency: Currency; |
| 266 |
+ |
end; |
| 267 |
+ |
|
| 268 |
|
{The IParameterBlock interface provides the template for all parameter |
| 269 |
|
block interfaces} |
| 270 |
|
|
| 517 |
|
function GetDateTimeStrLength(DateTimeFormat: TIBDateTimeFormats): integer; |
| 518 |
|
function GetStatement: IStatement; |
| 519 |
|
function GetTransaction: ITransaction; |
| 520 |
+ |
function GetAttachment: IAttachment; |
| 521 |
|
property Name: AnsiString read GetName; |
| 522 |
|
property Size: cardinal read GetSize; |
| 523 |
|
property SQLType: cardinal read GetSQLType; |
| 584 |
|
function GetAsBlob(BPB: IBPB): IBlob; overload; |
| 585 |
|
function GetAsArray: IArray; |
| 586 |
|
function GetAsBCD: tBCD; |
| 587 |
+ |
function GetAsNumeric: IFBNumeric; |
| 588 |
|
property AsDate: TDateTime read GetAsDateTime; |
| 589 |
|
property AsBoolean:boolean read GetAsBoolean; |
| 590 |
|
property AsTime: TDateTime read GetAsDateTime; |
| 603 |
|
property AsBlob: IBlob read GetAsBlob; |
| 604 |
|
property AsArray: IArray read GetAsArray; |
| 605 |
|
property AsBCD: tBCD read GetAsBCD; |
| 606 |
+ |
property AsNumeric: IFBNumeric read GetAsNumeric; |
| 607 |
|
property IsNull: Boolean read GetIsNull; |
| 608 |
|
property Value: Variant read GetAsVariant; |
| 609 |
|
end; |
| 619 |
|
function getCount: integer; |
| 620 |
|
function GetStatement: IStatement; |
| 621 |
|
function GetTransaction: ITransaction; |
| 622 |
+ |
function GetAttachment: IAttachment; |
| 623 |
|
function ByName(Idx: AnsiString): ISQLData; |
| 624 |
|
function getSQLData(index: integer): ISQLData; |
| 625 |
|
procedure GetData(index: integer; var IsNull:boolean; var len: short; var data: PByte); |
| 681 |
|
ISQLParam = interface(IParamMetaData) |
| 682 |
|
['{b22b4578-6d41-4807-a9a9-d2ec8d1d5a14}'] |
| 683 |
|
function getColMetadata: IParamMetaData; |
| 684 |
+ |
function GetStatement: IStatement; |
| 685 |
+ |
function GetTransaction: ITransaction; |
| 686 |
+ |
function GetAttachment: IAttachment; |
| 687 |
|
function GetIndex: integer; |
| 688 |
|
function getName: AnsiString; |
| 689 |
|
function GetAsBoolean: boolean; |
| 709 |
|
function GetAsBlob: IBlob; |
| 710 |
|
function GetAsArray: IArray; |
| 711 |
|
function GetAsBCD: tBCD; |
| 712 |
< |
function GetStatement: IStatement; |
| 689 |
< |
function GetTransaction: ITransaction; |
| 712 |
> |
function GetAsNumeric: IFBNumeric; |
| 713 |
|
procedure Clear; |
| 714 |
|
function GetModified: boolean; |
| 715 |
|
procedure SetAsBoolean(AValue: boolean); |
| 738 |
|
procedure SetAsQuad(aValue: TISC_QUAD); |
| 739 |
|
procedure SetCharSetID(aValue: cardinal); |
| 740 |
|
procedure SetAsBcd(aValue: tBCD); |
| 741 |
+ |
procedure SetAsNumeric(Value: IFBNumeric); |
| 742 |
|
property AsDate: TDateTime read GetAsDateTime write SetAsDate; |
| 743 |
|
property AsBoolean:boolean read GetAsBoolean write SetAsBoolean; |
| 744 |
|
property AsTime: TDateTime read GetAsDateTime write SetAsTime; |
| 756 |
|
property AsBlob: IBlob read GetAsBlob write SetAsBlob; |
| 757 |
|
property AsArray: IArray read GetAsArray write SetAsArray; |
| 758 |
|
property AsBCD: tBCD read GetAsBCD write SetAsBCD; |
| 759 |
+ |
property AsNumeric: IFBNumeric read GetAsNumeric write SetAsNumeric; |
| 760 |
|
property AsQuad: TISC_QUAD read GetAsQuad write SetAsQuad; |
| 761 |
|
property Value: Variant read GetAsVariant write SetAsVariant; |
| 762 |
|
property IsNull: Boolean read GetIsNull write SetIsNull; |
| 777 |
|
function ByName(Idx: AnsiString): ISQLParam ; |
| 778 |
|
function GetModified: Boolean; |
| 779 |
|
function GetHasCaseSensitiveParams: Boolean; |
| 780 |
+ |
function GetStatement: IStatement; |
| 781 |
+ |
function GetTransaction: ITransaction; |
| 782 |
+ |
function GetAttachment: IAttachment; |
| 783 |
+ |
procedure Clear; |
| 784 |
|
property Modified: Boolean read GetModified; |
| 785 |
|
property Params[index: integer]: ISQLParam read getSQLParam; default; |
| 786 |
|
property Count: integer read getCount; |
| 958 |
|
['{6a0be233-ed08-4524-889c-2e45d0c20e5f}'] |
| 959 |
|
procedure GetEvents(EventNames: TStrings); |
| 960 |
|
procedure SetEvents(EventNames: TStrings); overload; |
| 961 |
< |
procedure SetEvents(EventName: AnsiString); overload; |
| 961 |
> |
procedure SetEvents(EventName: string); overload; |
| 962 |
|
procedure Cancel; |
| 963 |
|
function ExtractEventCounts: TEventCounts; |
| 964 |
|
procedure WaitForEvent; |
| 1094 |
|
{Journaling options. Default is [joReadWriteTransactions,joModifyQueries] } |
| 1095 |
|
|
| 1096 |
|
TJournalOption = (joReadOnlyTransactions, joReadWriteTransactions, |
| 1097 |
< |
joModifyQueries, joReadOnlyQueries); |
| 1097 |
> |
joModifyQueries, joReadOnlyQueries,joNoServerTable); |
| 1098 |
|
|
| 1099 |
|
TJournalOptions = set of TJournalOption; |
| 1100 |
|
|
| 1228 |
|
function HasDecFloatSupport: boolean; |
| 1229 |
|
function HasBatchMode: boolean; |
| 1230 |
|
function HasScollableCursors: boolean; |
| 1231 |
< |
function HasTable(aTableName: AnsiString): boolean; |
| 1231 |
> |
function HasTable(aTableName: AnsiString): boolean; {case sensitive} |
| 1232 |
> |
function HasFunction(aFunctionName: AnsiString): boolean; {case sensitive} |
| 1233 |
> |
function HasProcedure(aProcName: AnsiString): boolean; {case sensitive} |
| 1234 |
|
|
| 1235 |
|
{Character Sets} |
| 1236 |
+ |
function GetCharSetID: integer; {connection character set} |
| 1237 |
|
function HasDefaultCharSet: boolean; |
| 1238 |
|
function GetDefaultCharSetID: integer; |
| 1239 |
|
function GetCharsetName(CharSetID: integer): AnsiString; |
| 1253 |
|
function GetJournalOptions: TJournalOptions; |
| 1254 |
|
function StartJournaling(aJournalLogFile: AnsiString): integer; overload; |
| 1255 |
|
function StartJournaling(aJournalLogFile: AnsiString; Options: TJournalOptions): integer; overload; |
| 1256 |
+ |
function StartJournaling(S: TStream; Options: TJournalOptions): integer; overload; |
| 1257 |
|
procedure StopJournaling(RetainJournal: boolean); |
| 1258 |
|
end; |
| 1259 |
|
|
| 1476 |
|
EIBInterBaseError = class(EIBError) |
| 1477 |
|
private |
| 1478 |
|
FIBErrorCode: Long; |
| 1479 |
+ |
FStatus: IStatus; |
| 1480 |
|
public |
| 1481 |
< |
constructor Create(Status: IStatus); overload; |
| 1481 |
> |
constructor Create(aStatus: IStatus); overload; |
| 1482 |
|
constructor Create(ASQLCode: Long; AIBErrorCode: Long; Msg: AnsiString); overload; |
| 1483 |
|
property IBErrorCode: Long read FIBErrorCode; |
| 1484 |
+ |
property Status: IStatus read FStatus; |
| 1485 |
|
end; |
| 1486 |
|
|
| 1487 |
|
{IB Client Exceptions} |
| 1510 |
|
|
| 1511 |
|
function LoadFBLibrary(aLibPathName: string): IFirebirdLibrary; |
| 1512 |
|
|
| 1513 |
< |
{$if not declared(NULL)} {Needed for Delphi} |
| 1513 |
> |
{$if not declared(Null)} {Needed for Delphi} |
| 1514 |
|
function Null: Variant; // Null standard constant |
| 1515 |
|
{$define NEEDNULLFUNCTION} |
| 1516 |
|
{$ifend} |
| 1609 |
|
|
| 1610 |
|
{ EIBInterBaseError } |
| 1611 |
|
|
| 1612 |
< |
constructor EIBInterBaseError.Create(Status: IStatus); |
| 1612 |
> |
constructor EIBInterBaseError.Create(aStatus: IStatus); |
| 1613 |
|
begin |
| 1614 |
< |
inherited Create(Status.Getsqlcode,Status.GetMessage); |
| 1615 |
< |
FIBErrorCode := Status.GetIBErrorCode; |
| 1614 |
> |
inherited Create(aStatus.Getsqlcode,aStatus.GetMessage); |
| 1615 |
> |
FIBErrorCode := aStatus.GetIBErrorCode; |
| 1616 |
> |
FStatus := aStatus; |
| 1617 |
|
end; |
| 1618 |
|
|
| 1619 |
|
constructor EIBInterBaseError.Create(ASQLCode: Long; AIBErrorCode: Long; |
