fcl-db: sqlite: implement CreateDB/DropDB methods + InitializeSqlite/ReleaseSqlite

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@30885 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 5 deletions

diff --git a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
index d7f0faa63d..3579238e46 100644
--- a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
+++ b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
@@ -980,7 +980,7 @@ function TSQLite3Connection.GetConnectionInfo(InfoType: TConnInfoType): string;
 begin
   Result:='';
   try
-    InitializeSqlite(SQLiteDefaultLibrary);
+    InitializeSqlite;
     case InfoType of
       citServerType:
         Result:=TSQLite3ConnectionDef.TypeName;
@@ -1003,12 +1003,17 @@ procedure TSQLite3Connection.CreateDB;
 var filename: ansistring;
 begin
   CheckDisConnected;
-  filename := DatabaseName;
   try
-    checkerror(sqlite3_open(PAnsiChar(filename),@fhandle));
+    InitializeSqlite;
+    try
+      filename := DatabaseName;
+      checkerror(sqlite3_open(PAnsiChar(filename),@fhandle));
+    finally
+      sqlite3_close(fhandle);
+      fhandle := nil;
+    end;
   finally
-    sqlite3_close(fhandle);
-    fhandle := nil;
+    ReleaseSqlite;
   end;
 end;