fix: out-of-memory error in call to sqlite3_open() on a non-existent SQLite database file

ansgarbecker · ansgarbecker · commit e93924f604f6 · 2026-02-19T18:44:01.000+01:00
Closes #1367
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -2833,6 +2833,10 @@ procedure TSQLiteConnection.SetActive(Value: Boolean);
   MainFile := IfThen(FileNames.Count>=1, FileNames[0], '');
 
   if Value then begin
+    // Fixes "out of memory" crash in sqlite3_open, see issue #1367
+    if not FileExists(MainFile) then
+      raise EDbError.Create(f_('File does not exist: %s', [MainFile]));
+
     DoBeforeConnect;
 
     ConnectResult := FLib.sqlite3_open(
