ViewVC Help

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

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

Comparing:
ibx/trunk/fbintf/client/FBMessages.pas (file contents), Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
ibx/branches/udr/client/FBMessages.pas (file contents), Revision 372 by tony, Wed Jan 5 16:20:22 2022 UTC

#	Line 60 | Line 60
60		{                                                                        }
61		{************************************************************************}
62		unit FBMessages;
63	<	{$IFDEF MSWINDOWS}
64	<	{$DEFINE WINDOWS}
63	>	{$IFDEF MSWINDOWS}
64	>	{$DEFINE WINDOWS}
65		{$ENDIF}
66
67		{$IFDEF FPC}
#	Line 75 | Line 75 | uses
75		Classes, SysUtils;
76
77		type
78	–	TIBDataBaseErrorMessage    = (ShowSQLCode,
79	–	ShowIBMessage,
80	–	ShowSQLMessage);
81	–
82	–	TIBDataBaseErrorMessages   = set of TIBDataBaseErrorMessage;
78		TIBClientError            = (
84	–	ibxeUnknownError,
79		ibxeInterBaseMissing,
86	–	ibxeInterBaseInstallMissing,
80		ibxeIB60feature,
81		ibxeNotSupported,
82		ibxeNotPermitted,
90	–	ibxeFileAccessError,
91	–	ibxeConnectionTimeout,
92	–	ibxeCannotSetDatabase,
93	–	ibxeCannotSetTransaction,
94	–	ibxeOperationCancelled,
95	–	ibxeDPBConstantNotSupported,
96	–	ibxeDPBConstantUnknown,
97	–	ibxeTPBConstantNotSupported,
98	–	ibxeTPBConstantUnknown,
83		ibxeDatabaseClosed,
100	–	ibxeDatabaseOpen,
101	–	ibxeDatabaseNameMissing,
84		ibxeNotInTransaction,
103	–	ibxeInTransaction,
104	–	ibxeTimeoutNegative,
105	–	ibxeNoDatabasesInTransaction,
106	–	ibxeUpdateWrongDB,
107	–	ibxeUpdateWrongTR,
108	–	ibxeDatabaseNotAssigned,
85		ibxeTransactionNotAssigned,
110	–	ibxeXSQLDAIndexOutOfRange,
111	–	ibxeXSQLDANameDoesNotExist,
86		ibxeEOF,
87		ibxeBOF,
88		ibxeInvalidStatementHandle,
115	–	ibxeSQLOpen,
89		ibxeSQLClosed,
117	–	ibxeDatasetOpen,
118	–	ibxeDatasetClosed,
90		ibxeUnknownSQLDataType,
91		ibxeInvalidColumnIndex,
121	–	ibxeInvalidParamColumnIndex,
92		ibxeInvalidDataConversion,
123	–	ibxeColumnIsNotNullable,
93		ibxeBlobCannotBeRead,
94		ibxeBlobCannotBeWritten,
95		ibxeBlobNotOpen,
96		ibxeEmptyQuery,
128	–	ibxeCannotOpenNonSQLSelect,
129	–	ibxeNoFieldAccess,
130	–	ibxeFieldReadOnly,
97		ibxeFieldNotFound,
132	–	ibxeNotEditing,
133	–	ibxeCannotInsert,
134	–	ibxeCannotPost,
135	–	ibxeCannotUpdate,
136	–	ibxeCannotDelete,
137	–	ibxeCannotRefresh,
138	–	ibxeBufferNotSet,
139	–	ibxeCircularReference,
98		ibxeSQLParseError,
141	–	ibxeUserAbort,
142	–	ibxeDataSetUniDirectional,
143	–	ibxeCannotCreateSharedResource,
144	–	ibxeWindowsAPIError,
145	–	ibxeColumnListsDontMatch,
146	–	ibxeColumnTypesDontMatch,
147	–	ibxeCantEndSharedTransaction,
148	–	ibxeFieldUnsupportedType,
149	–	ibxeCircularDataLink,
150	–	ibxeEmptySQLStatement,
99		ibxeIsASelectStatement,
152	–	ibxeRequiredParamNotSet,
153	–	ibxeNoStoredProcName,
100		ibxeIsAExecuteProcedure,
155	–	ibxeUpdateFailed,
156	–	ibxeNotCachedUpdates,
157	–	ibxeNotLiveRequest,
158	–	ibxeNoProvider,
159	–	ibxeNoRecordsAffected,
160	–	ibxeNoTableName,
161	–	ibxeCannotCreatePrimaryIndex,
162	–	ibxeCannotDropSystemIndex,
163	–	ibxeTableNameMismatch,
164	–	ibxeIndexFieldMissing,
165	–	ibxeInvalidCancellation,
166	–	ibxeInvalidEvent,
101		ibxeMaximumEvents,
168	–	ibxeNoEventsRegistered,
169	–	ibxeInvalidQueueing,
170	–	ibxeInvalidRegistration,
171	–	ibxeInvalidBatchMove,
172	–	ibxeSQLDialectInvalid,
173	–	ibxeSPBConstantNotSupported,
174	–	ibxeSPBConstantUnknown,
102		ibxeServiceActive,
103		ibxeServiceInActive,
104		ibxeServerNameMissing,
178	–	ibxeQueryParamsError,
179	–	ibxeStartParamsError,
105		ibxeOutputParsingError,
181	–	ibxeUseSpecificProcedures,
182	–	ibxeSQLMonitorAlreadyPresent,
183	–	ibxeCantPrintValue,
184	–	ibxeEOFReached,
185	–	ibxeEOFInComment,
186	–	ibxeEOFInString,
187	–	ibxeParamNameExpected,
188	–	ibxeSuccess,
189	–	ibxeDelphiException,
190	–	ibxeNoOptionsSet,
191	–	ibxeNoDestinationDirectory,
192	–	ibxeNosourceDirectory,
193	–	ibxeNoUninstallFile,
194	–	ibxeOptionNeedsClient,
195	–	ibxeOptionNeedsServer,
196	–	ibxeInvalidOption,
197	–	ibxeInvalidOnErrorResult,
198	–	ibxeInvalidOnStatusResult,
199	–	ibxeDPBConstantUnknownEx,
200	–	ibxeTPBConstantUnknownEx,
201	–	ibxeSV5APIError,
202	–	ibxeThreadFailed,
203	–	ibxeFieldSizeError,
204	–	ibxeTransactionNotEnding,
205	–	ibxeDscInfoTokenMissing,
206	–	ibxeNoLoginDialog,
106		ibxeEmptyAttachmentsList,
208	–	ibxeFirebirdLibraryLoaded,
209	–	ibxeInfoBufferIndexError,
107		ibxeInfoBufferTypeError,
211	–	ibxeInfoBufferOverflow,
108		ibxServiceRequestIndexError,
109		ibxServiceParamTypeError,
110		ibxeOutputBlockIndexError,
#	Line 226 | Line 122 | type
122		ibxArrayBoundsCantIncrease ,
123		ibxeStatementNotPrepared,
124		ibxeInterfaceOutofDate,
229	–	ibxeUnexpectedDatabaseInfoResp,
125		ibxeInvalidBlobMetaData,
126		ibxeNoDPB,
127		ibxeInEventWait,
#	Line 234 | Line 129 | type
129		ibxeMissingColumnName,
130		ibxStringTooLong,
131		ibxFieldNotinDataSet,
237	–	ibxeNotCurrentArray,
132		ibxeNoDefaultCharacterSet,
133		ibxeParamBufferOverflow,
134		ibxeInvalidParamCount,
135		ibxeInvalidVariantType,
242	–	ibxeServiceRunning,
243	–	ibxeUniqueRelationReqd,
136		ibxeInterfaceNotSupported,
137		ibxeCharacterSetExists,
138		ibxeUnknownUserCharSet,
139		ibxeUninitializedInputParameter,
248	–	ibxeNegativeGenerator,
249	–	ibxeServiceUnavailable,
250	–	ibxeBadConnectString,
251	–	ibxeServiceNotStarted,
252	–	ibxeNotRequiredDataSetSource,
253	–	ibxeNoLimboTransactionInsert,
254	–	ibxeDatabaseNotConnected,
140		ibxeMultiThreadRequired,
256	–	ibxeODSVersionRequired,
141		ibxeTokenQueueOverflow,
142		ibxeTokenQueueUnderflow,
143		ibxErrorParsing,
144		ibxeDLInfoError,
145		ibxeDifferentAPIs,
146	<	ibxeParameterNameNotFound
146	>	ibxeInvalidDateTimeStr,
147	>	ibxeBadTimeZoneID,
148	>	ibxeBadBCDConversion,
149	>	ibxeBadTimeZoneName,
150	>	ibxeTimeZoneUnknown,
151	>	ibxeBadTimeSpecification,
152	>	ibxeBCDTooBig,
153	>	ibxeInvalidTimeZoneID,
154	>	ibxeBadTimestampOrNoTimeZoneDBEntry,
155	>	ibxeBCDOverflow,
156	>	ibxeNoTimezoneSupport,
157	>	ibxeDecFloatNotSupported,
158	>	ibxeInt128NotSupported,
159	>	ibxeUnknownParamTypeName,
160	>	ibxInvalidQueryAction,
161	>	ibxeSQLTypeUnchangeable,
162	>	ibxeCannotIncreaseMetadatasize,
163	>	ibxeBatchModeNotSupported,
164	>	ibxeNotInBatchMode,
165	>	ibxeInBatchMode,
166	>	ibxeInvalidBatchQuery,
167	>	ibxeBatchRowBufferOverflow,
168	>	ibxeBatchBufferSizeTooBig,
169	>	ibxeNoScrollableCursors,
170	>	ibxeUnableTosetaTextType,
171	>	ibxeCantDropAcquiredDB,
172	>	ibxeTransactionNotOwned,
173	>	ibxeIntegerOverflow,
174	>	ibxIntegerUnderflow,
175	>	ibxeScaleCannotBeChanged,
176	>	ibxeStringOverflow
177		);
178
179		function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
180
181	+	{IBError is used internally and by IBX to throw an EIBClientError}
182	+
183	+	procedure IBError(ErrMess: TIBClientError; const Args: array of const);
184	+
185		resourcestring
186		{ generic strings used in code }
269	–	SEOFReached = 'SEOFReached';
270	–	SEOFInComment = 'EOF in comment detected';
271	–	SEOFInString = 'EOF in string detected';
187		SParamNameExpected = 'Parameter name expected';
273	–	SCantPrintValue = 'Cannot print value';
274	–	SSuccess = 'Successful execution';
275	–	SDisconnectDatabase = 'Database is currently connected. Disconnect and continue?';
276	–	SCommitTransaction = 'Transaction is currently Active. Rollback and continue?';
188		sSQLErrorSeparator = ' When Executing: ';
278	–	SNoDataSet = 'No dataset association';
279	–	SSQLGenSelect = 'Must select at least one key field and one update field';
280	–	SSQLNotGenerated = 'Update SQL statements not generated, exit anyway?';
281	–	SSQLDataSetOpen = 'Unable to determine field names for %s';
282	–	SDefaultTransaction = '%s, Default';
189		SFirebirdAPIFuncNotFound = 'Unable to load Firebird Client Library Function "%s"';
284	–	SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
285	–	{$IFDEF WINDOWS}
286	–	SLibraryNameFilter = 'DLLs (*.dll)|*.dll|All files (*.*)|*.*';
287	–	{$ELSE}
288	–	SLibraryNameFilter = 'All files (*.*)|*.*';
289	–	{$ENDIF}
190		STrue = 'true';
191		SFalse = 'false';
192		SArray = '(array)';
193	<	SBlob = '(blob)';
193	>	SBatchCompletionError = 'Error Processing update/insert batch on row number %d - ';
194
195		implementation
196
197	<	uses IBUtils;
197	>	uses IBUtils, IB;
198
199		resourcestring
200
201		{ strings used in error messages}
302	–	SUnknownError = 'Unknown error';
202		SInterBaseMissing = 'Firebird library not found in the path. Please install Firebird to use this functionality';
304	–	SInterBaseInstallMissing = 'InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality';
203		SIB60feature = '%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality';
204		SNotSupported = 'Unsupported feature';
205		SNotPermitted = 'Not permitted';
308	–	SFileAccessError = 'Temporary file access error';
309	–	SConnectionTimeout = 'Database connection timed out';
310	–	SCannotSetDatabase = 'Cannot set database';
311	–	SCannotSetTransaction = 'Cannot set transaction';
312	–	SOperationCancelled = 'Operation cancelled at user''s request';
313	–	SDPBConstantNotSupported = 'DPB Constant (isc_dpb_%s) is unsupported';
314	–	SDPBConstantUnknown = 'DPB Constant (%d) is unknown';
315	–	STPBConstantNotSupported = 'TPB Constant (isc_tpb_%s) is unsupported';
316	–	STPBConstantUnknown = 'TPB Constant (%d) is unknown';
206		SDatabaseClosed = 'Cannot perform operation -- DB is not open';
318	–	SDatabaseOpen = 'Cannot perform operation -- DB is currently open';
319	–	SDatabaseNameMissing = 'Database name is missing';
207		SNotInTransaction = 'Transaction is not active';
321	–	SInTransaction = 'Transaction is active';
322	–	STimeoutNegative = 'Timeout values cannot be negative';
323	–	SNoDatabasesInTransaction = 'No databases are listed in transaction component';
324	–	SUpdateWrongDB = 'Updating wrong database';
325	–	SUpdateWrongTR = 'Updating wrong transaction. Unique transaction expected in set';
326	–	SDatabaseNotAssigned = 'Database not assigned';
208		STransactionNotAssigned = 'Transaction not assigned';
328	–	SXSQLDAIndexOutOfRange = 'XSQLDA index out of range';
329	–	SXSQLDANameDoesNotExist = 'XSQLDA name does not exist (%s)';
209		SEOF = 'End of file';
210		SBOF = 'Beginning of file';
211		SInvalidStatementHandle = 'Invalid statement handle';
333	–	SSQLOpen = 'IBSQL Open';
212		SSQLClosed = 'IBSQL Closed';
335	–	SDatasetOpen = 'Dataset open';
336	–	SDatasetClosed = 'Dataset closed';
213		SUnknownSQLDataType = 'Unknown SQL Data type (%d)';
214		SInvalidColumnIndex = 'Invalid column index (index exceeds permitted range)';
215	<	SInvalidParamColumnIndex = 'Invalid parameter index (index exceeds permitted range)';
340	<	SInvalidDataConversion = 'Invalid data conversion';
341	<	SColumnIsNotNullable = 'Column cannot be set to null (%s)';
215	>	SInvalidDataConversion = 'Invalid data conversion from %s';
216		SBlobCannotBeRead = 'Blob stream cannot be read';
217		SBlobCannotBeWritten = 'Blob stream cannot be written';
218		SBlobNotOpen = 'The Blob is not open';
219		SEmptyQuery = 'Empty query';
346	–	SCannotOpenNonSQLSelect = 'Cannot "open" a non-select statement. Use ExecQuery';
347	–	SNoFieldAccess = 'No access to field "%s"';
348	–	SFieldReadOnly = 'Field "%s" is read-only';
220		SFieldNotFound = 'Field "%s" not found';
350	–	SNotEditing = 'Not in edit mode';
351	–	SCannotInsert = 'Cannot insert into dataset. (No insert query)';
352	–	SCannotPost = 'Cannot post. (No update/insert query)';
353	–	SCannotUpdate = 'Cannot update. (No update query)';
354	–	SCannotDelete = 'Cannot delete from dataset. (No delete query)';
355	–	SCannotRefresh = 'Cannot refresh row. (No refresh query)';
356	–	SBufferNotSet = 'Buffer not set';
357	–	SCircularReference = 'Circular references not permitted';
221		SSQLParseError = 'SQL Parse Error:' + CRLF + CRLF + '%s';
359	–	SUserAbort = 'User abort';
360	–	SDataSetUniDirectional = 'Data set is uni-directional';
361	–	{$IFDEF UNIX}
362	–	SCannotCreateSharedResource = 'Cannot create shared resource. %s';
363	–	{$ELSE}
364	–	SCannotCreateSharedResource = 'Cannot create shared resource. (Windows error %d)';
365	–	{$ENDIF}
366	–	SWindowsAPIError = 'Windows API error. (Windows error %d [$%.8x])';
367	–	SColumnListsDontMatch = 'Column lists do not match';
368	–	SColumnTypesDontMatch = 'Column types don''t match. (From index: %d; To index: %d)';
369	–	SCantEndSharedTransaction = 'Can''t end a shared transaction unless it is forced and equal ' +
370	–	'to the transaction''s TimeoutAction';
371	–	SFieldUnsupportedType = 'Unsupported Field Type';
372	–	SCircularDataLink = 'Circular DataLink Reference';
373	–	SEmptySQLStatement = 'Empty SQL Statement';
222		SIsASelectStatement = 'use Open for a Select Statement';
375	–	SRequiredParamNotSet = 'Required parameter "%s" value not set';
376	–	SNoStoredProcName = 'No Stored Procedure Name assigned';
223		SIsAExecuteProcedure = 'use ExecProc for Procedure; use TQuery for Select procedures';
378	–	SUpdateFailed = 'Update Failed';
379	–	SNotCachedUpdates = 'CachedUpdates not enabled';
380	–	SNotLiveRequest = 'Request is not live - cannot modify';
381	–	SNoProvider = 'No Provider';
382	–	SNoRecordsAffected = 'No Records Affected';
383	–	SNoTableName = 'No Table Name assigned';
384	–	SCannotCreatePrimaryIndex = 'Cannot Create Primary Index; are created automatically';
385	–	SCannotDropSystemIndex = 'Cannot Drop System Index';
386	–	STableNameMismatch = 'Table Name Mismatch';
387	–	SIndexFieldMissing = 'Index Field Missing';
388	–	SInvalidCancellation = 'Cannot Cancel events while processing';
389	–	SInvalidEvent = 'Invalid Event';
224		SMaximumEvents = 'Exceded Maximum Event limits';
391	–	SNoEventsRegistered = 'No Events Registered';
392	–	SInvalidQueueing = 'Invalid Queueing';
393	–	SInvalidRegistration = 'Invalid Registration';
394	–	SInvalidBatchMove = 'Invalid Batch Move';
395	–	SSQLDialectInvalid = 'SQL Dialect Invalid';
396	–	SSPBConstantNotSupported = 'SPB Constant Not supported';
397	–	SSPBConstantUnknown = 'SPB Constant Unknown';
225		SServiceActive = 'Cannot perform operation -- service is not attached';
226		SServiceInActive = 'Cannot perform operation -- service is attached';
227		SServerNameMissing = 'Server Name Missing';
401	–	SQueryParamsError = 'Query Parameters missing or incorrect';
402	–	SStartParamsError = 'start Parameters missing or incorrect';
228		SOutputParsingError = 'Unexpected Output buffer value (%d) - %s';
404	–	SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
405	–	SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
406	–	SDelphiException = 'DelphiException %s';
407	–	SNoOptionsSet = 'No Install Options selected';
408	–	SNoDestinationDirectory = 'DestinationDirectory is not set';
409	–	SNosourceDirectory = 'SourceDirectory is not set';
410	–	SNoUninstallFile = 'Uninstall File Name is not set';
411	–	SOptionNeedsClient = '%s component requires Client to function properly';
412	–	SOptionNeedsServer = '%s component requires Server to function properly';
413	–	SInvalidOption = 'Invalid option specified';
414	–	SInvalidOnErrorResult = 'Unexpected onError return value';
415	–	SInvalidOnStatusResult = 'Unexpected onStatus return value';
416	–
417	–	SDPBConstantUnknownEx = 'DPB Constant (%s) is unknown';
418	–	STPBConstantUnknownEx = 'TPB Constant (%s) is unknown';
419	–	SSV5APIError = 'SV5 API API Error - %s';
420	–	SThreadFailed = '%s Thread failed with Exception: %s';
421	–	sFieldSizeError = 'Field %s is too small to receive the data';
422	–	STransactionNotEnding = 'Transaction is not being completed';
423	–	SDscInfoTokenMissing = '%s token not found';
424	–	SNoLoginDialog = 'Default Login Dlalog not found. Have you included ibexpress ' +
425	–	'in your program uses list?';
229		SEmptyAttachmentsList = 'The list of database attachments cannot be empty';
427	–	SFirebirdLibraryLoaded = 'The Firebird Library is already loaded';
428	–	SInfoBufferIndexError = 'Info Buffer Index Out of Range (%d)';
230		SInfoBufferTypeError = 'Invalid operation for Info Buffer Type (%d)';
430	–	SInfoBufferOverflow = 'Info Buffer overlow';
231		SServiceRequestIndexError = 'Service Request Index Out of Range (%d)';
232		SServiceParamTypeError = 'Invalid Request for Service Param Type';
233		SOutputBlockIndexError = 'Output Block Index Out of Range (%d)';
#	Line 445 | Line 245 | resourcestring
245		SArrayBoundsCantIncrease = 'Array Bounds can only be narrowed';
246		SStatementNotPrepared = 'The Statement has not been prepared';
247		SInterfaceOutofDate = 'This interface is no longer up-to-date';
448	–	SUnexpectedDatabaseInfoResp = 'Unexpected Database Information Response';
248		SInvalidBlobMetaData = 'Unable to Access Blob Meta Data';
249		SNoDPB = 'A DPB must be provided';
250		SInEventWait = 'Already in Event Wait State';
#	Line 453 | Line 252 | resourcestring
252		SMissingColumnName = 'Relation or Column Name Missing';
253		SStringTooLong = 'String "%s" is too long. Max %d characters';
254		SFieldNotinDataSet = 'Field %s is not a member of DataSet %s';
456	–	SNotCurrentArray = 'Cannot Edit an Array that is not part of the current record';
255		SNoDefaultCharacterSet = 'A connection default character set is required to perform this operation';
256		SParamBufferOverflow = 'Parameter Buffer Overflow';
257		SInvalidParamCount = 'Invalid Parameter Count. %d expected, %d found';
258		SInvalidVariantType = 'Invalid variant type';
461	–	SServiceRunning = 'Cannot start a new service while an existing service is running';
462	–	SUniqueRelationReqd = 'All Output Fields must derived from the same table';
259		SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
260		SCharacterSetExists = 'Character set "%s" is already defined';
261		SUnknownUserCharSet = 'Unknown user character set "%s"';
262		SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised';
467	–	SNegativeGenerator = 'A Generator Increment cannot be negative';
468	–	SServiceUnavailable = 'Request Service is not available';
469	–	SBadConnectString = 'Parse Error in Connect String';
470	–	SServiceNotStarted = 'Cannot Query running service until the service has been started';
471	–	SNotRequiredDataSetSource = 'Object of class %s is not a valid dataset source';
472	–	SNoLimboTransactionInsert = 'You cannot add to a Limbo Transaction list';
473	–	SDatabaseNotConnected = 'Cannot connect using an unattached database';
263		SMultiThreadRequired = 'Multi-threading required for %s but not enabled. Please recompile with multi-threading support enabled. '+
264		'Hint: you probably need to add -dUseCThreads to the Custom Options.';
476	–	SODSVersionRequired = 'This feature requires ODS Version %s or later';
265		STokenQueueOverflow = 'Error in SQL Token Analyser - token queue overflow';
266		STokenQueueUnderflow = 'Error in SQL Token Analyser - token queue underflow';
267		SErrorParsing = 'Error parsing SQL Statement at clause starting with %s';
268		SDLInfoError = 'dlinfo returned error - %s';
269		SDifferentAPIs = 'All transaction attachments must use the same Firebird Library';
270	<	SParameterNameNotFound = 'Parameter Name (%s) not found';
270	>	SInvalidDateTimeStr = '%s is not a valid Date/Time string';
271	>	SBadTimeZoneID = 'Invalid Time Zone ID (%d,%d)';
272	>	SBadBCDConversion = 'Conversion to BCD failed';
273	>	SBadTimeZoneName = 'Invalid Time Zone Name "%s"';
274	>	STimeZoneUnknown = 'Time Zone Unknown';
275	>	SBadTimeSpecification = '%d:%d:%d.%d is not a valid time specification';
276	>	SBCDTooBig = 'BCD Precision (%d) is too large for Firebird Data Type max precision (%d)';
277	>	SInvalidTimeZoneID = 'Invalid Time Zone ID (%d)';
278	>	SBadTimestampOrNoTimeZoneDBEntry = 'Bad Timestamp or missing time zone DB entry (%s) TZ ID = %d';
279	>	SBCDOverflow = 'BCD Precision too large for Firebird data type,[%s]';
280	>	SNoTimezoneSupport = 'TIME/TIMESTAMP WITH TIME ZONE data type not supported';
281	>	SDecFloatNotSupported = 'DecFloat Data Type not supported';
282	>	SInt128NotSupported = 'INT128 Data Type not supported';
283	>	SUnknownParamTypeName = '%s:Unknown Param Type Name "%s"';
284	>	SInvalidQueryAction = 'Query Action only valid for an Update or Insert Query';
285	>	SSQLTypeUnchangeable = 'Cannot change SQL Type from %s to %s';
286	>	SCannotIncreaseMetadatasize = 'Cannot increase Metadata size from %d to %d';
287	>	SBatchModeNotSupported = 'Batch Mode is not available. Firebird 4 or later client and server is required';
288	>	SNotInBatchMode = 'Not in Batch Mode - have you called AddToBatch?';
289	>	SInBatchMode = 'Invalid Operation: a Batch is pending';
290	>	SInvalidBatchQuery = 'This query type (%s) cannot be batched';
291	>	SBatchRowBufferOverflow = 'Adding Row No. %d - batch buffer size limit (%d bytes) exceeded';
292	>	SBatchBufferSizeTooBig = 'Requested Batch Buffer Size (%d bytes) exceeds 256MB limit';
293	>	SNoScrollableCursors = 'Scrollable cursors are not supported';
294	>	SUnableTosetaTextType = 'Param[%d] "%s": Unable to change from a %s to a string type';
295	>	SCantDropAcquiredDB = 'Drop database not allowed by acquired attachment';
296	>	STransactionNotOwned = 'Cannot Commit or Rollback a linked transaction';
297	>	SIntegerOverflow = 'Integer overflow when scaling numeric';
298	>	SIntegerUnderflow = 'Integer underflow when scaling numeric';
299	>	SScaleCannotBeChanged = 'Unable to change numeric field scale';
300	>	SStringOverflow = 'String overflow. String Length %d exceeds permitted maximum (%d)';
301
302		const
303		IBErrorMessages: array[TIBClientError] of string = (
486	–	SUnknownError,
304		SInterBaseMissing,
488	–	SInterBaseInstallMissing,
305		SIB60feature,
306		SNotSupported,
307		SNotPermitted,
492	–	SFileAccessError,
493	–	SConnectionTimeout,
494	–	SCannotSetDatabase,
495	–	SCannotSetTransaction,
496	–	SOperationCancelled,
497	–	SDPBConstantNotSupported,
498	–	SDPBConstantUnknown,
499	–	STPBConstantNotSupported,
500	–	STPBConstantUnknown,
308		SDatabaseClosed,
502	–	SDatabaseOpen,
503	–	SDatabaseNameMissing,
309		SNotInTransaction,
505	–	SInTransaction,
506	–	STimeoutNegative,
507	–	SNoDatabasesInTransaction,
508	–	SUpdateWrongDB,
509	–	SUpdateWrongTR,
510	–	SDatabaseNotAssigned,
310		STransactionNotAssigned,
512	–	SXSQLDAIndexOutOfRange,
513	–	SXSQLDANameDoesNotExist,
311		SEOF,
312		SBOF,
313		SInvalidStatementHandle,
517	–	SSQLOpen,
314		SSQLClosed,
519	–	SDatasetOpen,
520	–	SDatasetClosed,
315		SUnknownSQLDataType,
316		SInvalidColumnIndex,
523	–	SInvalidParamColumnIndex,
317		SInvalidDataConversion,
525	–	SColumnIsNotNullable,
318		SBlobCannotBeRead,
319		SBlobCannotBeWritten,
320		SBlobNotOpen,
321		SEmptyQuery,
530	–	SCannotOpenNonSQLSelect,
531	–	SNoFieldAccess,
532	–	SFieldReadOnly,
322		SFieldNotFound,
534	–	SNotEditing,
535	–	SCannotInsert,
536	–	SCannotPost,
537	–	SCannotUpdate,
538	–	SCannotDelete,
539	–	SCannotRefresh,
540	–	SBufferNotSet,
541	–	SCircularReference,
323		SSQLParseError,
543	–	SUserAbort,
544	–	SDataSetUniDirectional,
545	–	SCannotCreateSharedResource,
546	–	SWindowsAPIError,
547	–	SColumnListsDontMatch,
548	–	SColumnTypesDontMatch,
549	–	SCantEndSharedTransaction,
550	–	SFieldUnsupportedType,
551	–	SCircularDataLink,
552	–	SEmptySQLStatement,
324		SIsASelectStatement,
554	–	SRequiredParamNotSet,
555	–	SNoStoredProcName,
325		SIsAExecuteProcedure,
557	–	SUpdateFailed,
558	–	SNotCachedUpdates,
559	–	SNotLiveRequest,
560	–	SNoProvider,
561	–	SNoRecordsAffected,
562	–	SNoTableName,
563	–	SCannotCreatePrimaryIndex,
564	–	SCannotDropSystemIndex,
565	–	STableNameMismatch,
566	–	SIndexFieldMissing,
567	–	SInvalidCancellation,
568	–	SInvalidEvent,
326		SMaximumEvents,
570	–	SNoEventsRegistered,
571	–	SInvalidQueueing,
572	–	SInvalidRegistration,
573	–	SInvalidBatchMove,
574	–	SSQLDialectInvalid,
575	–	SSPBConstantNotSupported,
576	–	SSPBConstantUnknown,
327		SServiceActive,
328		SServiceInActive,
329		SServerNameMissing,
580	–	SQueryParamsError,
581	–	SStartParamsError,
330		SOutputParsingError,
583	–	SUseSpecificProcedures,
584	–	SSQLMonitorAlreadyPresent,
585	–	SCantPrintValue,
586	–	SEOFReached,
587	–	SEOFInComment,
588	–	SEOFInString,
589	–	SParamNameExpected,
590	–	SSuccess,
591	–	SDelphiException,
592	–	SNoOptionsSet,
593	–	SNoDestinationDirectory,
594	–	SNosourceDirectory,
595	–	SNoUninstallFile,
596	–	SOptionNeedsClient,
597	–	SOptionNeedsServer,
598	–	SInvalidOption,
599	–	SInvalidOnErrorResult,
600	–	SInvalidOnStatusResult,
601	–	SDPBConstantUnknownEx,
602	–	STPBConstantUnknownEx,
603	–	SSV5APIError,
604	–	SThreadFailed,
605	–	SFieldSizeError,
606	–	STransactionNotEnding,
607	–	SDscInfoTokenMissing,
608	–	SNoLoginDialog,
331		SEmptyAttachmentsList,
610	–	SFirebirdLibraryLoaded,
611	–	SInfoBufferIndexError,
332		SInfoBufferTypeError,
613	–	SInfoBufferOverflow,
333		SServiceRequestIndexError,
334		SServiceParamTypeError,
335		SOutputBlockIndexError,
#	Line 628 | Line 347 | const
347		SArrayBoundsCantIncrease,
348		SStatementNotPrepared,
349		SInterfaceOutofDate,
631	–	SUnexpectedDatabaseInfoResp,
350		SInvalidBlobMetaData,
351		SNoDPB,
352		SInEventWait,
#	Line 636 | Line 354 | const
354		SMissingColumnName,
355		SStringTooLong,
356		SFieldNotinDataSet,
639	–	SNotCurrentArray,
357		SNoDefaultCharacterSet,
358		SParamBufferOverflow,
359		SInvalidParamCount,
360		SInvalidVariantType,
644	–	SServiceRunning,
645	–	SUniqueRelationReqd,
361		SInterfaceNotSupported,
362		SCharacterSetExists,
363		SUnknownUserCharSet,
364		SUninitializedInputParameter,
650	–	SNegativeGenerator,
651	–	SServiceUnavailable,
652	–	SBadConnectString,
653	–	SServiceNotStarted,
654	–	SNotRequiredDataSetSource,
655	–	SNoLimboTransactionInsert,
656	–	SDatabaseNotConnected,
365		SMultiThreadRequired,
658	–	SODSVersionRequired,
366		STokenQueueOverflow,
367		STokenQueueUnderflow,
368		SErrorParsing,
369		SDLInfoError,
370		SDifferentAPIs,
371	<	SParameterNameNotFound
371	>	SInvalidDateTimeStr,
372	>	SBadTimeZoneID,
373	>	SBadBCDConversion,
374	>	SBadTimeZoneName,
375	>	STimeZoneUnknown,
376	>	SBadTimeSpecification,
377	>	SBCDTooBig,
378	>	SInvalidTimeZoneID,
379	>	SBadTimestampOrNoTimeZoneDBEntry,
380	>	SBCDOverflow,
381	>	SNoTimezoneSupport,
382	>	SDecFloatNotSupported,
383	>	SInt128NotSupported,
384	>	SUnknownParamTypeName,
385	>	SInvalidQueryAction,
386	>	SSQLTypeUnchangeable,
387	>	SCannotIncreaseMetadatasize,
388	>	SBatchModeNotSupported,
389	>	SNotInBatchMode,
390	>	SInBatchMode,
391	>	SInvalidBatchQuery,
392	>	SBatchRowBufferOverflow,
393	>	SBatchBufferSizeTooBig,
394	>	SNoScrollableCursors,
395	>	SUnableTosetaTextType,
396	>	SCantDropAcquiredDB,
397	>	STransactionNotOwned,
398	>	SIntegerOverflow,
399	>	SIntegerUnderflow,
400	>	SScaleCannotBeChanged,
401	>	SStringOverflow
402		);
403
404		function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
#	Line 669 | Line 406 | begin
406		Result := IBErrorMessages[ErrMess];
407		end;
408
409	+	procedure IBError(ErrMess: TIBClientError; const Args: array of const);
410	+	begin
411	+	raise EIBClientError.Create(Ord(ErrMess),
412	+	Format(GetErrorMessage(ErrMess), Args));
413	+	end;
414	+
415	+
416		end.
417

Diff Legend

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