paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Password check for sqlite3 functionality, Mantis #18774

Browse Source 
git-svn-id: trunk@20535 -
This commit is contained in:
marco 2012-03-17 17:23:51 +00:00
parent 2d8dbeca54
commit 56442144bf
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -719,6 +719,8 @@ begin
InitializeSqlite(SQLiteLibraryName);
str1:= databasename;
checkerror(sqlite3_open(pchar(str1),@fhandle));
if (Length(Password)>0) and assigned(sqlite3_key) then
checkerror(sqlite3_key(fhandle,PChar(Password),StrLen(PChar(Password))));
if Params.IndexOfName('foreign_keys') <> -1 then
execsql('PRAGMA foreign_keys = '+Params.Values['foreign_keys']);
end;