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 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 390 by tony, Sat Jan 22 16:15:12 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 905 | Line 907 | type
907
908		TTransactionAction  = (TARollback, TACommit, TACommitRetaining, TARollbackRetaining);
909		TTransactionCompletion = TARollback.. TACommit;
910	+	TTrCompletionState = (trCommitted, trRolledback, trCommitFailed, trRollbackFailed);
911	+
912
913		ITransaction = interface
914		['{30928d0e-a9d7-4c61-b7cf-14f4f38abe2a}']
#	Line 916 | Line 920 | type
920		function GetJournalingActive(attachment: IAttachment): boolean;
921		function GetDefaultCompletion: TTransactionCompletion;
922		procedure PrepareForCommit; {Two phase commit - stage 1}
923	<	procedure Commit(Force: boolean=false);
923	>	function Commit(Force: boolean=false): TTrCompletionState;
924		procedure CommitRetaining;
925		function HasActivity: boolean;
926	<	procedure Rollback(Force: boolean=false);
926	>	function Rollback(Force: boolean=false): TTrCompletionState;
927		procedure RollbackRetaining;
928		function GetAttachmentCount: integer;
929		function GetAttachment(index: integer): IAttachment;
#	Line 958 | Line 962 | type
962		['{6a0be233-ed08-4524-889c-2e45d0c20e5f}']
963		procedure GetEvents(EventNames: TStrings);
964		procedure SetEvents(EventNames: TStrings); overload;
965	<	procedure SetEvents(EventName: AnsiString); overload;
965	>	procedure SetEvents(EventName: string); overload;
966		procedure Cancel;
967		function ExtractEventCounts: TEventCounts;
968		procedure WaitForEvent;
#	Line 1613 | Line 1617 | constructor EIBInterBaseError.Create(aSt
1617		begin
1618		inherited Create(aStatus.Getsqlcode,aStatus.GetMessage);
1619		FIBErrorCode := aStatus.GetIBErrorCode;
1620	<	FStatus := aStatus;
1620	>	FStatus := aStatus.Clone;
1621		end;
1622
1623		constructor EIBInterBaseError.Create(ASQLCode: Long; AIBErrorCode: Long;

Diff Legend

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