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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 60 | Line 60
60		{                                                                        }
61		{************************************************************************}
62		unit FBMessages;
63	+	{$IFDEF MSWINDOWS}
64	+	{$DEFINE WINDOWS}
65	+	{$ENDIF}
66
67		{$IFDEF FPC}
68	<	{$mode objfpc}{$H+}
68	>	{$mode delphi}
69		{$codepage UTF8}
70		{$ENDIF}
71
#	Line 236 | Line 239 | type
239		ibxeParamBufferOverflow,
240		ibxeInvalidParamCount,
241		ibxeInvalidVariantType,
242	<	ibxeServiceRunning
242	>	ibxeServiceRunning,
243	>	ibxeUniqueRelationReqd,
244	>	ibxeInterfaceNotSupported,
245	>	ibxeCharacterSetExists,
246	>	ibxeUnknownUserCharSet,
247	>	ibxeUninitializedInputParameter,
248	>	ibxeNegativeGenerator,
249	>	ibxeServiceUnavailable,
250	>	ibxeBadConnectString,
251	>	ibxeServiceNotStarted,
252	>	ibxeNotRequiredDataSetSource,
253	>	ibxeNoLimboTransactionInsert,
254	>	ibxeDatabaseNotConnected
255		);
256
257	<	function GetErrorMessage(ErrMess: TIBClientError): string;
257	>	function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
258
259		resourcestring
260		{ generic strings used in code }
#	Line 261 | Line 276 | resourcestring
276		SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
277		STrue = 'true';
278		SFalse = 'false';
279	+	SArray = '(array)';
280	+	SBlob = '(blob)';
281
282		implementation
283
#	Line 370 | Line 387 | resourcestring
387		SServerNameMissing = 'Server Name Missing';
388		SQueryParamsError = 'Query Parameters missing or incorrect';
389		SStartParamsError = 'start Parameters missing or incorrect';
390	<	SOutputParsingError = 'Unexpected Output buffer value (%d)';
390	>	SOutputParsingError = 'Unexpected Output buffer value (%d) - %s';
391		SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
392		SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
393		SDelphiException = 'DelphiException %s';
#	Line 405 | Line 422 | resourcestring
422		SPBIndexError = 'DPB Index out of range (%d)';
423		SPBParamTypeError = 'Invalid Request for DPB Param Type';
424		SDuplicateParamName = 'Blob or array parameter name must be unique (%s)';
425	<	SInvalidArrayDimensions = 'Invalid number of array dimensions {%d)';
425	>	SInvalidArrayDimensions = 'Invalid number of array dimensions (%d)';
426		SNotAMultiDatabaseTransaction = 'This is not a multi-database transaction';
427		SAttachmentListIndexError = 'Attachment List index out of range (%d)';
428		SNotAnArray = 'Table Column must be an array';
#	Line 429 | Line 446 | resourcestring
446		SInvalidParamCount = 'Invalid Parameter Count. %d expected, %d found';
447		SInvalidVariantType = 'Invalid variant type';
448		SServiceRunning = 'Cannot start a new service while an existing service is running';
449	+	SUniqueRelationReqd = 'All Output Fields must derived from the same table';
450	+	SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
451	+	SCharacterSetExists = 'Character set "%s" is already defined';
452	+	SUnknownUserCharSet = 'Unknown user character set "%s"';
453	+	SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised';
454	+	SNegativeGenerator = 'A Generator Increment cannot be negative';
455	+	SServiceUnavailable = 'Request Service is not available';
456	+	SBadConnectString = 'Parse Error in Connect String';
457	+	SServiceNotStarted = 'Cannot Query running service until the service has been started';
458	+	SNotRequiredDataSetSource = 'Object of class %s is not a valid dataset source';
459	+	SNoLimboTransactionInsert = 'You cannot add to a Limbo Transaction list';
460	+	SDatabaseNotConnected = 'Cannot connect using an unattached database';
461
462		const
463		IBErrorMessages: array[TIBClientError] of string = (
#	Line 590 | Line 619 | const
619		SParamBufferOverflow,
620		SInvalidParamCount,
621		SInvalidVariantType,
622	<	SServiceRunning
622	>	SServiceRunning,
623	>	SUniqueRelationReqd,
624	>	SInterfaceNotSupported,
625	>	SCharacterSetExists,
626	>	SUnknownUserCharSet,
627	>	SUninitializedInputParameter,
628	>	SNegativeGenerator,
629	>	SServiceUnavailable,
630	>	SBadConnectString,
631	>	SServiceNotStarted,
632	>	SNotRequiredDataSetSource,
633	>	SNoLimboTransactionInsert,
634	>	SDatabaseNotConnected
635		);
636
637	<	function GetErrorMessage(ErrMess: TIBClientError): string;
637	>	function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
638		begin
639		Result := IBErrorMessages[ErrMess];
640		end;

Diff Legend

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