paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 07:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

android lcl example: Advances the networking code, now almost working

Browse Source 
git-svn-id: trunk@37615 -
This commit is contained in:
sekelsenmat 2012-06-11 09:10:16 +00:00
parent 27de8bc684
commit dac7091698
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/androidlcl/android/AndroidManifest.xml
View File

@ -6,6 +6,7 @@
<uses-permission android:name="android.permission.VIBRATE" />
<uses-permission android:name="android.permission.SEND_SMS" />
<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" />
<uses-permission android:name="android.permission.INTERNET" />
<supports-screens android:smallScreens="true" android:normalScreens="true" android:largeScreens="true" android:anyDensity="true" />
<uses-sdk android:minSdkVersion="8" android:targetSdkVersion="8" />
<application android:label="@string/app_name"

10
examples/androidlcl/mainform.pas
View File

@ -384,7 +384,7 @@ begin
javaMethod_HttpResponse_getEntity := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpResponse, 'getEntity', '()Lorg/apache/http/HttpEntity;');
javaMethod_HttpEntity_getContent := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpEntity, 'getContent', '()Ljava/io/InputStream;');
javaMethod_InputStreamReader_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_InputStreamReader, '<init>', '(Ljava/io/InputStream;)V');
javaMethod_BufferedReader_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, '<init>', '(Ljava/io/InputStream;)V');
javaMethod_BufferedReader_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, '<init>', '(Ljava/io/Reader;)V');
javaMethod_BufferedReader_readLine := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, 'readLine', '()Ljava/lang/String;');
javaMethod_BufferedReader_close := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, 'close', '()V');
@ -435,26 +435,30 @@ begin
javaClass_InputStreamReader,
javaMethod_InputStreamReader_new, @lParams[0]);
// javaBufferedReader = new BufferedReader(javaStreamReader);
DebugLn(':LoadHTMLPageViaJNI 6.3');
DebugLn(':LoadHTMLPageViaJNI 6.3 javaStreamReader='+IntToHex(PtrInt(javaStreamReader), 8));
lParams[0].l := javaStreamReader;
DebugLn(':LoadHTMLPageViaJNI 6.4');
javaBufferedReader := javaEnvRef^^.NewObjectA(javaEnvRef,
javaClass_BufferedReader,
javaMethod_BufferedReader_new, @lParams[0]);
DebugLn(':LoadHTMLPageViaJNI 7');
DebugLn(':LoadHTMLPageViaJNI 7 javaBufferedReader='+IntToHex(PtrInt(javaBufferedReader), 8));
// String line = "";
// while ((line = javaBufferedReader.readLine()) != null) {
// }
while True do
begin
DebugLn(':LoadHTMLPageViaJNI 7.1');
javaString := javaEnvRef^^.CallObjectMethod(javaEnvRef, javaBufferedReader,
javaMethod_BufferedReader_readLine);
DebugLn(':LoadHTMLPageViaJNI 7.2');
if javaString = nil then Break;
DebugLn(':LoadHTMLPageViaJNI 7.3');
lNativeString := javaEnvRef^^.GetStringUTFChars(javaEnvRef, JavaString, nil);
DebugLn(lNativeString);
Result := lNativeString;
javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef, JavaString, lNativeString);
DebugLn(':LoadHTMLPageViaJNI 7.4');
end;
DebugLn(':LoadHTMLPageViaJNI 8');