This is an error in SQLite3.pas. The declaration of sqlite3_bind_text16 is wrong. Should be:


function sqlite3_bind_text16(hStmt: TSqliteStmt; ParamNum: integer;
Text: PChar; numBytes: integer; ptrDestructor: TSQLite3Destructor): integer;
cdecl; external SQLiteDLL name 'sqlite3_bind_text16';


I’ll update the source shortly.

Tim


procedure Test(const F: TFilename);
var
db: TSQLiteDatabase;
sql: string;
begin
db := TSQLiteDatabase.Create(F);
try
sql := 'CREATE TABLE test ( foo TEXT NOT NULL, CHECK (foo = ''bar'') )';
db.ExecSQL(sql);
sql := 'INSERT INTO test (foo) VALUES (@param)';
db.AddParamText('@param', 'bar');
db.ExecSQL(sql);
finally
db.Free;
end;
end;


I would expect that the INSERT command is successful, but I recieve an error message stating a violation of the CHECK constraint. A direct INSERT command without a parameter works as expected:


sql := 'INSERT INTO test (foo) VALUES (''bar'')';


I am using Delphi XE 2 and Sqlite 3.7.10.

Dieter

Olle

http://www.sqlite.org/faq.html#q6

That said, I really have not thought about this issue on the Delphi side.

Tim

Thanks so much for your help.
Your fix solved the problem.

I was making a wrong assumption about reusing the TSqliteTable object.
Now that you’ve pointed it out it seem pretty obvious.

Apologies about missing your email.

Best regards,

Steven Brenner

procedure TmmCAT_SQLiteDB.LoadDB();
var
sl3tbl: TSqliteTable;
sTmp :string;
begin
if fDBsLoaded then
Exit;

fsldb := TSQLiteDatabase.Create(fDBFilePath);
CreateTables;

try
sl3tbl := fsldb.GetTable(‘SELECT * FROM ‘ + cTblCategories);
fNumCatsDefined := sl3tbl.Count;

//tim added to fix leak
sl3tbl.Free;

sl3tbl := fsldb.GetTable(‘SELECT * FROM ‘ + cTblStats + ‘ WHERE SType = “PRIMARY”‘);

fLUPDate := 0;
if sl3tbl.Count = 0 then
Exit;

sl3tbl.MoveFirst;
try
sTmp := sl3tbl.FieldAsString(sl3tbl.FieldIndex['LUPDate']);
fLUPDate := StrToFloat(sTmp);
except
Exit;
end;

finally
sl3tbl.Free;
end;
fDBsLoaded := True;
end;

Appreciate you checking it out.

Frankly I’m stumped.
There are 4 procedures in the demo where I’m creating a TSqliteTable table and I’m freeing the table on each of those 4 areas before leaving the procedure.
It must be in front of my face and I’m just not seeing it.

procedure TmmCAT_SQLiteDB.BackupCats;
var
sl3tbl: TSqliteTable;
…
begin
fsldb.execsql(‘DROP TABLE IF EXISTS ‘ + cTblCatBU);
CreateTable_CATBU;

try
sl3tbl := fsldb.GetTable(‘SELECT * FROM ‘ + cTblCategories);
….
….
finally
sl3tbl.Free;
end;
end;

Sorry to be such a bother.

Whenever you create a TSqliteTable you have to free it. I found one instance in your code where this is not done. Then the project runs without leaks for me (I don’t have Eureka but using ReportMemoryLeaksOnShutdown).

Tim

Best regards,
…Steven