Whitelist ':memory:' special SQLite database

EricGrange · Feb 26, 2021 · dbaeaf3 · dbaeaf3
1 parent 0f26160
commit dbaeaf3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Libraries/DatabaseLib/dwsSynSQLiteDatabase.pas b/Libraries/DatabaseLib/dwsSynSQLiteDatabase.pas
@@ -294,7 +294,7 @@ constructor TdwsSynSQLiteDataBase.Create(const parameters : array of String; con
    FFileSystem := fileSystem;
    if Length(parameters) > 0 then begin
       dbName := TdwsDataBase.ApplyPathVariables(parameters[0]);
-      if Assigned(fileSystem) then begin
+      if (dbName <> ':memory:') and Assigned(fileSystem) then begin
          validatedDBName := fileSystem.ValidateFileName(dbName);
          if validatedDBName = '' then
             raise ESQLite3Exception.CreateFmt('Database location not allowed "%s"', [ dbName ])