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 381 by tony, Sat Jan 15 00:06:22 2022 UTC vs.
Revision 391 by tony, Thu Jan 27 16:34:24 2022 UTC

#	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 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;

Diff Legend

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