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 387 by tony, Wed Jan 19 13:34:42 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 327 | Line 327 | type
327		function GetMessage: AnsiString;
328		function CheckStatusVector(ErrorCodes: array of TFBStatusCode): Boolean;
329		function GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
330	+	function Clone: IStatus;
331		procedure SetIBDataBaseErrorMessages(Value: TIBDataBaseErrorMessages);
332		end;
333
#	Line 905 | Line 906 | type
906
907		TTransactionAction  = (TARollback, TACommit, TACommitRetaining, TARollbackRetaining);
908		TTransactionCompletion = TARollback.. TACommit;
909	+	TTrCompletionState = (trCommitted, trRolledback, trCommitFailed, trRollbackFailed);
910	+
911
912		ITransaction = interface
913		['{30928d0e-a9d7-4c61-b7cf-14f4f38abe2a}']
#	Line 916 | Line 919 | type
919		function GetJournalingActive(attachment: IAttachment): boolean;
920		function GetDefaultCompletion: TTransactionCompletion;
921		procedure PrepareForCommit; {Two phase commit - stage 1}
922	<	procedure Commit(Force: boolean=false);
922	>	function Commit(Force: boolean=false): TTrCompletionState;
923		procedure CommitRetaining;
924		function HasActivity: boolean;
925	<	procedure Rollback(Force: boolean=false);
925	>	function Rollback(Force: boolean=false): TTrCompletionState;
926		procedure RollbackRetaining;
927		function GetAttachmentCount: integer;
928		function GetAttachment(index: integer): IAttachment;
#	Line 958 | Line 961 | type
961		['{6a0be233-ed08-4524-889c-2e45d0c20e5f}']
962		procedure GetEvents(EventNames: TStrings);
963		procedure SetEvents(EventNames: TStrings); overload;
964	<	procedure SetEvents(EventName: AnsiString); overload;
964	>	procedure SetEvents(EventName: string); overload;
965		procedure Cancel;
966		function ExtractEventCounts: TEventCounts;
967		procedure WaitForEvent;
#	Line 1613 | Line 1616 | constructor EIBInterBaseError.Create(aSt
1616		begin
1617		inherited Create(aStatus.Getsqlcode,aStatus.GetMessage);
1618		FIBErrorCode := aStatus.GetIBErrorCode;
1619	<	FStatus := aStatus;
1619	>	FStatus := aStatus.Clone;
1620		end;
1621
1622		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 387 by tony, Wed Jan 19 13:34:42 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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