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 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 144 by tony, Sat Feb 24 23:15: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 237 | Line 240 | type
240		ibxeInvalidParamCount,
241		ibxeInvalidVariantType,
242		ibxeServiceRunning,
243	<	ibxeUniqueRelationReqd
243	>	ibxeUniqueRelationReqd,
244	>	ibxeInterfaceNotSupported,
245	>	ibxeCharacterSetExists,
246	>	ibxeUnknownUserCharSet,
247	>	ibxeUninitializedInputParameter,
248	>	ibxeNegativeGenerator,
249	>	ibxeServiceUnavailable
250		);
251
252	<	function GetErrorMessage(ErrMess: TIBClientError): string;
252	>	function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
253
254		resourcestring
255		{ generic strings used in code }
#	Line 373 | Line 382 | resourcestring
382		SServerNameMissing = 'Server Name Missing';
383		SQueryParamsError = 'Query Parameters missing or incorrect';
384		SStartParamsError = 'start Parameters missing or incorrect';
385	<	SOutputParsingError = 'Unexpected Output buffer value (%d)';
385	>	SOutputParsingError = 'Unexpected Output buffer value (%d) - %s';
386		SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
387		SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
388		SDelphiException = 'DelphiException %s';
#	Line 433 | Line 442 | resourcestring
442		SInvalidVariantType = 'Invalid variant type';
443		SServiceRunning = 'Cannot start a new service while an existing service is running';
444		SUniqueRelationReqd = 'All Output Fields must derived from the same table';
445	+	SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
446	+	SCharacterSetExists = 'Character set "%s" is already defined';
447	+	SUnknownUserCharSet = 'Unknown user character set "%s"';
448	+	SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised';
449	+	SNegativeGenerator = 'A Generator Increment cannot be negative';
450	+	SServiceUnavailable = 'Request Service is not available';
451
452		const
453		IBErrorMessages: array[TIBClientError] of string = (
#	Line 595 | Line 610 | const
610		SInvalidParamCount,
611		SInvalidVariantType,
612		SServiceRunning,
613	<	SUniqueRelationReqd
613	>	SUniqueRelationReqd,
614	>	SInterfaceNotSupported,
615	>	SCharacterSetExists,
616	>	SUnknownUserCharSet,
617	>	SUninitializedInputParameter,
618	>	SNegativeGenerator,
619	>	SServiceUnavailable
620		);
621
622	<	function GetErrorMessage(ErrMess: TIBClientError): string;
622	>	function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
623		begin
624		Result := IBErrorMessages[ErrMess];
625		end;

Diff Legend

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