delphi Sqlite

Posted 2022-07-04 blogpro

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi Sqlite相关的知识，希望对你有一定的参考价值。

Delphi中SQLite如何读写二进制字段(Blob类型)

在Delphi中,有大量的组件可以操作SQLite数据库,如UniDAC就是其中一个比较优秀的,当然还有ASQLite3Components,也有SQLite3版的ODBC驱动,可直接用ADO操作。本文简要说明SynopseSQLite3读写二进制字段,先说下SynopseSQLite3的优点,静态编译集成SQLite3引擎,不需要额外的DLL支持,支持SQLite3加密,支持JSON表,支持网络版的SQLite3.支持线程安全保护.
首先建一个表,字段类型为BLOB
SL.Add(‘CREATE TABLE IF NOT EXISTS TEST (‘);
SL.Add(‘FileName TEXT PRIMARY KEY,‘);
SL.Add(‘Data BLOB);‘);
SL.Add(‘‘);
写入二进制数据:

var
FFileStream:TFileStream;
FData:array of Char;
FSQLR:TSQLRequest;
ASQL:AnsiString;
begin
FFileStream:=TFileStream.Create(‘test.xml‘,fmOpenReadWrite);
ASQL:=‘INSERT INTO TEST(FileName,Data) VALUES(‘+QuotedStr(‘test.xml‘)+‘,?)‘;
try
SQLite数据库对象.Execute(‘DELETE FROM TEST‘);
//
SetLength(FData,FFileStream.Size);
FFileStream.Position:=0;
FFileStream.Read(PChar(FData)^,Length(FData));
FSQLR.Prepare(SQLite数据库对象.DB,ASQL);
FSQLR.Bind(1,PChar(FData),Length(FData));
FSQLR.Execute;
finally
FreeAndNil(FFileStream);
end;

View Code

其中问号是参数,SQLite数据库对象类型为TSQLDataBase
读取数据并写入到文件:

var
FBlobField:TSQLBlobStream;
FFileStream:TMemoryStream;
FData:array of Char;
begin
try
FFileStream:=TMemoryStream.Create;
FBlobField:=SQLite数据库对象.Blob(‘‘,‘TEST‘,‘Data‘,1,True);
try
FBlobField.Position:=0;
SetLength(FData,FBlobField.Size);
FBlobField.ReadBuffer(PChar(FData)^,FBlobField.Size);
FFileStream.Write(PChar(FData)^,FBlobField.Size);
FFileStream.SaveToFile("test.xml");
finally
FreeAndNil(FBlobField);
FreeAndNil(FFileStream);
end;
except
Result:=‘‘;
end;

View Code

转载请注明来源,谢谢,

Delphi連接SQLite3 SQLite ODBC Driver

最近在嘗試在Delphi中使用SQLite,昨晚終於找到一個連接SQLite的方法:安裝 SQLite ODBC Driver 在 Delphi中通過ADO組件（TADOQuery， TADOConnection）直接訪問。
步驟：
1. 下載 SQLite ODBC Driver；
2. 安裝 SQLite ODBC Driver；
3. 在Delphi工程中添加 TADOQuery， TADOConnection 組件；
4. 設置 TADOConnection 的ConnectionString;
設置步驟:
1)單擊TADOConnection組件 ConectionString變的按鈕, 選擇 "Use Connection String" -> "Build"
2)彈出的菜單中, 程序選擇: "Microsoft OLE DB Provider for ODBC Drivers"
3)指定的數據源: 選"使用數據源名稱"->"SQLite3 Datasource"
4)測試連接是否成功。

(over)

// 創建表 test
procedure TForm1.Bt_createClick(Sender: TObject);
begin
try
if cnnSqlite.Connected=false then cnnSqlite.open;
if sQry.Active then sQry.Close;
sQry.SQL.Clear;
sQry.SQL.Add(‘create TABLE test (testid INTEGER PRIMARY KEY AUTOINCREMENT UNIQUE, title string unique, text text)‘);
sQry.ExecSQL;
finally
cnnSqlite.Close;
end;
showMessage(‘over‘);
end;

View Code

SQLite加密 wxSqlite3

一直在网上搜wxSqlite3的文档，但是总找不到能真正解决问题的，就是一个简单的编译wxSqlite3自带的示例也出了老多问题，后来却发现，其实wxSqlite3的readme中已经有了详细的方法，哦，就在眼皮子底下！为了避免再一次的遗忘，就在这里暂作一个记录吧。

截至记录时间，wxSqlite3的版本号为2.1.1，Sqlite3的版本为3.7.6.2，这两个都可以直接在网上下载，
wxSqlite3的站点http://wxcode.sourceforge.net/components/wxsqlite3；
http://sourceforge.net/projects/wxcode/files/Components/wxSQLite3/
http://sourceforge.net/projects/wxsqlite/?source=directory
Sqlite3的站点http://www.sqlite.org/；

其中wxSqlite3自带了已编译的Sqlite3.7.6.1的DLL，当然，我的目的是自己编译静态的Lib，所以只能自己下来重新编译了。当然，我要的Lib是要带加密功能的，呵呵。

wxSQLite3 is a C++ wrapper around the public domain SQLite 3.x database and is specifically designed for use in programs based on the wxWidgets library.

wxSQLite3 does not try to hide the underlying database, in contrary almost all special features of the current SQLite version 3.7.10 are supported, like for example the creation of user defined scalar or aggregate functions. Since SQLite stores strings in UTF-8 encoding, the wxSQLite3 methods provide automatic conversion between wxStrings and UTF-8 strings. This works best for the Unicode builds of wxWidgets. In ANSI builds the current locale conversion object (wxConvCurrent) is used for conversion to/from UTF-8. Special care has to be taken if external administration tools are used to modify the database contents, since not all of these tools operate in Unicode resp. UTF-8 mode.

Since version 1.7.0 optional support for key based database encryption (128 bit AES) is also included. Starting with version 1.9.6 of wxSQLite3 the encryption extension is compatible with the SQLite amalgamation source and includes the extension functions module. Support for 256 bit AES encryption has been added in version 1.9.8.

从wxSqlite3 1.9.6开始，它的加密扩展就已经从C++转为纯C语言实现，因此现在可以直接编译SQLite
amalgamation source distribution实现了。只需要编译文件sqlite3secure.c即可，其已经include了所有需要的源文件。当然C++版本的文件也在codec目录（\sqlite3\secure\src\codec-c）中，但作者强烈的不推荐用它。

