ViewVC Help

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

root/public/ibx/branches/udr/client/IB.pas

Comparing ibx/branches/udr/client/IB.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 391 by tony, Thu Jan 27 16:34:24 2022 UTC

#	Line 255 | Line 255 | type
255		['{8bdccfe9-d552-446b-bd82-844ca264455d}']
256		function getRawValue: Int64;
257		function getScale: integer;
258	<	function clone(aNewScale: integer): IFBNumeric;
258	>	function AdjustScaleTo(aNewScale: integer): IFBNumeric;
259		function getAsString: AnsiString;
260		function getAsDouble: double;
261		function getAsBCD: TBCD;
#	Line 322 | Line 322 | type
322
323		IStatus = interface
324		['{34167722-af38-4831-b08a-93162d58ede3}']
325	+	function InErrorState: boolean;
326		function GetIBErrorCode: TStatusCode;
327		function Getsqlcode: TStatusCode;
328		function GetMessage: AnsiString;
329		function CheckStatusVector(ErrorCodes: array of TFBStatusCode): Boolean;
330		function GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
331	+	function Clone: IStatus;
332		procedure SetIBDataBaseErrorMessages(Value: TIBDataBaseErrorMessages);
333		end;
334
#	Line 620 | Line 622 | type
622		function GetStatement: IStatement;
623		function GetTransaction: ITransaction;
624		function GetAttachment: IAttachment;
625	+	function FieldExists(Idx: AnsiString): boolean;
626		function ByName(Idx: AnsiString): ISQLData;
627		function getSQLData(index: integer): ISQLData;
628		procedure GetData(index: integer; var IsNull:boolean; var len: short; var data: PByte);
#	Line 770 | Line 773 | type
773		for the input to an SQL Statement
774		}
775
776	+	{ ISQLParams }
777	+
778		ISQLParams = interface
779		['{c6d95ac7-b2b7-461b-b890-afef0acbb077}']
780		function getCount: integer;
781		function getSQLParam(index: integer): ISQLParam;
782	+	function ParamExists(Idx: AnsiString): boolean;
783		function ByName(Idx: AnsiString): ISQLParam ;
784		function GetModified: Boolean;
785		function GetHasCaseSensitiveParams: Boolean;
#	Line 905 | Line 911 | type
911
912		TTransactionAction  = (TARollback, TACommit, TACommitRetaining, TARollbackRetaining);
913		TTransactionCompletion = TARollback.. TACommit;
914	+	TTrCompletionState = (trCommitted, trRolledback, trCommitFailed, trRollbackFailed);
915	+
916
917		ITransaction = interface
918		['{30928d0e-a9d7-4c61-b7cf-14f4f38abe2a}']
#	Line 916 | Line 924 | type
924		function GetJournalingActive(attachment: IAttachment): boolean;
925		function GetDefaultCompletion: TTransactionCompletion;
926		procedure PrepareForCommit; {Two phase commit - stage 1}
927	<	procedure Commit(Force: boolean=false);
927	>	function Commit(Force: boolean=false): TTrCompletionState;
928		procedure CommitRetaining;
929		function HasActivity: boolean;
930	<	procedure Rollback(Force: boolean=false);
930	>	function Rollback(Force: boolean=false): TTrCompletionState;
931		procedure RollbackRetaining;
932		function GetAttachmentCount: integer;
933		function GetAttachment(index: integer): IAttachment;
#	Line 958 | Line 966 | type
966		['{6a0be233-ed08-4524-889c-2e45d0c20e5f}']
967		procedure GetEvents(EventNames: TStrings);
968		procedure SetEvents(EventNames: TStrings); overload;
969	<	procedure SetEvents(EventName: AnsiString); overload;
969	>	procedure SetEvents(EventName: string); overload;
970		procedure Cancel;
971		function ExtractEventCounts: TEventCounts;
972		procedure WaitForEvent;
#	Line 1613 | Line 1621 | constructor EIBInterBaseError.Create(aSt
1621		begin
1622		inherited Create(aStatus.Getsqlcode,aStatus.GetMessage);
1623		FIBErrorCode := aStatus.GetIBErrorCode;
1624	<	FStatus := aStatus;
1624	>	FStatus := aStatus.Clone;
1625		end;
1626
1627		constructor EIBInterBaseError.Create(ASQLCode: Long; AIBErrorCode: Long;

Comparing ibx/branches/udr/client/IB.pas (property svn:eol-style):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 391 by tony, Thu Jan 27 16:34:24 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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