paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 05:17:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl-android example: Improves the networking code

Browse Source 
git-svn-id: trunk@37593 -
This commit is contained in:
sekelsenmat 2012-06-08 14:45:05 +00:00
parent 06b31d577e
commit c6213c990e
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
examples/androidlcl/mainform.pas
View File

@ -376,22 +376,17 @@ begin
// Now all Method IDs
DebugLn(':LoadHTMLPageViaJNI 1');
javaMethod_DefaultHttpClient_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_DefaultHttpClient, '<init>', '()V');
javaMethod_HttpGet_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpGet, '<init>', '()V');
javaMethod_URI_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_URI, '<init>', '(Ljava/lang/String;)V');
javaMethod_HttpGet_setURI := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpGet, 'setURI', '(Ljava/net/URI;)V');
javaMethod_DefaultHttpClient_execute := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_AbstractHttpClient, 'execute',
'(Lorg/apache/http/client/methods/HttpUriRequest;)Lorg/apache/http/HttpResponse;');
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_readLine := javaEnvRef^^.GetMethodID(
javaEnvRef, javaClass_BufferedReader, 'readLine', '()Ljava/lang/String;');
javaMethod_BufferedReader_close := javaEnvRef^^.GetMethodID(
javaEnvRef, javaClass_BufferedReader, 'close', '()V');
javaMethod_HttpGet_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpGet, '<init>', '()V');
javaMethod_HttpGet_setURI := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_HttpGet, 'setURI', '(Ljava/net/URI;)V');
javaMethod_URI_new := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_URI, '<init>', '(Ljava/lang/String;)V');
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_readLine := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, 'readLine', '()Ljava/lang/String;');
javaMethod_BufferedReader_close := javaEnvRef^^.GetMethodID(javaEnvRef, javaClass_BufferedReader, 'close', '()V');
// Create a new DefaultHttpClient instance
// HttpClient javaHttpClient = new DefaultHttpClient();
@ -441,9 +436,6 @@ begin
javaMethod_InputStreamReader_new, @lParams[0]);
// javaBufferedReader = new BufferedReader(javaStreamReader);
DebugLn(':LoadHTMLPageViaJNI 6.3');
javaMethod_BufferedReader_new := javaEnvRef^^.GetMethodID(
javaEnvRef, javaClass_URI, '<init>',
'(Ljava/io/InputStream)V');
lParams[0].l := javaStreamReader;
DebugLn(':LoadHTMLPageViaJNI 6.4');
javaBufferedReader := javaEnvRef^^.NewObjectA(javaEnvRef,