唠了这么多，现在正式开始。
1、下载sqlite-amalgamation-XXXXXX.zip，它已经包含了所有的源文件，也不需要另外的辅助工具了，解压到某一目录，如Sqlite3。
2、如果你下的sqlite-amalgamation-XXXXXX.zip没有makefile，那就自己做一个project吧，在VS2008里新建一个空工程，只加入sqlite3secure.c文件到工程即可，修改其中的#include "sqlite.c"的sqlite.c文件路径为上一步解压的文件的路径。
3、在配置属性中设置配置类型为静态库(.Lib)，添加预处理
SQLITE_HAS_CODEC=1
CODEC_TYPE=CODEC_TYPE_AES128
SQLITE_CORE
THREADSAFE
SQLITE_SECURE_DELETE
SQLITE_SOUNDEX
SQLITE_ENABLE_COLUMN_METADATA
4、编译生成Lib文件。
5、将生成的Lib文件取代wxsqlite3-2.1.1\sqlite3\lib中的sqlite3.lib文件，然后编译wxSqlite3为静态库，别忘了设置USE_DYNAMIC_SQLITE3_LOAD=0。

》》》》》》》》》》》》》》》》》》》》

Delphi使用wxsqlite加密Sqlite数据库

提起桌面数据库，Sqlite谁都知道，但对于它的加密一直困扰着很多人，而delphi的加密使用范例更少。在网上混了两天，查找了一些Sqlite加密的相关资料，也知道了wxsqlite这个东西，它是一个sqlite3.dll的嵌入扩展，重要的是里面加入了对Sqlite的AES 128bit-256bit加密扩展，而且用的是Sqlite预留的函数接口，这意味着什么呢？UniDAC从3.5.14版本以后加入了对encrypted sqlite的支持，这功能支持 SEE/CEROD这样使用预留接口开发的加密功能的第三方扩展，也就是说wxsqlite同样能被UniDAC所支持，这意味着你就不用再去改UniDAC的源代码了，wxsqlite可以在我这下载http://download.csdn.net/source/3215472

下面说说具体的使用方法，下载后你可以在sqlite3/secure目录下找到AES128和AES256两个文件夹，分别包含两种加密类型扩展的库文件，找到sqlite3.dll，然后放到你要调用的路径，然后下面是我随便Copy修改后的delphi的源码：

unit main; 

interface 


uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, DB, MemDS, DBAccess; 

type 
TSQLiteDB = Pointer; 
Tsqlite3=Pointer; 
TForm4 = class(TForm) 
procedure FormCreate(Sender: TObject); 
private 
 Private declarations  
public 
 Public declarations  
end; 
const 
$IF Defined(MSWINDOWS) 
SQLiteDLL = ‘sqlite3.dll‘; 
$ELSEIF Defined(DARWIN) 
SQLiteDLL = ‘libsqlite3.dylib‘; 
$linklib libsqlite3 
$ELSEIF Defined(UNIX) 
SQLiteDLL = ‘sqlite3.so‘; 
$IFEND 
var 
Form4: TForm4; 
db: TSQLiteDB; 
function SQLite3_Open(filename: PAnsiChar; var db: TSQLiteDB): integer; cdecl; external SQLiteDLL name ‘sqlite3_open‘; 
function sqlite3_key ( 
pDb: Tsqlite3; // Database handle 
pKey: PAnsiChar; // Database PassWord (UTF-8) 
nKey: Integer // Database sizeofpassword 
): integer; cdecl; external SQLiteDLL name ‘sqlite3_key‘; 
function sqlite3_rekey ( 
pDb: Tsqlite3; // Database handle 
pKey: PAnsiChar; // Database PassWord (UTF-8) 
nKey: Integer // Database sizeofpassword 
): integer; cdecl; external SQLiteDLL name ‘sqlite3_rekey‘; 
implementation 

$R *.dfm 

procedure TForm4.FormCreate(Sender: TObject); 
begin 
SQLite3_Open(‘ak.db‘,db); //打开数据库 
SQLite3_key(db,‘cba‘,3); //设置密码 
SQLite3_rekey(db,‘abc‘,3); //更改密码 
end; 

end.

View Code

不过我下载的最新版本的wxsqlite里已经编译好的sqlite3.dll中，sqlite3_key函数好像是空的，不起作用，后来查了查，是自己在使用UniDAC时直接链接了，所以我直接试着调用了sqlite3_rekey实现了对数据库的加密，加密后的数据库再用记事本打开时已经是乱码了，然后用数据库工具查看时会提示“数据库已经加密”。要更改密码的话首先得把所有多余的链接断掉，然后先Open数据库，再用sqlite3_key设置用来操作数据库的原密码，这样获得操作权之后就能用sqlite3_rekey设置新的密码了。

接下来说说UniDAC里怎么链接加密后的数据库。上面说了，UniDAC3.5.14以后的版本加入了Sqlite的encryption功能，所以在添加链接的时候你在specificOption项里可以将option项中的encryptionkey参数设置为你的数据库密码，这样链接数据库后你就可以随意操作了。

有时间再把这些东西整整，做个直接加密的工具，以后就能非常方便的加密自己的数据库了！

sqlite3

unit SQLite3;


  Simplified interface for SQLite.
  Updated for Sqlite 3 by Tim Anderson (tim@itwriting.com)
  Update for use with Dbx4Pg by Thiago Borges de Oliveira (thborges at gmail.com)
  Note: NOT COMPLETE for version 3, just minimal functionality
  Adapted from file created by Pablo Pissanetzky (pablo@myhtpc.net)
  which was based on SQLite.pas by Ben Hochstrasser (bhoc@surfeu.ch)


interface

const

  // SQLiteDLL = ‘sqlite3.dll‘;

  // Return values for sqlite3_exec() and sqlite3_step()

  __turboFloat: integer = 0;

  SQLITE_OK = 0; // Successful result
  SQLITE_ERROR = 1; // SQL error or missing database
  SQLITE_INTERNAL = 2; // An internal logic error in SQLite
  SQLITE_PERM = 3; // Access permission denied
  SQLITE_ABORT = 4; // Callback routine requested an abort
  SQLITE_BUSY = 5; // The database file is locked
  SQLITE_LOCKED = 6; // A table in the database is locked
  SQLITE_NOMEM = 7; // A malloc() failed
  SQLITE_READONLY = 8; // Attempt to write a readonly database
  SQLITE_INTERRUPT = 9; // Operation terminated by sqlite3_interrupt()
  SQLITE_IOERR = 10; // Some kind of disk I/O error occurred
  SQLITE_CORRUPT = 11; // The database disk image is malformed
  SQLITE_NOTFOUND = 12; // (Internal Only) Table or record not found
  SQLITE_FULL = 13; // Insertion failed because database is full
  SQLITE_CANTOPEN = 14; // Unable to open the database file
  SQLITE_PROTOCOL = 15; // Database lock protocol error
  SQLITE_EMPTY = 16; // Database is empty
  SQLITE_SCHEMA = 17; // The database schema changed
  SQLITE_TOOBIG = 18; // Too much data for one row of a table
  SQLITE_CONSTRAINT = 19; // Abort due to contraint violation
  SQLITE_MISMATCH = 20; // Data type mismatch
  SQLITE_MISUSE = 21; // Library used incorrectly
  SQLITE_NOLFS = 22; // Uses OS features not supported on host
  SQLITE_AUTH = 23; // Authorization denied
  SQLITE_FORMAT = 24; // Auxiliary database format error
  SQLITE_RANGE = 25; // 2nd parameter to sqlite3_bind out of range
  SQLITE_NOTADB = 26; // File opened that is not a database file
  SQLITE_ROW = 100; // sqlite3_step() has another row ready
  SQLITE_DONE = 101; // sqlite3_step() has finished executing

  SQLITE_INTEGER = 1;
  SQLITE_FLOAT = 2;
  SQLITE_TEXT = 3;
  SQLITE_BLOB = 4;
  SQLITE_NULL = 5;

  SQLITE_UTF8 = 1;
  SQLITE_UTF16 = 2;
  SQLITE_UTF16BE = 3;
  SQLITE_UTF16LE = 4;
  SQLITE_ANY = 5;

  SQLITE_TRANSIENT = pointer(-1);
  SQLITE_STATIC = pointer(0);

