ViewVC Help

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

root/public/ibx/trunk/fbintf/client/FBMessages.pas

Comparing ibx/trunk/fbintf/client/FBMessages.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 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,
136	<	ibxeServiceRunning,
137	<	ibxeUniqueRelationReqd,
138	<	ibxeInterfaceNotSupported
136	>	ibxeInterfaceNotSupported,
137	>	ibxeCharacterSetExists,
138	>	ibxeUnknownUserCharSet,
139	>	ibxeUninitializedInputParameter,
140	>	ibxeMultiThreadRequired,
141	>	ibxeTokenQueueOverflow,
142	>	ibxeTokenQueueUnderflow,
143	>	ibxErrorParsing,
144	>	ibxeDLInfoError,
145	>	ibxeDifferentAPIs
146		);
147
148		function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
149
150	+	{IBError is used internally and by IBX to throw an EIBClientError}
151	+
152	+	procedure IBError(ErrMess: TIBClientError; const Args: array of const);
153	+
154		resourcestring
155		{ generic strings used in code }
251	–	SEOFReached = 'SEOFReached';
252	–	SEOFInComment = 'EOF in comment detected';
253	–	SEOFInString = 'EOF in string detected';
156		SParamNameExpected = 'Parameter name expected';
255	–	SCantPrintValue = 'Cannot print value';
256	–	SSuccess = 'Successful execution';
257	–	SDisconnectDatabase = 'Database is currently connected. Disconnect and continue?';
258	–	SCommitTransaction = 'Transaction is currently Active. Rollback and continue?';
157		sSQLErrorSeparator = ' When Executing: ';
260	–	SNoDataSet = 'No dataset association';
261	–	SSQLGenSelect = 'Must select at least one key field and one update field';
262	–	SSQLNotGenerated = 'Update SQL statements not generated, exit anyway?';
263	–	SSQLDataSetOpen = 'Unable to determine field names for %s';
264	–	SDefaultTransaction = '%s, Default';
158		SFirebirdAPIFuncNotFound = 'Unable to load Firebird Client Library Function "%s"';
266	–	SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
159		STrue = 'true';
160		SFalse = 'false';
161		SArray = '(array)';
270	–	SBlob = '(blob)';
162
163		implementation
164
165	<	uses IBUtils;
165	>	uses IBUtils, IB;
166
167		resourcestring
168
169		{ strings used in error messages}
279	–	SUnknownError = 'Unknown error';
170		SInterBaseMissing = 'Firebird library not found in the path. Please install Firebird to use this functionality';
281	–	SInterBaseInstallMissing = 'InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality';
171		SIB60feature = '%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality';
172		SNotSupported = 'Unsupported feature';
173		SNotPermitted = 'Not permitted';
285	–	SFileAccessError = 'Temporary file access error';
286	–	SConnectionTimeout = 'Database connection timed out';
287	–	SCannotSetDatabase = 'Cannot set database';
288	–	SCannotSetTransaction = 'Cannot set transaction';
289	–	SOperationCancelled = 'Operation cancelled at user''s request';
290	–	SDPBConstantNotSupported = 'DPB Constant (isc_dpb_%s) is unsupported';
291	–	SDPBConstantUnknown = 'DPB Constant (%d) is unknown';
292	–	STPBConstantNotSupported = 'TPB Constant (isc_tpb_%s) is unsupported';
293	–	STPBConstantUnknown = 'TPB Constant (%d) is unknown';
174		SDatabaseClosed = 'Cannot perform operation -- DB is not open';
295	–	SDatabaseOpen = 'Cannot perform operation -- DB is currently open';
296	–	SDatabaseNameMissing = 'Database name is missing';
175		SNotInTransaction = 'Transaction is not active';
298	–	SInTransaction = 'Transaction is active';
299	–	STimeoutNegative = 'Timeout values cannot be negative';
300	–	SNoDatabasesInTransaction = 'No databases are listed in transaction component';
301	–	SUpdateWrongDB = 'Updating wrong database';
302	–	SUpdateWrongTR = 'Updating wrong transaction. Unique transaction expected in set';
303	–	SDatabaseNotAssigned = 'Database not assigned';
176		STransactionNotAssigned = 'Transaction not assigned';
305	–	SXSQLDAIndexOutOfRange = 'XSQLDA index out of range';
306	–	SXSQLDANameDoesNotExist = 'XSQLDA name does not exist (%s)';
177		SEOF = 'End of file';
178		SBOF = 'Beginning of file';
179		SInvalidStatementHandle = 'Invalid statement handle';
310	–	SSQLOpen = 'IBSQL Open';
180		SSQLClosed = 'IBSQL Closed';
312	–	SDatasetOpen = 'Dataset open';
313	–	SDatasetClosed = 'Dataset closed';
181		SUnknownSQLDataType = 'Unknown SQL Data type (%d)';
182		SInvalidColumnIndex = 'Invalid column index (index exceeds permitted range)';
316	–	SInvalidParamColumnIndex = 'Invalid parameter index (index exceeds permitted range)';
183		SInvalidDataConversion = 'Invalid data conversion';
318	–	SColumnIsNotNullable = 'Column cannot be set to null (%s)';
184		SBlobCannotBeRead = 'Blob stream cannot be read';
185		SBlobCannotBeWritten = 'Blob stream cannot be written';
186		SBlobNotOpen = 'The Blob is not open';
187		SEmptyQuery = 'Empty query';
323	–	SCannotOpenNonSQLSelect = 'Cannot "open" a non-select statement. Use ExecQuery';
324	–	SNoFieldAccess = 'No access to field "%s"';
325	–	SFieldReadOnly = 'Field "%s" is read-only';
188		SFieldNotFound = 'Field "%s" not found';
327	–	SNotEditing = 'Not in edit mode';
328	–	SCannotInsert = 'Cannot insert into dataset. (No insert query)';
329	–	SCannotPost = 'Cannot post. (No update/insert query)';
330	–	SCannotUpdate = 'Cannot update. (No update query)';
331	–	SCannotDelete = 'Cannot delete from dataset. (No delete query)';
332	–	SCannotRefresh = 'Cannot refresh row. (No refresh query)';
333	–	SBufferNotSet = 'Buffer not set';
334	–	SCircularReference = 'Circular references not permitted';
189		SSQLParseError = 'SQL Parse Error:' + CRLF + CRLF + '%s';
336	–	SUserAbort = 'User abort';
337	–	SDataSetUniDirectional = 'Data set is uni-directional';
338	–	{$IFDEF UNIX}
339	–	SCannotCreateSharedResource = 'Cannot create shared resource. %s';
340	–	{$ELSE}
341	–	SCannotCreateSharedResource = 'Cannot create shared resource. (Windows error %d)';
342	–	{$ENDIF}
343	–	SWindowsAPIError = 'Windows API error. (Windows error %d [$%.8x])';
344	–	SColumnListsDontMatch = 'Column lists do not match';
345	–	SColumnTypesDontMatch = 'Column types don''t match. (From index: %d; To index: %d)';
346	–	SCantEndSharedTransaction = 'Can''t end a shared transaction unless it is forced and equal ' +
347	–	'to the transaction''s TimeoutAction';
348	–	SFieldUnsupportedType = 'Unsupported Field Type';
349	–	SCircularDataLink = 'Circular DataLink Reference';
350	–	SEmptySQLStatement = 'Empty SQL Statement';
190		SIsASelectStatement = 'use Open for a Select Statement';
352	–	SRequiredParamNotSet = 'Required parameter "%s" value not set';
353	–	SNoStoredProcName = 'No Stored Procedure Name assigned';
191		SIsAExecuteProcedure = 'use ExecProc for Procedure; use TQuery for Select procedures';
355	–	SUpdateFailed = 'Update Failed';
356	–	SNotCachedUpdates = 'CachedUpdates not enabled';
357	–	SNotLiveRequest = 'Request is not live - cannot modify';
358	–	SNoProvider = 'No Provider';
359	–	SNoRecordsAffected = 'No Records Affected';
360	–	SNoTableName = 'No Table Name assigned';
361	–	SCannotCreatePrimaryIndex = 'Cannot Create Primary Index; are created automatically';
362	–	SCannotDropSystemIndex = 'Cannot Drop System Index';
363	–	STableNameMismatch = 'Table Name Mismatch';
364	–	SIndexFieldMissing = 'Index Field Missing';
365	–	SInvalidCancellation = 'Cannot Cancel events while processing';
366	–	SInvalidEvent = 'Invalid Event';
192		SMaximumEvents = 'Exceded Maximum Event limits';
368	–	SNoEventsRegistered = 'No Events Registered';
369	–	SInvalidQueueing = 'Invalid Queueing';
370	–	SInvalidRegistration = 'Invalid Registration';
371	–	SInvalidBatchMove = 'Invalid Batch Move';
372	–	SSQLDialectInvalid = 'SQL Dialect Invalid';
373	–	SSPBConstantNotSupported = 'SPB Constant Not supported';
374	–	SSPBConstantUnknown = 'SPB Constant Unknown';
193		SServiceActive = 'Cannot perform operation -- service is not attached';
194		SServiceInActive = 'Cannot perform operation -- service is attached';
195		SServerNameMissing = 'Server Name Missing';
196	<	SQueryParamsError = 'Query Parameters missing or incorrect';
379	<	SStartParamsError = 'start Parameters missing or incorrect';
380	<	SOutputParsingError = 'Unexpected Output buffer value (%d)';
381	<	SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
382	<	SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
383	<	SDelphiException = 'DelphiException %s';
384	<	SNoOptionsSet = 'No Install Options selected';
385	<	SNoDestinationDirectory = 'DestinationDirectory is not set';
386	<	SNosourceDirectory = 'SourceDirectory is not set';
387	<	SNoUninstallFile = 'Uninstall File Name is not set';
388	<	SOptionNeedsClient = '%s component requires Client to function properly';
389	<	SOptionNeedsServer = '%s component requires Server to function properly';
390	<	SInvalidOption = 'Invalid option specified';
391	<	SInvalidOnErrorResult = 'Unexpected onError return value';
392	<	SInvalidOnStatusResult = 'Unexpected onStatus return value';
393	<
394	<	SDPBConstantUnknownEx = 'DPB Constant (%s) is unknown';
395	<	STPBConstantUnknownEx = 'TPB Constant (%s) is unknown';
396	<	SSV5APIError = 'SV5 API API Error - %s';
397	<	SThreadFailed = '%s Thread failed with Exception: %s';
398	<	sFieldSizeError = 'Field %s is too small to receive the data';
399	<	STransactionNotEnding = 'Transaction is not being completed';
400	<	SDscInfoTokenMissing = '%s token not found';
401	<	SNoLoginDialog = 'Default Login Dlalog not found. Have you included ibexpress ' +
402	<	'in your program uses list?';
196	>	SOutputParsingError = 'Unexpected Output buffer value (%d) - %s';
197		SEmptyAttachmentsList = 'The list of database attachments cannot be empty';
404	–	SFirebirdLibraryLoaded = 'The Firebird Library is already loaded';
405	–	SInfoBufferIndexError = 'Info Buffer Index Out of Range (%d)';
198		SInfoBufferTypeError = 'Invalid operation for Info Buffer Type (%d)';
407	–	SInfoBufferOverflow = 'Info Buffer overlow';
199		SServiceRequestIndexError = 'Service Request Index Out of Range (%d)';
200		SServiceParamTypeError = 'Invalid Request for Service Param Type';
201		SOutputBlockIndexError = 'Output Block Index Out of Range (%d)';
#	Line 422 | Line 213 | resourcestring
213		SArrayBoundsCantIncrease = 'Array Bounds can only be narrowed';
214		SStatementNotPrepared = 'The Statement has not been prepared';
215		SInterfaceOutofDate = 'This interface is no longer up-to-date';
425	–	SUnexpectedDatabaseInfoResp = 'Unexpected Database Information Response';
216		SInvalidBlobMetaData = 'Unable to Access Blob Meta Data';
217		SNoDPB = 'A DPB must be provided';
218		SInEventWait = 'Already in Event Wait State';
#	Line 430 | Line 220 | resourcestring
220		SMissingColumnName = 'Relation or Column Name Missing';
221		SStringTooLong = 'String "%s" is too long. Max %d characters';
222		SFieldNotinDataSet = 'Field %s is not a member of DataSet %s';
433	–	SNotCurrentArray = 'Cannot Edit an Array that is not part of the current record';
223		SNoDefaultCharacterSet = 'A connection default character set is required to perform this operation';
224		SParamBufferOverflow = 'Parameter Buffer Overflow';
225		SInvalidParamCount = 'Invalid Parameter Count. %d expected, %d found';
226		SInvalidVariantType = 'Invalid variant type';
438	–	SServiceRunning = 'Cannot start a new service while an existing service is running';
439	–	SUniqueRelationReqd = 'All Output Fields must derived from the same table';
227		SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
228	+	SCharacterSetExists = 'Character set "%s" is already defined';
229	+	SUnknownUserCharSet = 'Unknown user character set "%s"';
230	+	SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised';
231	+	SMultiThreadRequired = 'Multi-threading required for %s but not enabled. Please recompile with multi-threading support enabled. '+
232	+	'Hint: you probably need to add -dUseCThreads to the Custom Options.';
233	+	STokenQueueOverflow = 'Error in SQL Token Analyser - token queue overflow';
234	+	STokenQueueUnderflow = 'Error in SQL Token Analyser - token queue underflow';
235	+	SErrorParsing = 'Error parsing SQL Statement at clause starting with %s';
236	+	SDLInfoError = 'dlinfo returned error - %s';
237	+	SDifferentAPIs = 'All transaction attachments must use the same Firebird Library';
238
239		const
240		IBErrorMessages: array[TIBClientError] of string = (
444	–	SUnknownError,
241		SInterBaseMissing,
446	–	SInterBaseInstallMissing,
242		SIB60feature,
243		SNotSupported,
244		SNotPermitted,
450	–	SFileAccessError,
451	–	SConnectionTimeout,
452	–	SCannotSetDatabase,
453	–	SCannotSetTransaction,
454	–	SOperationCancelled,
455	–	SDPBConstantNotSupported,
456	–	SDPBConstantUnknown,
457	–	STPBConstantNotSupported,
458	–	STPBConstantUnknown,
245		SDatabaseClosed,
460	–	SDatabaseOpen,
461	–	SDatabaseNameMissing,
246		SNotInTransaction,
463	–	SInTransaction,
464	–	STimeoutNegative,
465	–	SNoDatabasesInTransaction,
466	–	SUpdateWrongDB,
467	–	SUpdateWrongTR,
468	–	SDatabaseNotAssigned,
247		STransactionNotAssigned,
470	–	SXSQLDAIndexOutOfRange,
471	–	SXSQLDANameDoesNotExist,
248		SEOF,
249		SBOF,
250		SInvalidStatementHandle,
475	–	SSQLOpen,
251		SSQLClosed,
477	–	SDatasetOpen,
478	–	SDatasetClosed,
252		SUnknownSQLDataType,
253		SInvalidColumnIndex,
481	–	SInvalidParamColumnIndex,
254		SInvalidDataConversion,
483	–	SColumnIsNotNullable,
255		SBlobCannotBeRead,
256		SBlobCannotBeWritten,
257		SBlobNotOpen,
258		SEmptyQuery,
488	–	SCannotOpenNonSQLSelect,
489	–	SNoFieldAccess,
490	–	SFieldReadOnly,
259		SFieldNotFound,
492	–	SNotEditing,
493	–	SCannotInsert,
494	–	SCannotPost,
495	–	SCannotUpdate,
496	–	SCannotDelete,
497	–	SCannotRefresh,
498	–	SBufferNotSet,
499	–	SCircularReference,
260		SSQLParseError,
501	–	SUserAbort,
502	–	SDataSetUniDirectional,
503	–	SCannotCreateSharedResource,
504	–	SWindowsAPIError,
505	–	SColumnListsDontMatch,
506	–	SColumnTypesDontMatch,
507	–	SCantEndSharedTransaction,
508	–	SFieldUnsupportedType,
509	–	SCircularDataLink,
510	–	SEmptySQLStatement,
261		SIsASelectStatement,
512	–	SRequiredParamNotSet,
513	–	SNoStoredProcName,
262		SIsAExecuteProcedure,
515	–	SUpdateFailed,
516	–	SNotCachedUpdates,
517	–	SNotLiveRequest,
518	–	SNoProvider,
519	–	SNoRecordsAffected,
520	–	SNoTableName,
521	–	SCannotCreatePrimaryIndex,
522	–	SCannotDropSystemIndex,
523	–	STableNameMismatch,
524	–	SIndexFieldMissing,
525	–	SInvalidCancellation,
526	–	SInvalidEvent,
263		SMaximumEvents,
528	–	SNoEventsRegistered,
529	–	SInvalidQueueing,
530	–	SInvalidRegistration,
531	–	SInvalidBatchMove,
532	–	SSQLDialectInvalid,
533	–	SSPBConstantNotSupported,
534	–	SSPBConstantUnknown,
264		SServiceActive,
265		SServiceInActive,
266		SServerNameMissing,
538	–	SQueryParamsError,
539	–	SStartParamsError,
267		SOutputParsingError,
541	–	SUseSpecificProcedures,
542	–	SSQLMonitorAlreadyPresent,
543	–	SCantPrintValue,
544	–	SEOFReached,
545	–	SEOFInComment,
546	–	SEOFInString,
547	–	SParamNameExpected,
548	–	SSuccess,
549	–	SDelphiException,
550	–	SNoOptionsSet,
551	–	SNoDestinationDirectory,
552	–	SNosourceDirectory,
553	–	SNoUninstallFile,
554	–	SOptionNeedsClient,
555	–	SOptionNeedsServer,
556	–	SInvalidOption,
557	–	SInvalidOnErrorResult,
558	–	SInvalidOnStatusResult,
559	–	SDPBConstantUnknownEx,
560	–	STPBConstantUnknownEx,
561	–	SSV5APIError,
562	–	SThreadFailed,
563	–	SFieldSizeError,
564	–	STransactionNotEnding,
565	–	SDscInfoTokenMissing,
566	–	SNoLoginDialog,
268		SEmptyAttachmentsList,
568	–	SFirebirdLibraryLoaded,
569	–	SInfoBufferIndexError,
269		SInfoBufferTypeError,
571	–	SInfoBufferOverflow,
270		SServiceRequestIndexError,
271		SServiceParamTypeError,
272		SOutputBlockIndexError,
#	Line 586 | Line 284 | const
284		SArrayBoundsCantIncrease,
285		SStatementNotPrepared,
286		SInterfaceOutofDate,
589	–	SUnexpectedDatabaseInfoResp,
287		SInvalidBlobMetaData,
288		SNoDPB,
289		SInEventWait,
#	Line 594 | Line 291 | const
291		SMissingColumnName,
292		SStringTooLong,
293		SFieldNotinDataSet,
597	–	SNotCurrentArray,
294		SNoDefaultCharacterSet,
295		SParamBufferOverflow,
296		SInvalidParamCount,
297		SInvalidVariantType,
298	<	SServiceRunning,
299	<	SUniqueRelationReqd,
300	<	SInterfaceNotSupported
298	>	SInterfaceNotSupported,
299	>	SCharacterSetExists,
300	>	SUnknownUserCharSet,
301	>	SUninitializedInputParameter,
302	>	SMultiThreadRequired,
303	>	STokenQueueOverflow,
304	>	STokenQueueUnderflow,
305	>	SErrorParsing,
306	>	SDLInfoError,
307	>	SDifferentAPIs
308		);
309
310		function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
#	Line 609 | Line 312 | begin
312		Result := IBErrorMessages[ErrMess];
313		end;
314
315	+	procedure IBError(ErrMess: TIBClientError; const Args: array of const);
316	+	begin
317	+	raise EIBClientError.Create(Ord(ErrMess),
318	+	Format(GetErrorMessage(ErrMess), Args));
319	+	end;
320	+
321		end.
322

Diff Legend

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