paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Android-Sqlite: Reading string data via data-aware controls fully works now

Browse Source 
git-svn-id: trunk@39508 -
This commit is contained in:
sekelsenmat 2012-12-11 09:33:25 +00:00
parent e4b2f12b25
commit 3c7d1f7112
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
examples/androidlcl/sqlitejniandroid.pas
View File

@ -380,15 +380,21 @@ begin
GetMem(TempItem^.Row, FRowBufferSize);
for Counter := 0 to ColumnCount - 1 do
begin
DebugLn(Format('[TSqliteJNIDataset.BuildLinkedList] reading row # %d col # %d', [FRecordCount, Counter]));
// TempItem^.Row[Counter] := StrNew(sqlite3_column_text(vm, Counter));
// public abstract String getString (int columnIndex)
lParams[0].i := Counter;
lJavaString := javaEnvRef^^.CallObjectMethodA(javaEnvRef, dbCursor, FDBCursor_getString, @lParams[0]);
//DebugLn(Format('[TSqliteJNIDataset.BuildLinkedList] reading row # %d', [FRecordCount]));
lNativeString := javaEnvRef^^.GetStringUTFChars(javaEnvRef, lJavaString, nil);
TempItem^.Row[Counter] := StrNew(lNativeString);
javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef, lJavaString, lNativeString);
javaEnvRef^^.DeleteLocalRef(javaEnvRef, lJavaString);
//DebugLn(Format('[TSqliteJNIDataset.BuildLinkedList] lJavaString=%x', [PtrInt(lJavaString)]));
if lJavaString <> nil then
begin
lNativeString := javaEnvRef^^.GetStringUTFChars(javaEnvRef, lJavaString, nil);
TempItem^.Row[Counter] := StrNew(lNativeString);
javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef, lJavaString, lNativeString);
javaEnvRef^^.DeleteLocalRef(javaEnvRef, lJavaString);
end
else
TempItem^.Row[Counter] := StrNew('');
end;
//initialize calculated fields with nil
for Counter := ColumnCount to FRowCount - 1 do
@ -611,6 +617,7 @@ begin
RealInternalGetHandle();
// Split the SQL and execute each part
// because SqliteDatabase.execSQL can execute only 1 single SQL statement, not multiple ones
lSQLStrings := SplitSQLStatements(StrPas(ASQL));
for i := 0 to lSQLStrings.Count-1 do