type
  TSQLiteDB = pointer;
  TSQLiteResult = ^PAnsiChar;
  TSQLiteStmt = pointer;

  // function prototype for define own collate
  TCollateXCompare = function(Userdta: pointer; Buf1Len: integer;
    Buf1: pointer; Buf2Len: integer; Buf2: pointer): integer; cdecl;

function _SQLite3_Open(dbname: PAnsiChar; var db: TSQLiteDB): integer; cdecl;
external;
function _SQLite3_Close(db: TSQLiteDB): integer; cdecl; external;
function _SQLite3_Exec(db: TSQLiteDB; SQLStatement: PAnsiChar;
  CallbackPtr: pointer; Sender: TObject; var ErrMsg: PAnsiChar): integer;
  cdecl; external;
function _SQLite3_Version(): PAnsiChar; cdecl; external;
function _SQLite3_ErrMsg(db: TSQLiteDB): PAnsiChar; cdecl; external;
function _SQLite3_ErrCode(db: TSQLiteDB): integer; cdecl; external;
procedure _SQlite3_Free(P: PAnsiChar); cdecl; external;
function _SQLite3_Get_Table(db: TSQLiteDB; SQLStatement: PAnsiChar;
  var ResultPtr: TSQLiteResult; var RowCount: Cardinal;
  var ColCount: Cardinal; var ErrMsg: PAnsiChar): integer; cdecl; external;
procedure _SQLite3_Free_Table(Table: TSQLiteResult); cdecl; external;
function _SQLite3_Complete(P: PAnsiChar): boolean; cdecl; external;
function _SQLite3_Last_Insert_RowID(db: TSQLiteDB): Int64; cdecl; external;
procedure _SQLite3_Interrupt(db: TSQLiteDB); cdecl; external;
procedure _SQLite3_Busy_Handler(db: TSQLiteDB; CallbackPtr: pointer;
  Sender: TObject); cdecl; external;
procedure _SQLite3_Busy_Timeout(db: TSQLiteDB; TimeOut: integer); cdecl;
external;
function _SQLite3_Changes(db: TSQLiteDB): integer; cdecl; external;
function _SQLite3_Total_Changes(db: TSQLiteDB): integer; cdecl; external;
function _SQLite3_Prepare(db: TSQLiteDB; SQLStatement: PAnsiChar;
  nBytes: integer; var hStmt: TSQLiteStmt; var pzTail: PAnsiChar): integer;
  cdecl; external;
function _SQLite3_Prepare_v2(db: TSQLiteDB; SQLStatement: PAnsiChar;
  nBytes: integer; var hStmt: TSQLiteStmt; var pzTail: PAnsiChar): integer;
  cdecl; external;
