Delphi純代碼連SQLite數(shù)據(jù)庫,同時支持數(shù)據(jù)庫的加密解密
本文的內容包括:
(1)一個實現(xiàn)了加密解密功能的SQLite3 dll
(2)純Delphi代碼連接SQLite數(shù)據(jù)庫
(3)改進后的純代碼連接SQLite數(shù)據(jù)庫,同時實現(xiàn)了數(shù)據(jù)庫的加密解密
(1)關于SQLite數(shù)據(jù)庫的C++加密實現(xiàn):
SQLite 數(shù)據(jù)庫加密的一種解決方案:
http://blog.csdn.net/benny5609/archive/2008/03/17/2192786.aspx
sqlite3.dll(404kb)
(2)一個純Delphi代碼封裝的SQLite簡單實現(xiàn):
http://www.itwriting.com/sqlitesimple.php
感謝以上的作者,我在這里提供的只是對上面二個進行了一些修改和整合,實現(xiàn)了純Delphi代碼連結Sqlite數(shù)據(jù)庫,并支持數(shù)據(jù)庫的加密和解決,所有修改的地方已經(jīng)在Delphi源程序中的進行標注,附件中的源碼是基于D2009版的,如果你用的是其它版本的Delphi,只需要在工程中加入 SQLite3.pas 和 SQLiteTable3.pas(這二個文件就是純Delphi代碼封裝的SQLite實現(xiàn)),而SQLite3.dll是實現(xiàn)了加密解密重新編譯過的,所以這三個文件要同時加入工程(sqlite3.dll只需要放到工程目錄下即可)。
下面簡單介紹一下這個工具的使用方法:
uses SQLiteTable3;
(1)創(chuàng)建數(shù)據(jù)庫
- var
- sql:string;
- db:TSQLiteDatabase;
- try
- if FileExists('test.db') then DeleteFile('test.db');
- //連接數(shù)據(jù)庫,如果數(shù)據(jù)庫文件不存在會自動創(chuàng)建
- db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密碼創(chuàng)建數(shù)據(jù)庫
- //db:=TSQLiteDatabase.Create('test.db',Nil);//無密碼創(chuàng)建數(shù)據(jù)庫
- //創(chuàng)建USER表
- sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))';
- db.ExecSQL(sql);
- //插入一條測試數(shù)據(jù)
- sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")';
- db.ExecSQL(sql);
- finally
- db.Free;
- end;
(2)查詢數(shù)據(jù)
- var
- sql:string;
- db:TSQLiteDatabase;
- tbl:TSQLiteTable;
- name:string;
- homepage:string;begintry
- db:=TSQLiteDatabase.Create('test.db','dbpassword');
- sql:='SELECT * FROM USER LIMIT 1';
- tbl:=db.GetTable(sql);
- if tbl.RowCount>0 then
- begin
- name:=tbl.FieldAsString(tbl.FieldIndex['NAME']);
- homepage:=tbl.FieldAsString(tbl.FieldIndex['HOMEPAGE']);
- ShowMessage('Name:'+name+#13+'HomePage:'+homepage);
- end;
- finally
- tbl.Free;
- db.Free;
- end;
原文鏈接:http://www.cnblogs.com/xunxun/archive/2011/03/03/1969682.html
【編輯推薦】