From a8e71053e6eb2e7ac555108b79699fb08db5a8c0 Mon Sep 17 00:00:00 2001
From: lacak <lacak@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Tue, 19 May 2015 11:29:52 +0000
Subject: 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
---
 packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'packages/fcl-db')

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;
 
-- 
cgit v1.2.1