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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 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        );
249  
250 < function GetErrorMessage(ErrMess: TIBClientError): string;
250 > function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
251  
252   resourcestring
253    { generic strings used in code }
# Line 261 | Line 269 | resourcestring
269    SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
270    STrue = 'true';
271    SFalse = 'false';
272 +  SArray = '(array)';
273 +  SBlob = '(blob)';
274  
275   implementation
276  
# Line 405 | Line 415 | resourcestring
415    SPBIndexError = 'DPB Index out of range (%d)';
416    SPBParamTypeError = 'Invalid Request for DPB Param Type';
417    SDuplicateParamName = 'Blob or array parameter name must be unique (%s)';
418 <  SInvalidArrayDimensions = 'Invalid number of array dimensions {%d)';
418 >  SInvalidArrayDimensions = 'Invalid number of array dimensions (%d)';
419    SNotAMultiDatabaseTransaction = 'This is not a multi-database transaction';
420    SAttachmentListIndexError = 'Attachment List index out of range (%d)';
421    SNotAnArray = 'Table Column must be an array';
# Line 429 | Line 439 | resourcestring
439    SInvalidParamCount = 'Invalid Parameter Count. %d expected, %d found';
440    SInvalidVariantType = 'Invalid variant type';
441    SServiceRunning = 'Cannot start a new service while an existing service is running';
442 +  SUniqueRelationReqd = 'All Output Fields must derived from the same table';
443 +  SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
444 +  SCharacterSetExists = 'Character set "%s" is already defined';
445 +  SUnknownUserCharSet = 'Unknown user character set "%s"';
446 +  SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised';
447  
448   const
449    IBErrorMessages: array[TIBClientError] of string = (
# Line 590 | Line 605 | const
605      SParamBufferOverflow,
606      SInvalidParamCount,
607      SInvalidVariantType,
608 <    SServiceRunning
608 >    SServiceRunning,
609 >    SUniqueRelationReqd,
610 >    SInterfaceNotSupported,
611 >    SCharacterSetExists,
612 >    SUnknownUserCharSet,
613 >    SUninitializedInputParameter
614    );
615  
616 < function GetErrorMessage(ErrMess: TIBClientError): string;
616 > function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
617   begin
618    Result := IBErrorMessages[ErrMess];
619   end;

Diff Legend

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