plashenkov/SQLite3-Delphi-FPC
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

SQLITE_STATIC -> SQLITE_TRANSIENT in BindBlob()

Browse Source
This commit is contained in:
Yuri Plashenkov
2012-10-08 01:46:19 +07:00
parent 8caeb0d233
commit 09d8674805
3 changed files with 1453 additions and 1453 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Source/SQLite3.pas
View File

@@ -1,7 +1,7 @@
{ {
SQLite for Delphi and FreePascal/Lazarus SQLite for Delphi and FreePascal/Lazarus
Copyright 2010 Yury Plashenkov <plashenkov@gmail.com> Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/ http://www.indasoftware.com/sqlite/
SQLite is a software library that implements a self-contained, serverless, SQLite is a software library that implements a self-contained, serverless,

2
Source/SQLite3Utils.pas
View File

@@ -1,7 +1,7 @@
{ {
SQLite for Delphi and FreePascal/Lazarus SQLite for Delphi and FreePascal/Lazarus
Copyright 2010 Yury Plashenkov <plashenkov@gmail.com> Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/ http://www.indasoftware.com/sqlite/
SQLite is a software library that implements a self-contained, serverless, SQLite is a software library that implements a self-contained, serverless,

4
Source/SQLite3Wrap.pas
View File

@@ -1,7 +1,7 @@
{ {
SQLite for Delphi and FreePascal/Lazarus SQLite for Delphi and FreePascal/Lazarus
Copyright 2010 Yury Plashenkov <plashenkov@gmail.com> Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/ http://www.indasoftware.com/sqlite/
SQLite is a software library that implements a self-contained, serverless, SQLite is a software library that implements a self-contained, serverless,
@@ -263,7 +263,7 @@ end;
procedure TSQLite3Statement.BindBlob(const ParamIndex: Integer; Data: Pointer; procedure TSQLite3Statement.BindBlob(const ParamIndex: Integer; Data: Pointer;
const Size: Integer); const Size: Integer);
begin begin
FOwnerDatabase.Check(sqlite3_bind_blob(FHandle, ParamIndex, Data, Size, SQLITE_STATIC)); FOwnerDatabase.Check(sqlite3_bind_blob(FHandle, ParamIndex, Data, Size, SQLITE_TRANSIENT));
end; end;
procedure TSQLite3Statement.BindDouble(const ParamIndex: Integer; procedure TSQLite3Statement.BindDouble(const ParamIndex: Integer;