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

Comparing ibx/trunk/iblocaldb/nongui/IBXCustomIBLocalDBSupport.pas (file contents):
Revision 262 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 284 | Line 284 | procedure TCustomIBLocalDBSupport.OnBefo
284   begin
285    if not Enabled or (csDesigning in ComponentState) then Exit;
286  
287 <  if not FirebirdAPI.IsEmbeddedServer then
287 >  if not assigned(Database) or not Database.FirebirdAPI.IsEmbeddedServer then
288       raise EIBLocalFatalError.Create(sNoEmbeddedServer);
289  
290    DBName := GetDBNameAndPath;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines