Unidac支持加密的Sqlite.docVIP

HYPERLINK /html/1977.html \o Permalink to 让unidac支持加密的sqlite让unidac支持加密的sqlite sqlite是一款优秀的单文件数据库软件，只需一个dll就就完全包含数据库引擎的功能，而且可以嵌入至其它程序中，完全不用额外的设定。其特性如下：* 支持ACID (Atomic, Consistent, Isolated, Durable) 交易。* 零组态设定(Zero-configuration)，无须管理者的设定及管理。* 支持大部分SQL92的语法。* 数据库存在于一个单一的文件中。* 数据库系统所在机器的字节顺序(Byte order)无关。* 支援大小至2 TB (2^41 bytes)。* 极小的内存需求:小于3万行的C语言程序代码。小于250KB的程序空间。* 大部分的数据库操作皆快于一般流行的数据库系统。* 简单易用的API。* 支援TCL。也有其它语言的支持可用。* 注释详细的程序代码，以及超过90%的测试。* 链接库自己包含完整的功能，无须其它额外的程序或链接库。* 程序代码版权为public domain。任何用途皆可免费使用。 不过sqlite开源版是不支持加密的，只留有接口，没有进行实现，不过开源界从来不缺乏雷锋，于是有了wxsqlite工程，wxsqlite是 sqlite的wxWidgets c++实现接口，顺便用aes加密算法实现了sqlite的加密功能，与sqlite 100%兼容，实在是赞！ 我常用的数据库连接组件是unidac，最新的3.x版本已经支持sqlite，不过也没有实现加密函数定义，于是自已动手帮它加上，我用的版本是。 \UniProviders\SQLite\LiteCallUni.pas是调用接口定义 // functions下面加上以下代码： _sqlite3_key = function( pDb: Tsqlite3; // Database handle pKey: PAnsiChar; // Database PassWord (UTF-8) nKey: Integer // Database sizeofpassword ): integer; {$IFNDEF CLR}cdecl;{$ENDIF} _sqlite3_rekey = function(//If the current database is not encrypted, this routine will encrypt it. If pNew==0 or nNew==0, the database is decrypted. pDb: Tsqlite3; // Database handle pNew: PAnsiChar; // Database New PassWord (UTF-8) nNew: Integer // Database sizeofnewpassword ): integer; {$IFNDEF CLR}cdecl;{$ENDIF} ........................... var 下面加 sqlite3_key: _sqlite3_key; sqlite3_rekey: _sqlite3_rekey; ........................................ procedure InitFunctions; begin {$IFDEF CLR}下面加 sqlite3_key := {$IFNDEF UNIDACPRO}LiteCallCLR{$ELSE}LiteCallCLRUni{$ENDIF}.sqlite3_key; sqlite3_rekey := {$IFNDEF UNIDACPRO}LiteCallCLR{$ELSE}LiteCallCLRUni{$ENDIF}.sqlite3_rekey; ................... {$ELSE}下面加 sqlite3_key := GetProc(sqlite3_key); sqlite3_rekey := GetProc(sqlite3_rekey); .................................. initialization LockInit := TCriticalSection.Create; {$IFNDEF CLR}下面加 sq