--- ibx/trunk/fbintf/client/FBMessages.pas 2021/07/08 09:26:14 344 +++ ibx/trunk/fbintf/client/FBMessages.pas 2021/08/23 14:22:29 345 @@ -156,7 +156,16 @@ type ibxeNoTimezoneSupport, ibxeDecFloatNotSupported, ibxeInt128NotSupported, - ibxeUnknownParamTypeName + ibxeUnknownParamTypeName, + ibxInvalidQueryAction, + ibxeSQLTypeUnchangeable, + ibxeCannotIncreaseMetadatasize, + ibxeBatchModeNotSupported, + ibxeNotInBatchMode, + ibxeInBatchMode, + ibxeInvalidBatchQuery, + ibxeBatchRowBufferOverflow, + ibxeBatchBufferSizeTooBig ); function GetErrorMessage(ErrMess: TIBClientError): AnsiString; @@ -173,6 +182,7 @@ resourcestring STrue = 'true'; SFalse = 'false'; SArray = '(array)'; + SBatchCompletionError = 'Error Processing update/insert batch on row number %d - '; implementation @@ -263,6 +273,15 @@ resourcestring SDecFloatNotSupported = 'DecFloat Data Type not supported'; SInt128NotSupported = 'INT128 Data Type not supported'; SUnknownParamTypeName = '%s:Unknown Param Type Name "%s"'; + SInvalidQueryAction = 'Query Action only valid for an Update or Insert Query'; + SSQLTypeUnchangeable = 'Cannot change SQL Type from %s to %s'; + SCannotIncreaseMetadatasize = 'Cannot increase Metadata size from %d to %d'; + SBatchModeNotSupported = 'Batch Mode is not available. Firebird 4 or later client and server is required'; + SNotInBatchMode = 'Not in Batch Mode - have you called AddToBatch?'; + SInBatchMode = 'Invalid Operation: a Batch is pending'; + SInvalidBatchQuery = 'This query type (%s) cannot be batched'; + SBatchRowBufferOverflow = 'Adding Row No. %d - batch buffer size limit (%d bytes) exceeded'; + SBatchBufferSizeTooBig = 'Requested Batch Buffer Size (%d bytes) exceeds 256MB limit'; const IBErrorMessages: array[TIBClientError] of string = ( @@ -346,7 +365,16 @@ const SNoTimezoneSupport, SDecFloatNotSupported, SInt128NotSupported, - SUnknownParamTypeName + SUnknownParamTypeName, + SInvalidQueryAction, + SSQLTypeUnchangeable, + SCannotIncreaseMetadatasize, + SBatchModeNotSupported, + SNotInBatchMode, + SInBatchMode, + SInvalidBatchQuery, + SBatchRowBufferOverflow, + SBatchBufferSizeTooBig ); function GetErrorMessage(ErrMess: TIBClientError): AnsiString; @@ -360,5 +388,6 @@ begin Format(GetErrorMessage(ErrMess), Args)); end; + end.