新聞中心
這里有您想知道的互聯(lián)網營銷解決方案
Delphi純代碼連SQLite數據庫,同時支持數據庫的加密解密
本文的內容包括:

(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;
分享名稱:Delphi純代碼連SQLite數據庫,同時支持數據庫的加密解密
網址分享:http://m.5511xx.com/article/dhheoeo.html


咨詢
建站咨詢
