ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/FBMessages.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBMessages.pas (file contents):
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 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 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