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

Comparing ibx/trunk/fbintf/client/FBServices.pas (file contents):
Revision 420 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 421 by tony, Sat Oct 21 14:22:28 2023 UTC

# Line 56 | Line 56 | type
56    protected
57      FSPB: ISPB;
58      procedure InternalAttach(ConnectString: AnsiString); virtual; abstract;
59 +    procedure IBDatabaseError;
60    public
61      constructor Create(api: TFBClientAPI; ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB; Port: AnsiString = '');
62      destructor Destroy; override;
# Line 159 | Line 160 | begin
160      IBError(ibxeServerNameMissing, [nil]);
161   end;
162  
163 + procedure TFBServiceManager.IBDatabaseError;
164 + begin
165 +  raise EIBInterBaseError.Create(FFirebirdAPI.GetStatus,cp_utf8);
166 + end;
167 +
168   constructor TFBServiceManager.Create(api: TFBClientAPI; ServerName: AnsiString;
169    Protocol: TProtocol; SPB: ISPB; Port: AnsiString);
170   begin

Diff Legend

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