function _SQLite3_Column_Count(hStmt: TSQLiteStmt): integer; cdecl; external;
function _Sqlite3_Column_Name(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar;
  cdecl; external;
function _Sqlite3_Column_DeclType(hStmt: TSQLiteStmt;
  ColNum: integer): PAnsiChar; cdecl; external;
function _Sqlite3_Step(hStmt: TSQLiteStmt): integer; cdecl; external;
function _SQLite3_Data_Count(hStmt: TSQLiteStmt): integer; cdecl; external;

// function _Sqlite3_Column_TableName(hStmt: TSqliteStmt; ColNum: integer): PAnsiChar; cdecl; external;

function _Sqlite3_Column_Blob(hStmt: TSQLiteStmt; ColNum: integer): pointer;
  cdecl; external;
function _Sqlite3_Column_Bytes(hStmt: TSQLiteStmt; ColNum: integer): integer;
  cdecl; external;
function _Sqlite3_Column_Double(hStmt: TSQLiteStmt; ColNum: integer): double;
  cdecl; external;
function _Sqlite3_Column_Int(hStmt: TSQLiteStmt; ColNum: integer): integer;
  cdecl; external;
function _Sqlite3_Column_Text(hStmt: TSQLiteStmt; ColNum: integer): PAnsiChar;
  cdecl; external;
function _Sqlite3_Column_Type(hStmt: TSQLiteStmt; ColNum: integer): integer;
  cdecl; external;
function _Sqlite3_Column_Int64(hStmt: TSQLiteStmt; ColNum: integer): Int64;
  cdecl; external;
function _SQLite3_Finalize(hStmt: TSQLiteStmt): integer; cdecl; external;
function _SQLite3_Reset(hStmt: TSQLiteStmt): integer; cdecl; external;
function _SQLite3_Clear_Bindings(hStmt: TSQLiteStmt): integer; cdecl; external;

//
// In the SQL strings input to sqlite3_prepare() and sqlite3_prepare16(),
// one or more literals can be replace by a wildcard "?" or ":N:" where
// N is an integer.  These value of these wildcard literals can be set
// using the routines listed below.
//
// In every case, the first parameter is a pointer to the sqlite3_stmt
// structure returned from sqlite3_prepare().  The second parameter is the
// index of the wildcard.  The first "?" has an index of 1.  ":N:" wildcards
// use the index N.
//
// The fifth parameter to sqlite3_bind_blob(), sqlite3_bind_text(), and
// sqlite3_bind_text16() is a destructor used to dispose of the BLOB or
// text after SQLite has finished with it.  If the fifth argument is the
// special value SQLITE_STATIC, then the library assumes that the information
// is in static, unmanaged space and does not need to be freed.  If the
// fifth argument has the value SQLITE_TRANSIENT, then SQLite makes its
// own private copy of the data.
//
// The sqlite3_bind_* routine must be called before sqlite3_step() after
// an sqlite3_prepare() or sqlite3_reset().  Unbound wildcards are interpreted
// as NULL.
//

function _SQLite3_Bind_Blob(hStmt: TSQLiteStmt; ParamNum: integer;
  ptrData: pointer; numBytes: integer; ptrDestructor: pointer): integer;
  cdecl; external;
function _SQLite3_Bind_Double(hStmt: TSQLiteStmt; ParamNum: integer;
  Data: double): integer; cdecl; external;
function _SQLite3_Bind_Int(hStmt: TSQLiteStmt; ParamNum: integer;
  intData: integer): integer; cdecl; external;
function _SQLite3_Bind_int64(hStmt: TSQLiteStmt; ParamNum: integer;
  Data: Int64): integer; cdecl; external;
function _SQLite3_Bind_null(hStmt: TSQLiteStmt; ParamNum: integer): integer;
  cdecl; external;
function _SQLite3_Bind_text(hStmt: TSQLiteStmt; ParamNum: integer;
  Data: PAnsiChar; numBytes: integer; ptrDestructor: pointer): integer; cdecl;
external;

function _SQLite3_Bind_Parameter_Index(hStmt: TSQLiteStmt;
  zName: PAnsiChar): integer; cdecl; external;

function _sqlite3_enable_shared_cache(value: integer): integer; cdecl; external;

// user collate definiton
function _sqlite3_create_collation(db: TSQLiteDB; Name: PAnsiChar;
  eTextRep: integer; UserData: pointer; xCompare: TCollateXCompare): integer;
  cdecl; external;

function SQLiteFieldType(SQLiteFieldTypeCode: integer): String;
function SQLiteErrorStr(SQLiteErrorCode: integer): String;

function _atol(const s: PAnsiChar): integer; cdecl;
external ‘msvcrt.dll‘ name ‘atol‘;
function __ftol(f: double): integer; cdecl; external ‘msvcrt.dll‘ name ‘_ftol‘;
function __ftoul(f: double): longword; cdecl;
external ‘msvcrt.dll‘ name ‘_ftol‘;
function _malloc(s: longword): pointer; cdecl;
external ‘msvcrt.dll‘ name ‘malloc‘;
procedure _free(P: pointer); cdecl; external ‘msvcrt.dll‘ name ‘free‘;
function _realloc(P: pointer; s: longword): pointer; cdecl;
external ‘msvcrt.dll‘ name ‘realloc‘;
function _localtime(const __timer: pointer): pointer; cdecl;
external ‘msvcrt.dll‘ name ‘localtime‘;

implementation

uses
  Windows, SysUtils;
$LINK .\obj\sqlite3.obj
$LINK .\obj\_ll.obj
$LINK .\obj\strncmp.obj
$LINK .\obj\memset.obj
$LINK .\obj\memcpy.obj
$LINK .\obj\memmove.obj
$LINK .\obj\memcmp.obj


function SQLiteFieldType(SQLiteFieldTypeCode: integer): String;
begin
  case SQLiteFieldTypeCode of
    SQLITE_INTEGER:
      Result := ‘Integer‘;
    SQLITE_FLOAT:
      Result := ‘Float‘;
    SQLITE_TEXT:
      Result := ‘Text‘;
    SQLITE_BLOB:
      Result := ‘Blob‘;
    SQLITE_NULL:
      Result := ‘Null‘;
  else
    Result := ‘Unknown SQLite Field Type Code "‘ + IntToStr
      (SQLiteFieldTypeCode) + ‘"‘;
  end;
end;

function SQLiteErrorStr(SQLiteErrorCode: integer): String;
begin
  case SQLiteErrorCode of
    SQLITE_OK:
      Result := ‘Successful result‘;
    SQLITE_ERROR:
      Result := ‘SQL error or missing database‘;
    SQLITE_INTERNAL:
      Result := ‘An internal logic error in SQLite‘;
    SQLITE_PERM:
      Result := ‘Access permission denied‘;
    SQLITE_ABORT:
      Result := ‘Callback routine requested an abort‘;
    SQLITE_BUSY:
      Result := ‘The database file is locked‘;
    SQLITE_LOCKED:
      Result := ‘A table in the database is locked‘;
    SQLITE_NOMEM:
      Result := ‘A malloc() failed‘;
    SQLITE_READONLY:
      Result := ‘Attempt to write a readonly database‘;
    SQLITE_INTERRUPT:
      Result := ‘Operation terminated by sqlite3_interrupt()‘;
    SQLITE_IOERR:
      Result := ‘Some kind of disk I/O error occurred‘;
    SQLITE_CORRUPT:
      Result := ‘The database disk image is malformed‘;
    SQLITE_NOTFOUND:
      Result := ‘(Internal Only) Table or record not found‘;
    SQLITE_FULL:
      Result := ‘Insertion failed because database is full‘;
    SQLITE_CANTOPEN:
      Result := ‘Unable to open the database file‘;
    SQLITE_PROTOCOL:
      Result := ‘Database lock protocol error‘;
    SQLITE_EMPTY:
      Result := ‘Database is empty‘;
    SQLITE_SCHEMA:
      Result := ‘The database schema changed‘;
    SQLITE_TOOBIG:
      Result := ‘Too much data for one row of a table‘;
    SQLITE_CONSTRAINT:
      Result := ‘Abort due to contraint violation‘;
    SQLITE_MISMATCH:
      Result := ‘Data type mismatch‘;
    SQLITE_MISUSE:
      Result := ‘Library used incorrectly‘;
    SQLITE_NOLFS:
      Result := ‘Uses OS features not supported on host‘;
    SQLITE_AUTH:
      Result := ‘Authorization denied‘;
    SQLITE_FORMAT:
      Result := ‘Auxiliary database format error‘;
    SQLITE_RANGE:
      Result := ‘2nd parameter to sqlite3_bind out of range‘;
    SQLITE_NOTADB:
      Result := ‘File opened that is not a database file‘;
    SQLITE_ROW:
      Result := ‘sqlite3_step() has another row ready‘;
    SQLITE_DONE:
      Result := ‘sqlite3_step() has finished executing‘;
  else
    Result := ‘Unknown SQLite Error Code "‘ + IntToStr(SQLiteErrorCode) + ‘"‘;
  end;
end;

function ColValueToStr(value: PAnsiChar): String;
begin
  if (value = nil) then
    Result := ‘NULL‘
  else
    Result := String(PAnsiChar(value));
end;

end.

View Code

delphi 与 sqlite 参考

file:0 前言

本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。

file:1 准备工作part1

delphi版本:delphi2007 for win32 update3。任意安装版本即可。
sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[ http://www.sqlite.org/ ]
sqlite for delphi:simple sqlite 3.0 for delphi。目前的最新版本的发布日期为27 August 2007，支持sqlite dll版本3.4.2。经简单测试，3.5.3也是可以的。自带demo。[ http://www.itwriting.com/sqlitesimple.php ]

file:2 准备工作part2

新建一个窗体应用程序工程，并设定保存的文件夹。将simple sqlite 3.0 for delphi 中的 sqlite3.pas，sqlite3table.pas，sqlite3udf.pas拷贝至工程所在的文件夹。并在工程中添加这三个文件。拷贝 sqlite.dll到编译生成exe文件的文件夹。这个要看个人的设定。

file:3 初步测试

引用SQLiteTable3.pas单元。
在窗体上创建一个叫btnVersion的按钮(Tbutton)。在btnVersion的click事件中写入下面的代码。
procedure TfrmAbout.btnVersionClick(Sender: TObject);
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create(‘‘);
showmessage(‘Sqlite dll version:‘+SqliteDb.version);
SqliteDB.Free;
end;
编译运行，成功的话，将会显示当前的sqlite dll的版本号，我的是3.5.3。

file:4 简单工作原理描述

在simple sqlite3.0 for delphi的几个文件中，主要用到两个文件。分别是sqlite3.pas，sqlite3table.pas。
sqlite3.pas实现sqlite.dll的接口外部定义。
sqlite3table.pas进行简单的访问函数封装。
在delphi中，通过sqlite3table.pas来实现对sqlite数据库的各种访问。
关于sqlite3udf.pas，根据作者的描述，主要用与创建用户自定义函数，具体功能未测试。

file:5 读取数据

假设，我们有一个叫做database.db的sqlite数据库文件，在编译生成的exe文件所在的目录。里面有一个叫做countries的表格。
表格创建语句如下。
CREATE TABLE "Countries" (
Name VARCHAR NOT NULL PRIMARY KEY UNIQUE,
Capital VARCHAR NOT NULL,
Area INTEGER NOT NULL,
Pop INTEGER NOT NULL,
PCI INTEGER NOT NULL
);
我们该如何访问其中的第一条数据呢。
var
SqliteDB:TSQLiteDatabase;
SqliteTB:TSQLiteTable;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteTB:=SqliteDB.GetTable(‘Select * from countries‘);
显示控件1.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Name‘]);
显示控件2.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Capital‘]);
显示控件3.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Area‘]);
显示控件4.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Pop‘]);
显示控件5.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘PCI‘]);
SqliteTB.free;
SqliteDB.free;
end;
TSQLiteTable类有两个方法，分别是Next和Previous，是用来向后和向前移动数据游标的。配合这两个方法，我们可以读取表格任意数据内容。例如select * from countries where area >8000000的数据。

file:6 写入数据

我们可以读取数据，就可以写入数据。如何来做到呢？还是以Countries表为例。
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteDB.ExecSQL(‘Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("China","Beijing",9600000,1500000000,6000)‘);
SqliteDB.Free;
end;
同样，数据的update方法也可以按照这种方法来实现。在这里可以看到,字符类数据可以用双引号来标记起来,而不是通常sqlserver的单引号标记。

file:7 字符编码

访问过mysql数据库数据的朋友应该记得噩梦般的中文数据存取经历。数据库里用了一种编码，程序又是另一种编码，导致中文数据变成乱码。
sqlite中，数据库内用的是UTF-8存取，DELPHI取出的数据是ASCII编码。也就是说，我们需要在存取的同时做编码转换。
有这样两个方法，utf8decode()，utf8encode()。当从数据库中读取数据时，我们用utf8decode()；当向数据库中写入数据时，我们用utf8encode()；
例如:
显示控件.text:=utf8decode(sltb.FieldAsString(sltb.FieldIndex[‘Name‘]));
SqliteDB.ExecSQL(utf8encode(‘Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("中国","北京",9600000,1500000000,6000)‘));
在有更好的方法之前，我们只能这么用……

file8: Blob Blob Blob

某些时候，我们会需要向数据库中存储和读取图片，视频，音频等信息的数据，例如：前女友们的性感照片。sqlite中有一种数据类型叫做Blob,可以满足我们的要求。如何访问和读取呢？
下面以在database.db数据库中PhotoLib表格中存取一个JPEG图片为例：
CREATE TABLE "PhotoLib" (Id Integer NOT NULL PRIMARY KEY UNIQUE,
Photo BLOB);
写入：
var
SqliteDB: TSQLiteDatabase;
FS: TFileStream;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
FS := TFileStream.Create(‘test.jpeg‘,fmOpenRead);
SqliteDB.UpdateBlob(‘UPDATE PhotoLib set Photo = ? WHERE ID = 1‘,FS);
FS.free;
SqliteDB.Free;
end;
读取至TImage控件显示：
var
MS: TMemoryStream;
PIC: TJPegImage;
SqliteDB: TSQLiteDatabase;
SqliteTB: TSQLIteTable;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteTB:=SqliteDB.GetTable(‘Select * From PhotoLib Where Id=1‘);
MS := SqliteTB.FieldAsBlob(SqliteTB.FieldIndex[‘photo‘]);
if (MS = nil) then
begin
showmessage(‘该条记录没有前女友照片数据.‘);
exit;
end;
MS.Position := 0;
PIC := TJPEGImage.Create;
PIC.LoadFromStream(ms);
self.Image2.Picture.Graphic := PIC;
MS.free;
PIC.Free;
end;

delphi与sqlite3

delphi与sqlite
file:0 前言
本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。

file:1 准备工作part1

delphi版本:delphi2007 for win32 update3。任意安装版本即可。
sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[ http://www.sqlite.org/ ]
sqlite for delphi:simple sqlite 3.0 for delphi。目前的最新版本的发布日期为Update 16 October 2008，支持sqlite dll版本3.4.2。经简单测试，3.5.3也是可以的。自带demo。 http://www.itwriting.com/blog/articles/a-simple-delphi-wrapper-for-sqlite-3/comment-page-2

file:2 准备工作part2

新建一个窗体应用程序工程，并设定保存的文件夹。将simple sqlite 3.0 for delphi 中的 sqlite3.pas，sqlite3table.pas，sqlite3udf.pas拷贝至工程所在的文件夹。并在工程中添加这三个文件。拷贝 sqlite.dll到编译生成exe文件的文件夹。这个要看个人的设定。

file:3 初步测试

引用SQLiteTable3.pas单元。
在窗体上创建一个叫btnVersion的按钮(Tbutton)。在btnVersion的click事件中写入下面的代码。
procedure TfrmAbout.btnVersionClick(Sender: TObject);
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create(‘‘);
showmessage(‘Sqlite dll version:‘+SqliteDb.version);
SqliteDB.Free;
end;
编译运行，成功的话，将会显示当前的sqlite dll的版本号，我的是3.5.9。

file:4 简单工作原理描述

在simple sqlite3.0 for delphi的几个文件中，主要用到两个文件。分别是sqlite3.pas，sqlite3table.pas。
sqlite3.pas实现sqlite.dll的接口外部定义。
sqlite3table.pas进行简单的访问函数封装。
在delphi中，通过sqlite3table.pas来实现对sqlite数据库的各种访问。
关于sqlite3udf.pas，根据作者的描述，主要用与创建用户自定义函数，具体功能未测试。

file:5 读取数据

假设，我们有一个叫做database.db的sqlite数据库文件，在编译生成的exe文件所在的目录。里面有一个叫做countries的表格。
表格创建语句如下。
CREATE TABLE "Countries" (
Name VARCHAR NOT NULL PRIMARY KEY UNIQUE,
Capital VARCHAR NOT NULL,
Area INTEGER NOT NULL,
Pop INTEGER NOT NULL,
PCI INTEGER NOT NULL
);
我们该如何访问其中的第一条数据呢。
var
SqliteDB:TSQLiteDatabase;
SqliteTB:TSQLiteTable;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteTB:=SqliteDB.GetTable(‘Select * from countries‘);
显示控件1.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Name‘]);
显示控件2.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Capital‘]);
显示控件3.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Area‘]);
显示控件4.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘Pop‘]);
显示控件5.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex[‘PCI‘]);
SqliteTB.free;
SqliteDB.free;
end;
TSQLiteTable类有两个方法，分别是Next和Previous，是用来向后和向前移动数据游标的。配合这两个方法，我们可以读取表格任意数据内容。例如select * from countries where area >8000000的数据。

