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

SQLITE_STATIC -> SQLITE_TRANSIENT in BindText()

Browse Source
This commit is contained in:
Yuri Plashenkov
2012-10-04 23:34:27 +07:00
parent 2082534bcd
commit 9455f7bea5
3 changed files with 885 additions and 877 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Source/SQLite3.pas
View File

@@ -30,6 +30,10 @@
} }
unit SQLite3; unit SQLite3;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{ $DEFINE SQLITE_DEPRECATED} // Enable deprecated functions { $DEFINE SQLITE_DEPRECATED} // Enable deprecated functions
{ $DEFINE SQLITE_EXPERIMENTAL} // Enable experimental functions { $DEFINE SQLITE_EXPERIMENTAL} // Enable experimental functions
@@ -804,7 +808,7 @@ const
SQLITE_TESTCTRL_RESERVE = 14; SQLITE_TESTCTRL_RESERVE = 14;
SQLITE_TESTCTRL_OPTIMIZATIONS = 15; SQLITE_TESTCTRL_OPTIMIZATIONS = 15;
SQLITE_TESTCTRL_ISKEYWORD = 16; SQLITE_TESTCTRL_ISKEYWORD = 16;
SQLITE_TESTCTRL_LAST = 16;
{$IFDEF SQLITE_EXPERIMENTAL} {$IFDEF SQLITE_EXPERIMENTAL}
function sqlite3_status(op: Integer; var pCurrent: Integer; var pHighwater: Integer; resetFlag: Integer): Integer; cdecl; external sqlite3_lib; function sqlite3_status(op: Integer; var pCurrent: Integer; var pHighwater: Integer; resetFlag: Integer): Integer; cdecl; external sqlite3_lib;

4
Source/SQLite3Utils.pas
View File

@@ -29,6 +29,10 @@
} }
unit SQLite3Utils; unit SQLite3Utils;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$WARN SYMBOL_DEPRECATED OFF} {$WARN SYMBOL_DEPRECATED OFF}
interface interface

4
Source/SQLite3Wrap.pas
View File

@@ -99,7 +99,7 @@ type
procedure BindNull(const ParamName: WideString); overload; procedure BindNull(const ParamName: WideString); overload;
procedure BindBlob(const ParamName: WideString; Data: Pointer; const Size: Integer); overload; procedure BindBlob(const ParamName: WideString; Data: Pointer; const Size: Integer); overload;
procedure BindZeroBlob(const ParamName: WideString; const Size: Integer); overload; procedure BindZeroBlob(const ParamName: WideString; const Size: Integer); overload;
procedure ClearBindings; procedure ClearBindings;
function Step: Integer; function Step: Integer;
@@ -295,7 +295,7 @@ var
begin begin
S := StrToUTF8(Value); S := StrToUTF8(Value);
FOwnerDatabase.Check( FOwnerDatabase.Check(
sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_STATIC) sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_TRANSIENT)
); );
end; end;