paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 19:38:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

android lcl example: Finally the html download is working

Browse Source 
git-svn-id: trunk@37616 -
This commit is contained in:
sekelsenmat 2012-06-11 11:44:34 +00:00
parent dac7091698
commit b00191ac66
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/androidlcl/mainform.pas
View File

@ -430,7 +430,7 @@ begin
javaMethod_HttpEntity_getContent); javaMethod_HttpEntity_getContent);
DebugLn(':LoadHTMLPageViaJNI 6.2'); DebugLn(':LoadHTMLPageViaJNI 6.2');
// javaStreamReader = new InputStreamReader(javaContent) // javaStreamReader = new InputStreamReader(javaContent)
lParams[0].l := javaRequest; lParams[0].l := javaContent;
javaStreamReader := javaEnvRef^^.NewObjectA(javaEnvRef, javaStreamReader := javaEnvRef^^.NewObjectA(javaEnvRef,
javaClass_InputStreamReader, javaClass_InputStreamReader,
javaMethod_InputStreamReader_new, @lParams[0]); javaMethod_InputStreamReader_new, @lParams[0]);
@ -442,26 +442,23 @@ begin
javaClass_BufferedReader, javaClass_BufferedReader,
javaMethod_BufferedReader_new, @lParams[0]); javaMethod_BufferedReader_new, @lParams[0]);
DebugLn(':LoadHTMLPageViaJNI 7 javaBufferedReader='+IntToHex(PtrInt(javaBufferedReader), 8));
// String line = ""; // String line = "";
// while ((line = javaBufferedReader.readLine()) != null) { // while ((line = javaBufferedReader.readLine()) != null)
// }
while True do while True do
begin begin
DebugLn(':LoadHTMLPageViaJNI 7.1'); javaString := javaEnvRef^^.CallObjectMethod(javaEnvRef,
javaString := javaEnvRef^^.CallObjectMethod(javaEnvRef, javaBufferedReader, javaBufferedReader,
javaMethod_BufferedReader_readLine); javaMethod_BufferedReader_readLine);
DebugLn(':LoadHTMLPageViaJNI 7.2');
if javaString = nil then Break; if javaString = nil then Break;
DebugLn(':LoadHTMLPageViaJNI 7.3'); lNativeString := javaEnvRef^^.GetStringUTFChars(
lNativeString := javaEnvRef^^.GetStringUTFChars(javaEnvRef, JavaString, nil); javaEnvRef, JavaString, nil);
DebugLn(lNativeString); DebugLn(lNativeString);
Result := lNativeString; Result := lNativeString;
javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef, JavaString, lNativeString); javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef,
DebugLn(':LoadHTMLPageViaJNI 7.4'); JavaString, lNativeString);
javaEnvRef^^.DeleteLocalRef(javaEnvRef, javaString);
end; end;
DebugLn(':LoadHTMLPageViaJNI 8');
// javaBufferedReader.close(); // javaBufferedReader.close();
javaEnvRef^^.CallVoidMethod(javaEnvRef, javaBufferedReader, javaEnvRef^^.CallVoidMethod(javaEnvRef, javaBufferedReader,
javaMethod_BufferedReader_close); javaMethod_BufferedReader_close);