file:6 写入数据

我们可以读取数据，就可以写入数据。如何来做到呢？还是以Countries表为例。
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteDB.ExecSQL(‘Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("China","Beijing",9600000,1500000000,6000)‘);
SqliteDB.Free;
end;
同样，数据的update方法也可以按照这种方法来实现。在这里可以看到,字符类数据可以用双引号来标记起来,而不是通常sqlserver的单引号标记。

file:7 字符编码

访问过MySql数据库数据的朋友应该记得噩梦般的中文数据存取经历。数据库里用了一种编码，程序又是另一种编码，导致中文数据变成乱码。
sqlite中，数据库内用的是UTF-8存取，DELPHI取出的数据是ASCII编码。也就是说，我们需要在存取的同时做编码转换。
有这样两个方法，utf8decode()，utf8encode()。当从数据库中读取数据时，我们用utf8decode()；当向数据库中写入数据时，我们用utf8encode()；
例如:
显示控件.text:=utf8decode(sltb.FieldAsString(sltb.FieldIndex[‘Name‘]));
SqliteDB.ExecSQL(utf8encode(‘Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("中国","北京",9600000,1500000000,6000)‘));
在有更好的方法之前，我们只能这么用……

file8: Blob Blob Blob

某些时候，我们会需要向数据库中存储和读取图片，视频，音频等信息的数据，例如：前女友们的性感照片。sqlite中有一种数据类型叫做Blob,可以满足我们的要求。如何访问和读取呢？
下面以在database.db数据库中PhotoLib表格中存取一个JPEG图片为例：
CREATE TABLE "PhotoLib" (Id Integer NOT NULL PRIMARY KEY UNIQUE,
Photo BLOB);
写入：
var
SqliteDB: TSQLiteDatabase;
FS: TFileStream;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
FS := TFileStream.Create(‘test.jpeg‘,fmOpenRead);
SqliteDB.UpdateBlob(‘UPDATE PhotoLib set Photo = ? WHERE ID = 1‘,FS);
FS.free;
SqliteDB.Free;
end;
读取至TImage控件显示：
var
MS: TMemoryStream;
PIC: TJPegImage;
SqliteDB: TSQLiteDatabase;
SqliteTB: TSQLIteTable;
begin
SqliteDB:=TSQLiteDatabase.Create(‘database.db‘);
SqliteTB:=SqliteDB.GetTable(‘Select * From PhotoLib Where Id=1‘);
MS := SqliteTB.FieldAsBlob(SqliteTB.FieldIndex[‘photo‘]);
if (MS = nil) then
begin
showmessage(‘该条记录没有前女友照片数据.‘);
exit;
end;
MS.Position := 0;
PIC := TJPEGImage.Create;
PIC.LoadFromStream(ms);
self.Image2.Picture.Graphic := PIC;
MS.free;
PIC.Free;
end;

delphi与sqlite3

simple sqlite 3.0 for delphi

sqlite3中的数据类型

大多数的数据库引擎（到现在据我们所知的除了sqlite的每个sql数据库引擎）都使用静态的、刚性的类型，使用静态类型，数据的类型就由它的容器决定，这个容器是这个指被存放的特定列。
Sqlite使用一个更一般的动态类型系统，sqlite中，值的数据类型跟值本身相关，而不是与它的容器相关。Sqlite的动态类型系统和其他数据库的更为一般的静态类型系统相兼容，但同时，sqlite中的动态类型允许它能做到一些传统刚性类型数据库所不可能做到的事。

1．存储类和数据类型
每个存放在sqlite数据库中（或者由这个数据库引擎操作）的值都有下面中的一个存储类：
l NULL，值是NULL
l INTEGER，值是有符号整形，根据值的大小以1,2,3,4,6或8字节存放
l REAL，值是浮点型值，以8字节IEEE浮点数存放
l TEXT，值是文本字符串，使用数据库编码（UTF-8，UTF-16BE或者UTF-16LE）存放
l BLOB，只是一个数据块，完全按照输入存放（即没有准换）
从上可以看出存储类比数据类型更一般化。比如INTEGER存储类，包括6中不同长度的不同整形数据类型，这在磁盘上造成了差异。但是只要INTEGER值被从磁盘读出进入到内存进行处理，它们被转换成最一般的数据类型（8-字节有符号整形）。
Sqlite v3数据库中的任何列，除了整形主键列，可以用于存储任何一个存储列的值。sql语句中的中所有值，不管它们是嵌入在sql文本中或者是作为参数绑定到一个预编译的sql语句，它们的存储类型都是未定的。在下面描述的情况中，数据库引擎会在查询执行过程中在数值（numeric）存储类型（INTEGER和REAL）和TEXT之间转换值。
1.1布尔类型
Sqlite没有单独的布尔存储类型，它使用INTEGER作为存储类型，0为false，1为true

1.2 Date和Time Datatype
Sqlite没有另外为存储日期和时间设定一个存储类集，内置的sqlite日期和时间函数能够将日期和时间以TEXT，REAL或INTEGER形式存放
l TEXT 作为IS08601字符串（"YYYY-MM-DD HH:MM:SS.SSS"）
l REAL 从格林威治时间11月24日，4174 B.C中午以来的天数
l INTEGER 从 1970-01-01 00:00:00 UTC以来的秒数
程序可以任意选择这几个存储类型去存储日期和时间，并且能够使用内置的日期和时间函数在这些格式间自由转换

2.0 类型近似

