Differences
This shows you the differences between two versions of the page.
|
en:sqlitewrap [2009/06/16 13:35] geby |
en:sqlitewrap [2012/08/21 16:21] (current) geby |
||
|---|---|---|---|
| Line 3: | Line 3: | ||
| 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. | 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. | ||
| + | |||
| + | ===== News ===== | ||
| + | * **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 | ||
| ===== Features ===== | ===== Features ===== | ||
| + | * 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 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. | * It is not integrated into Delphi database model. | ||
| Line 19: | Line 26: | ||
| ===== Download ===== | ===== Download ===== | ||
| + | * {{:file:sqlitewrap-2.1.2.zip|}} | ||
| + | * {{:file:sqlitewrap-2.1.0.zip|}} | ||
| + | * {{:file:sqlitewrap-2.0.0.zip|}} | ||
| + | * {{:file:sqlitewrap-1.0.0.zip|}} | ||
| + | |||
| + | ===== Contact ===== | ||
| + | If you have a questions, contact me at [[gebauerl@ararat.cz]]. Thanks! | ||
| + | |||
| + | ===== Samples ===== | ||
| + | <code delphi> | ||
| + | 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; | ||
| + | </code> | ||
