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;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://www.shufengxianlan.com/qtweb/news1/389551.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联