为了使sqlite和其他数据库间的兼容性最大化，sqlite支持列上“类型近似”的观点，列的类型近似指的是存储在列上数据的推荐类型。这里必须记住一点，这个类型是被推荐，而不是必须的。任何列仍然能存储任意类型的数据。只是一些列，给予选择的话，将会相比于其他的一些类型优选选择一些存储类型，这个列优先选择的存储类型被称为它的“近似”。
每个sqlite3数据库中的列都被赋予下面类型近似中的一种：
l TEXT
l NUMERIC
l INTEGER
l REAL
l NONE
具有TEXT近似的列可以用NULL，TEXT或者BLOB类型存储数据。如果数值数据被插入到具有TEXT近似的列，在被存储前被转换为文本形式
一个有NUMERIC近似的列可以使用1中的所有5中存储类来存储数据。当文本数据被存放到NUMERIC近似的列中，这个文本的存储类被转换到INTEGER或REAL（根据优先级顺序），如果这个转换是无损的话。对于TEXT和REAL存储类间的转换，如果数据的前15位的被保留的话sqlite就认为这个转换是无损的、可反转的。如果TEXT到INTEGER或REAL的转换不可避免的会造成损失，那么数据将使用TEXT存储类存储。不会企图去转换NULL或BLOB值。
一个字符串可能看起来像浮点数据，有小数点或指数符号，但是只要这个数据可以使用整形存放，NUMERIC近似就会将它转换到整形。比如，字符串 ‘3.0e+5‘存放到一个具有NUMERIC近似的列中，被存为300000，而不是浮点型值300000.0。
具有INTEGER近似的列和具有NUMERIC近似的列表现相同。它们之间的差别仅处于转换描述上。
具有REAL近似的列和具有NUMERIC近似的列一样，除了它将整形数据转换成浮点型形式。
具有NONE近似的列不会优先选择一个存储列，也不会强制将数据从一个存储类转换到另外一个类。

2.1 列近似的决定因素
列的近似由这个列的声明类型所决定，根据下面的顺序的规则：
<1> 如果声明类型包含”INT”字符串，那么这个列被赋予INTEGER近似
<2> 如果这个列的声明类型包含”CHAR”，”CLOB”，或者”TEXT”中的任意一个，那么这个列就有了TEXT近似。注意类型VARCHAR包含了”CHAR”字符串，那么也就被赋予了TEXT近似
<3> 如果列的声明类型中包含了字符串”BLOB”或者没有为其声明类型，这个列被赋予NONE近似
<4> 其他的情况，列被赋予NUMERIC近似
上面规则额顺序对于决定列的近似很重要。一个列的声明类型为”CHARINT”的话同时会匹配规则<1>和<2>，但是第一个规则占有优先级所以这个列的近似将是INTEGER。

2.2 近似名称例子
下面这个表显示了多少来自更传统的SQL操作的普通数据类型名称，使用上一节中的5个规则，被转换到近似类型。这个表只显示了sqlite能够接受的数据类名称的一个子集。注意到跟随类型名的圆括号内的数值参数（如：”VARCHAR(255)”）被sqlite忽略—sqlite不在字符串、BLOBS或者数值的长度上强加任何长度限制（除了一个全局的SQLITE_MAX_LENGTH限制）。
来自create table语句或者强转语句的范例类型名
产生的近似
用于决定近似的规则
INT
INTEGER
TINYINT
SMALLINT
MEDIUMINT
BIGINT
UNSIGNED BIG INT
INT2
INT8
INTEGER
1
CHARACTER(20)
VARCHAR(255)
VARYING CHARACTER(255)
NCHAR(55)
NATIVE CHARACTER(70)
NVARCHAR(100)
TEXT
CLOB
TEXT
2
BLOB
no datatype specified
NONE
3
REAL
DOUBLE
DOUBLE PRECISION
FLOAT
REAL
4
NUMERIC
DECIMAL(10,5)
BOOLEAN
DATE
DATETIME
NUMERIC
5
注意到声明类型为”FLOATING POINT”将被赋予INTEGER近似，而不是REAL近似，因为在”POINT”中的”INT”。声明类型为”STRING”的将被赋予NUMERIC，而不是TEXT（因为上述表中定义的类型中不存在STRING这一类型，它被归于到规则<4>中，属于其他情况）。
（从上面可以看出，sqlite3只是从声明类型字符串中去查找它知道的声明类型，比如”XINT”将被赋予INTEGER近似因为这个字符串里面有”INT”，所以这里并不需要一个单独的正确的声明类型，而是只要声明类型字符串里面包含了sqlite所知道的声明类型即可）

2.3 列近似操作例子
CREATE TABLE t1(
t TEXT, -- text affinity by rule 2
nu NUMERIC, -- numeric affinity by rule 5
i INTEGER, -- integer affinity by rule 1
r REAL, -- real affinity by rule 4
no BLOB -- no affinity by rule 3
); //这里根据声明类型确定了列的类型近似

INSERT INTO t1 VALUES(‘500.0‘, ‘500.0‘, ‘500.0‘, ‘500.0‘, ‘500.0‘);
SELECT typeof(t), typeof(nu), typeof(i), typeof(r), typeof(no) FROM t1;
//结果：text|integer|integer|real|text
DELETE FROM t1;
INSERT INTO t1 VALUES(500.0, 500.0, 500.0, 500.0, 500.0);
SELECT typeof(t), typeof(nu), typeof(i), typeof(r), typeof(no) FROM t1;
//结果：text|integer|integer|real|real
DELETE FROM t1;
INSERT INTO t1 VALUES(500, 500, 500, 500, 500);
SELECT typeof(t), typeof(nu), typeof(i), typeof(r), typeof(no) FROM t1;
//结果：text|integer|integer|real|integer
（这里的第四个值，对应的列是REAL近似的，传输的值整形的，但是根据REAL近似的规则它会将它转换为real型数据）
// 数据块(BLOB)不管是什么列近似都一直存为BLOB类型
DELETE FROM t1;
INSERT INTO t1 VALUES(x‘0500‘, x‘0500‘, x‘0500‘, x‘0500‘, x‘0500‘);
SELECT typeof(t), typeof(nu), typeof(i), typeof(r), typeof(no) FROM t1;
//结果：blob|blob|blob|blob|blob

// NULLs也不受列近似影响
DELETE FROM t1;
INSERT INTO t1 VALUES(NULL,NULL,NULL,NULL,NULL);
SELECT typeof(t), typeof(nu), typeof(i), typeof(r), typeof(no) FROM t1;
//结果：null|null|null|null|null

3.0 比较表达式
Sqlite v3有一系列有用的比较操作符，包括 "=", "==", "<", "<=", ">", ">=", "!=", "<>", "IN", "NOT IN", "BETWEEN", "IS", 和 "IS NOT"

3.1 排序
比较操作的结果基于操作数的存储类型，根据下面的规则：
l 存储类型为NULL的值被认为小于其他任何的值（包括另一个存储类型为NULL的值）
l 一个INTEGER或REAL值小于任何TEXT或BLOB值。当一个INTEGER或REAL值与另外一个INTEGER或REAL值比较的话，就执行数值比较
l TEXT值小于BLOB值。当两个TEXT值比较的时候，就根据序列的比较来决定结果
l 当两个BLOB值比较的时候，使用memcmp来决定结果

