本文的內容包括：

(1)一個實現了加密解密功能的SQLite3 dll

(2)純Delphi代碼連接SQLite數據庫

(3)改進后的純代碼連接SQLite數據庫，同時實現了數據庫的加密解密

(1)關于SQLite數據庫的C++加密實現：

SQLite 數據庫加密的一種解決方案：

http://blog.csdn.net/benny5609/archive/2008/03/17/2192786.aspx

sqlite3.dll(404kb)

(2)一個純Delphi代碼封裝的SQLite簡單實現：

http://www.itwriting.com/sqlitesimple.php

感謝以上的作者，我在這里提供的只是對上面二個進行了一些修改和整合，實現了純Delphi代碼連結Sqlite數據庫，并支持數據庫的加密和解決，所有修改的地方已經在Delphi源程序中的進行標注，附件中的源碼是基于D2009版的，如果你用的是其它版本的Delphi，只需要在工程中加入 SQLite3.pas 和 SQLiteTable3.pas(這二個文件就是純Delphi代碼封裝的SQLite實現)，而SQLite3.dll是實現了加密解密重新編譯過的，所以這三個文件要同時加入工程(sqlite3.dll只需要放到工程目錄下即可)。

下面簡單介紹一下這個工具的使用方法：

uses SQLiteTable3;

(1)創(chuàng)建數據庫var

sql:string;

db:TSQLiteDatabase;

try

if?FileExists('test.db')?then?DeleteFile('test.db');

//連接數據庫，如果數據庫文件不存在會自動創(chuàng)建

db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密碼創(chuàng)建數據庫

//db:=TSQLiteDatabase.Create('test.db',Nil);//無密碼創(chuàng)建數據庫

//創(chuàng)建USER表

sql:='CREATE?TABLE?USER(ID?integer?PRIMARY?KEY?AUTOINCREMENT?NOT?NULL,NAME?VARCHAR(50),HOMEPAGE?VARCHAR(255))';

db.ExecSQL(sql);

//插入一條測試數據

sql:='INSERT?INTO?USER?VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")';

db.ExecSQL(sql);

finally

db.Free;

end;

(2)查詢數據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

【編輯推薦】

【責任編輯：艾婧 TEL：(010)68476606】

點贊 0

總結

以上是生活随笔為你收集整理的delphi mysql 加密_Delphi纯代码连SQLite数据库，同时支持数据库的加密解密的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。