Delphi SQLite Wrapper

This is very simple Sqlite 3 wrapper for Delphi and FreePascal. It is based on Tim Anderson's Simplewrapper. I was using his wrapper for long time, include my contributions. However it lost simplicity later and contains lot of duplicated features.

I start with code cleaning and create my own wrapper code as separate project. It have similar interface is Tim's wrapper, but is is very close to Sqlite API.

• 2012-08-21 Bug fixes
• 2011-02-22 Improved BLOB support
• 2010-07-02 Updated version with native unicode support on Delphi 2009+
• 2009-06-16 Released first version

• Require Sqlite3.dll at least version 3.7.1.
• It is not component, just units. Include this wraper to your project uses and create classes for handling of database.
• It is not integrated into Delphi database model.
• Very lightweight code.
• You can use any SQL command and walk through result set.
• You can use prepared queries.
• You can use parametrized queries.
• You can use transactions, include savepoints!
• You can define your own UDF (User defined SQL functions).
• You can define your own collates.

It is freeware. You can use it without any charge. Please, respect copyright and license notices inside source files.

• sqlitewrap-2.1.2.zip (43.09 KiB, 5271 downloads)
• sqlitewrap-2.1.0.zip (42.24 KiB, 3374 downloads)
• sqlitewrap-2.0.0.zip (41.32 KiB, 702 downloads)
• sqlitewrap-1.0.0.zip (33.33 KiB, 2427 downloads)

If you have a questions, contact me at gebauerl@ararat.cz. Thanks!

procedure sample;
var
  database: TSqliteDatabase;
  tab: TSqliteTable;
  s: string;
begin
  database := TSqliteDatabase.Create('somedatabase.db3');
  try
    database.AddParamInt(':key', 123456);
    tab := database.GetTable('SELECT * FROM some_table WHERE ROWID=:key');
    try
      while not tab.EOF do
      begin
        s := tab.FieldAsString(tab.FieldIndex['ROWID']);
        //do something with 'S' variable...
        //...
        //...then go to next row.
        tab.next;
      end;
    finally
      tab.free;
    end;
  finally
    database.free;
  end;
end;