3.2 比较操作数的近似（Affinity）
Sqlite可能在执行一个比较之前会在INTEGER，REAL或TEXT之间转换比较值。是否在比较操作之前发生转换基于操作数的近似（类型）。操作数近似（类型）由下面的规则决定：
l 对一个列的简单引用的表达式与这个列有相同的affinity，注意如果X和Y.Z是列名，那么+X和+Y.Z均被认为是用于决定affinity的表达式
l 一个”CAST(expr as type)”形式的表达式与用声明类型为”type”的列有相同的affinity
l 其他的情况，一个表达式为NONE affinity

3.3 在比较前的类型转换
只有在转换是无损、可逆转的时候“应用近似”才意味着将操作数转换到一个特定的存储类。近似在比较之前被应用到比较的操作数，遵循下面的规则（根据先后顺序）:
l 如果一个操作数有INTEGER，REAL或NUMERIC近似，另一个操作数有TEXT或NONE近似，那么NUMERIC近似被应用到另一个操作数
l 如果一个操作数有TEXT近似，另一个有NONE近似，那么TEXT近似被应用到另一个操作数
l 其他的情况，不应用近似，两个操作数按本来的样子比较
表达式"a BETWEEN b AND c"表示两个单独的二值比较” a >= b AND a <= c”，即使在两个比较中不同的近似被应用到’a’。

3.4 比较举例
CREATE TABLE t1(
a TEXT, -- text affinity
b NUMERIC, -- numeric affinity
c BLOB, -- no affinity
d -- no affinity
);

INSERT INTO t1 VALUES(‘500‘, ‘500‘, ‘500‘, 500);
SELECT typeof(a), typeof(b), typeof(c), typeof(d) FROM t1;
text|integer|text|integer

-- Because column "a" has text affinity, numeric values on the
-- right-hand +side of the comparisons are converted to text before
-- the comparison occurs.
SELECT a < 40, a < 60, a < 600 FROM t1;
0|1|1

-- Text affinity is applied to the right-hand operands but since
-- they are already TEXT this is a no-op; no conversions occur.
SELECT a < ‘40‘, a < ‘60‘, a < ‘600‘ FROM t1;
0|1|1

-- Column "b" has numeric affinity and so numeric affinity is applied
-- to the operands on the right. Since the operands are already numeric,
-- the application of affinity is a no-op; no conversions occur. All
-- values are compared numerically.
SELECT b < 40, b < 60, b < 600 FROM t1;
0|0|1

-- Numeric affinity is applied to operands on the right, converting them
-- from text to integers. Then a numeric comparison occurs.
SELECT b < ‘40‘, b < ‘60‘, b < ‘600‘ FROM t1;
0|0|1

-- No affinity conversions occur. Right-hand side values all have
-- storage class INTEGER which are always less than the TEXT values
-- on the left.
SELECT c < 40, c < 60, c < 600 FROM t1;
0|0|0

-- No affinity conversions occur. Values are compared as TEXT.
SELECT c < ‘40‘, c < ‘60‘, c < ‘600‘ FROM t1;
0|1|1

-- No affinity conversions occur. Right-hand side values all have
-- storage class INTEGER which compare numerically with the INTEGER
-- values on the left.
SELECT d < 40, d < 60, d < 600 FROM t1;
0|0|1

-- No affinity conversions occur. INTEGER values on the left are
-- always less than TEXT values on the right.
SELECT d < ‘40‘, d < ‘60‘, d < ‘600‘ FROM t1;
1|1|1

从这里可以看出，假如可以使用3.1中的规则进行比较的话，就不需要进行类型转换，否则的话就要进行类型转换

4.0 操作符
所有的数学操作符(+, -, *, /, %, <<, >>, &, |)，在被执行前，都会将两个操作数都转换为数值存储类型（INTEGER和REAL）。即使这个转换是有损和不可逆的，转换仍然会执行。一个数学操作符上的NULL操作数将产生NULL结果。一个数学操作符上的操作数，如果以任何方式看都不像数字，并且又不为空的话，将被转换为0或0.0。

如何在 Delphi 中静态链接 SQLitesqlite3.c

如何在 Delphi 中静态链接 SQLite

搞了我几个小时,终于成功在 Delphi 中静态链接了 SQLite (v3.5.4),下一步就是研究加密了,呵呵
中间其实遇到很多问题,今天累了,就不说了,改天补上

下载测试工程

下面说说方法

1.当然是下载 SQLite 的源代码啦,呵呵,不过记得要是 all in one 的 amalgamation 版本哦
(修正: amalgamation 并非 all in one, 只是 core code all in one, 源代码里的其他文件也是不能少的!)
2.解压缩,得到3个文件 sqlite3.c sqlite3.h sqlite3ext.h
然后把 sqlite3.c 编译成 obj 以便在 Delphi 中使用
要注意的是不要用 VC 编译,要用 Borland 的 C++ 编译器,比如 Delphi 自带的 bcc
这主要是因为 VC 编译的 obj 是 COFF 格式的,而 Borland 用的 obj 是 OMF 格式
bcc 编译的命令行: bcc32 -pc -RT- -O -w- -6 -I(bcc32)\include -c sqlite3.c
3.光有 sqlite3.obj 还不够哦,呵呵,因为 sqlite3.c 有链接其他的库
这里提供所有要用到的 obj 文件下载
4.现在所有的 obj 文件都准备好了,不过别高兴的太早了,现在只完成了一小部分而已...
要在 Delphi 中使用这些 obj 中的函数,必须要先声明一下
先新建个 Unit, 比如 sqlite3.pas, 然后指定链接的 obj 文件,如
$L ‘OBJ\sqlite3_5_4.obj‘
$L ‘OBJ\streams.obj‘ //duplicato
$L ‘OBJ\_ftoul.obj‘
$L ‘OBJ\files.obj‘
注意顺序哦,呵呵
然后添加函数声明
比如要用到 sqlite3_open 方法,在 sqlite 的源代码里声明是这样的
SQLITE_API int sqlite3_open(
const char *filename, /* Database filename (UTF-8) */
sqlite3 **ppDb /* OUT: SQLite db handle */
);
在 Delphi 中相应的声明为:
function _sqlite3_open(dbname: PChar; var db: Pointer): Integer; cdecl; external;
注意调用方式为 cdecl, 函数名要以 _ 开头,否则会找不到
只是 sqlite3 函数好多哦,呵呵,所以我才说只完成了部分工作嘛...
5.OK,完成了函数声明才算是全部完成
现在可以正式使用了~
常见问题:
1.编译时报 Unsatisfied forward or external declaration
出现这个错误的原因是声明的函数的找不到
一般来说是因为链接的 obj 文件不全,或者顺序不对
还有就是声明的函数名称不对,找不到
2.编译时报 Internal Error: L3576
声明的函数参数不匹配

以上是关于delphi Sqlite的主要内容，如果未能解决你的问题，请参考以下文章

如何安装Delphi5

通过delphi执行DOS??

delphi 2010 编译乱码问题

delphi第三方控件是如何安装到delphi里去的？？？

delphi调用外部程序~~~~~~~~~~~~

Delphi和borland Delphi 一样吗