paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Patch from Zaher Dirkey (modified)

Browse Source 
* Set Sqlite3Lib on WinCE
 * In dynamic lib, sqlite3_version must be aliased as like in static lib to sqlite3_libversion
 * sqlite3_version function must called with the () at last, because sqlite3_version pointer to function

git-svn-id: trunk@8759 -
This commit is contained in:
joost 2007-10-10 15:50:03 +00:00
parent 1f530a3d62
commit 0021d0f27b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/base/sqlite/sqlite3.inc
View File

@ -25,7 +25,7 @@ uses
{$PACKRECORDS C} {$PACKRECORDS C}
const const
{$IFDEF MSWINDOWS} {$IFDEF WINDOWS}
Sqlite3Lib = 'sqlite3.dll'; Sqlite3Lib = 'sqlite3.dll';
{$else} {$else}
Sqlite3Lib = 'libsqlite3.so'; Sqlite3Lib = 'libsqlite3.so';
@ -505,7 +505,7 @@ begin
pointer(sqlite3_collation_needed16) := GetProcedureAddress(LibHandle,'sqlite3_collation_needed16'); pointer(sqlite3_collation_needed16) := GetProcedureAddress(LibHandle,'sqlite3_collation_needed16');
pointer(sqlite3_libversion):=GetProcedureAddress(LibHandle,'sqlite3_libversion'); pointer(sqlite3_libversion):=GetProcedureAddress(LibHandle,'sqlite3_libversion');
//Alias for allowing better code portability (win32 is not working with external variables) //Alias for allowing better code portability (win32 is not working with external variables)
pointer(sqlite3_version):=GetProcedureAddress(LibHandle,'sqlite3_version'); pointer(sqlite3_version):=GetProcedureAddress(LibHandle,'sqlite3_libversion');
// Not published functions // Not published functions
pointer(sqlite3_libversion_number):=GetProcedureAddress(LibHandle,'sqlite3_libversion_number'); pointer(sqlite3_libversion_number):=GetProcedureAddress(LibHandle,'sqlite3_libversion_number');

2
packages/fcl-db/src/sqlite/sqlite3ds.pas
View File

@ -304,7 +304,7 @@ end;
function TSqlite3Dataset.GetSqliteVersion: String; function TSqlite3Dataset.GetSqliteVersion: String;
begin begin
Result:=StrPas(sqlite3_version); Result:=StrPas(sqlite3_version());
end; end;
function TSqlite3Dataset.QuickQuery(const ASql:String;const AStrList: TStrings;FillObjects:Boolean):String; function TSqlite3Dataset.QuickQuery(const ASql:String;const AStrList: TStrings;FillObjects:Boolean):String;