Delphi-DISQLite3 -嵌入式数据库引擎-自包含、零配置、无需外部 DLL 的特点

icy 2025-07-31 605 抢沙发

默认

摘要： DISQLite3 是一款专为 Delphi（Embarcadero / CodeGear / Borland）设计的嵌入式 SQLite3 数据库引擎，具有自包含、零配置、无...

SQLite 3.54.1 的修复内容

错误修复：

修复了 3.54.0 版本中可能存在的回归问题
修正了特定边缘情况下的内存管理问题
改进了查询优化器的稳定性

稳定性增强：

提高了复杂查询执行的可靠性
修正了特定平台上的编译问题

DISQLite3 v5.53.0 发布于 2025 年 9 月 18 日，主要更新内容如下：

- 支持 Delphi 13 Florence（Win32 与 Win64 平台）。
- 将 DIUtils.pas 中的 Unicode 函数更新至 Unicode 17.0.0 标准

DISQLite3 是一款专为 Delphi（Embarcadero / CodeGear / Borland）设计的 嵌入式 SQLite3 数据库引擎，具有 自包含、零配置、无需外部 DLL 的特点。它基于 SQLite3 核心，但针对 Delphi 进行了优化，提供更高效的性能和更便捷的集成方式。

DISQLite3 的主要特点

嵌入式 & 零配置

无需安装数据库服务器，所有数据存储在 单个磁盘文件 中，便于部署和管理。
编译后直接嵌入到应用程序，无需额外依赖 DLL 文件。

高性能 & 低内存占用

相比标准 SQLite3，某些操作的性能提升 50%，特别适合 Delphi 应用。
编译后仅增加约 300 KB 的代码空间，适合小型应用。

完整 SQL-92 支持

支持标准 SQL 语法，包括 SELECT、JOIN、TRANSACTION、VIEW、TRIGGER 等。
提供 ACID 事务，确保数据一致性。

加密 & 安全

支持 AES 数据库加密，使用 SHA256 密钥生成器保护数据安全。
可防止未授权访问，适用于敏感数据存储。

全文搜索（FTS）

内置 全文索引，支持 15 种语言 的词干分析，适合文本搜索应用。

跨平台兼容

数据库文件可在 Windows、Linux、macOS 上共享，兼容标准 SQLite3 格式。

Delphi 优化

提供 TDataSet 支持，方便与 Delphi 的数据感知控件（如 DBGrid）集成。
支持 TStream 读写 BLOB，便于处理二进制数据。

示例代码：

uses
  SQLite3, SQLite3Components; // 具体单元名可能因版本略有不同

procedure Demo;
var
  DB: TSQLite3Database;
  Query: TSQLite3Query;
begin
  // 1. 创建并打开数据库（如果不存在则创建）
  DB := TSQLite3Database.Create(nil);
  try
    DB.Open('C:\MyData.db'); // 无需检查 .dll 是否存在

    // 2. 执行非查询 SQL（创建表、插入等）
    DB.ExecSQL('CREATE TABLE IF NOT EXISTS Users (ID INTEGER PRIMARY KEY, Name TEXT, Age INTEGER)');
    DB.ExecSQL('INSERT INTO Users (Name, Age) VALUES (''Alice'', 30)');

    // 3. 执行查询
    Query := TSQLite3Query.Create(nil);
    try
      Query.Database := DB;
      Query.SQL.Text := 'SELECT * FROM Users WHERE Age > :MinAge';
      Query.Params.ParamByName('MinAge').AsInteger := 20;
      Query.Open;

      while not Query.EOF do
      begin
        ShowMessage(Query.FieldByName('Name').AsString);
        Query.Next;
      end;
      Query.Close;
    finally
      Query.Free;
    end;

    DB.Close;
  finally
    DB.Free;
  end;
end;


// 版本验证
uses SQLite3;

procedure CheckVersion;
var
  DB: TSQLite3Database;
begin
  DB := TSQLite3Database.Create(nil);
  try
    ShowMessage('SQLite Version: ' + DB.SQLiteVersion);
    // 应该显示 "3.54.1"
  finally
    DB.Free;
  end;
end;

DISQLite3 版本对比

DISQLite3 提供 个人版（免费） 和 专业版（商业授权），主要区别如下：

功能	Personal 版	Pro 版
Windows 64位支持	❌	✔
SQL-92 兼容	✔	✔
全文搜索（FTS）	✔	✔
AES 加密	✔	✔
自定义 SQL 函数	❌	✔
触发器 & 视图	❌	✔
商业用途授权	❌	✔