Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1333092
  • 博文数量: 436
  • 博客积分: 7854
  • 博客等级: 少将
  • 技术积分: 3225
  • 用 户 组: 普通用户
  • 注册时间: 2007-12-18 16:30
文章分类

全部博文(436)

文章存档

2013年(2)

2012年(56)

2011年(70)

2010年(308)

分类:

2010-07-23 22:03:33

[警告:慎用本文的工具,该工具目前的版本可能导致原加密的数据库在修改数据后无法打开,笔者已经遇到了这种情况,有关问题可以参见这篇博文http://isealy.blog.163.com/blog/static/3597566220091210841619/,虽然目前未证实是否由于该原因引起,但本文所涉及的内容仅用作大家的参考,不要应用于产品开发。否则由此引起的问题自行负责。特此说明。]

本文的内容包括:
(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简单实现
   

感谢以上的作者,我在这里提供的只是对上面二个进行了一些修改和整合,实现了纯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;

相关源码下载
阅读(677) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~