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

192
Source/SQLite3Utils.pas
View File

@@ -1,96 +1,96 @@
{
SQLite for Delphi and FreePascal/Lazarus
Copyright 2010 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/
SQLite is a software library that implements a self-contained, serverless,
zero-configuration, transactional SQL database engine. The source code for
SQLite is in the public domain and is thus free for use for any purpose,
commercial or private. SQLite is the most widely deployed SQL database engine
in the world.
This package contains complete SQLite3 API translation for Delphi and
FreePascal, as well as a simple Unicode-enabled object wrapper to simplify
the use of this database engine.
The contents of this file are used with permission, subject to the Mozilla
Public License Version 1.1 (the "License"); you may not use this file except
in compliance with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
the specific language governing rights and limitations under the License.
}
{
Miscellaneous utility functions
}
unit SQLite3Utils;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$WARN SYMBOL_DEPRECATED OFF}
interface
function StrToUTF8(const S: WideString): AnsiString;
function UTF8ToStr(const S: PAnsiChar; const Len: Integer = -1): WideString;
function QuotedStr(const S: WideString): WideString;
function FloatToSQLStr(Value: Extended): WideString;
implementation
uses SysUtils;
function StrToUTF8(const S: WideString): AnsiString;
begin
Result := UTF8Encode(S);
end;
function UTF8ToStr(const S: PAnsiChar; const Len: Integer): WideString;
var
UTF8Str: AnsiString;
begin
if Len < 0 then
begin
Result := UTF8Decode(S);
end
else if Len > 0 then
begin
SetLength(UTF8Str, Len);
Move(S^, UTF8Str[1], Len);
Result := UTF8Decode(UTF8Str);
end
else Result := '';
end;
function QuotedStr(const S: WideString): WideString;
const
Quote = #39;
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 1 do
if Result[I] = Quote then Insert(Quote, Result, I);
Result := Quote + Result + Quote;
end;
function FloatToSQLStr(Value: Extended): WideString;
var
SaveSeparator: Char;
begin
SaveSeparator := DecimalSeparator;
DecimalSeparator := '.';
try
Result := FloatToStr(Value);
finally
DecimalSeparator := SaveSeparator;
end;
end;
end.
{
SQLite for Delphi and FreePascal/Lazarus
Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/
SQLite is a software library that implements a self-contained, serverless,
zero-configuration, transactional SQL database engine. The source code for
SQLite is in the public domain and is thus free for use for any purpose,
commercial or private. SQLite is the most widely deployed SQL database engine
in the world.
This package contains complete SQLite3 API translation for Delphi and
FreePascal, as well as a simple Unicode-enabled object wrapper to simplify
the use of this database engine.
The contents of this file are used with permission, subject to the Mozilla
Public License Version 1.1 (the "License"); you may not use this file except
in compliance with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
the specific language governing rights and limitations under the License.
}
{
Miscellaneous utility functions
}
unit SQLite3Utils;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$WARN SYMBOL_DEPRECATED OFF}
interface
function StrToUTF8(const S: WideString): AnsiString;
function UTF8ToStr(const S: PAnsiChar; const Len: Integer = -1): WideString;
function QuotedStr(const S: WideString): WideString;
function FloatToSQLStr(Value: Extended): WideString;
implementation
uses SysUtils;
function StrToUTF8(const S: WideString): AnsiString;
begin
Result := UTF8Encode(S);
end;
function UTF8ToStr(const S: PAnsiChar; const Len: Integer): WideString;
var
UTF8Str: AnsiString;
begin
if Len < 0 then
begin
Result := UTF8Decode(S);
end
else if Len > 0 then
begin
SetLength(UTF8Str, Len);
Move(S^, UTF8Str[1], Len);
Result := UTF8Decode(UTF8Str);
end
else Result := '';
end;
function QuotedStr(const S: WideString): WideString;
const
Quote = #39;
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 1 do
if Result[I] = Quote then Insert(Quote, Result, I);
Result := Quote + Result + Quote;
end;
function FloatToSQLStr(Value: Extended): WideString;
var
SaveSeparator: Char;
begin
SaveSeparator := DecimalSeparator;
DecimalSeparator := '.';
try
Result := FloatToStr(Value);
finally
DecimalSeparator := SaveSeparator;
end;
end;
end.