您的位置：首页 > 数据库

Delphi纯代码连SQLite数据库，同时支持数据库的加密解密

2011-03-03 11:03 666 查看

//摘自：http://bbs.witbase.com/thread-1141-1-1.html

Delphi纯代码连SQLite数据库，同时支持数据库的加密解密

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）创建数据库

var
sql:string;
db:TSQLiteDatabase;

try
if FileExists('test.db') then DeleteFile('test.db');
//连接数据库，如果数据库文件不存在会自动创建
db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密码创建数据库
//db:=TSQLiteDatabase.Create('test.db',Nil);//无密码创建数据库
//创建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;
begin
try
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;

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航