pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Now the JNI example actually works

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2167 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-11-27 09:05:43 +00:00
parent b018630e7f
commit d2dccb679c
2 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
bindings/android-ndk/examples/jnitest/jni/nativetest.pas
View File

@ -10,7 +10,7 @@ uses
const curClass:JClass=nil;
nativeCodeLoaded:JfieldID=nil;
function Java_com_bero_nativetest_Main_stringFromJNI(env:PJNIEnv;this:jobject):jstring; cdecl;
function Java_com_pascal_jnitest_AndroidJNITest_stringFromJNI(env:PJNIEnv;this:jobject):jstring; cdecl;
var x:single;
begin
__android_log_write(ANDROID_LOG_INFO,'nativetest','Java_com_bero_nativetest_Main_stringFromJNI entered');
@ -20,16 +20,24 @@ begin
__android_log_write(ANDROID_LOG_INFO,'nativetest','Java_com_bero_nativetest_Main_stringFromJNI exited');
end;
const NativeMethods:array[0..0] of JNINativeMethod=
function Java_com_pascal_jnitest_AndroidJNITest_intFromJNI(env:PJNIEnv;this:jobject): jint; cdecl;
begin
Result := 8;
end;
const NativeMethods:array[0..1] of JNINativeMethod=
((name:'stringFromJNI';
signature:'()Ljava/lang/String;';
fnPtr:@Java_com_bero_nativetest_Main_stringFromJNI;));
fnPtr:@Java_com_pascal_jnitest_AndroidJNITest_stringFromJNI;),
(name:'intFromJNI';
signature:'()I';
fnPtr:@Java_com_pascal_jnitest_AndroidJNITest_intFromJNI;));
function JNI_OnLoad(vm:PJavaVM;reserved:pointer):jint; cdecl;
begin
curVM:=vm;
__android_log_write(ANDROID_LOG_INFO,'nativetest','JNI_OnLoad called');
__android_log_write(ANDROID_LOG_INFO,'nativetest',PChar(Format('CurVM=%x', [PtrInt(CurVM)])));
(* __android_log_write(ANDROID_LOG_INFO,'nativetest',PChar(Format('CurVM=%x', [PtrInt(CurVM)])));
if curVM^.GetEnv(curVM,@curEnv,JNI_VERSION_1_6)<>JNI_OK then begin
__android_log_write(ANDROID_LOG_FATAL,'nativetest','curVM^.GetEnv failed');
result:=JNI_ERR;
@ -54,7 +62,7 @@ begin
__android_log_write(ANDROID_LOG_FATAL,'nativetest','curEnv^.GetFieldID failed');
result:=JNI_ERR;
exit;
end;
end;*)
result:=JNI_VERSION_1_6;
end;
@ -63,9 +71,11 @@ procedure JNI_OnUnload(vm:PJavaVM;reserved:pointer); cdecl;
begin
end;
exports JNI_OnLoad name 'JNI_OnLoad',
JNI_OnUnload name 'JNI_OnUnload',
Java_com_bero_nativetest_Main_stringFromJNI name 'Java_com_bero_nativetest_Main_stringFromJNI';
exports
JNI_OnLoad name 'JNI_OnLoad',
JNI_OnUnload name 'JNI_OnUnload',
Java_com_pascal_jnitest_AndroidJNITest_stringFromJNI name 'Java_com_pascal_jnitest_AndroidJNITest_stringFromJNI',
Java_com_pascal_jnitest_AndroidJNITest_intFromJNI name 'Java_com_pascal_jnitest_AndroidJNITest_intFromJNI';
begin
end.

3
bindings/android-ndk/examples/jnitest/src/com/pascal/jnitest/AndroidJNITest.java
View File

@ -12,11 +12,12 @@ public class AndroidJNITest extends Activity {
super.onCreate(savedInstanceState);
TextView tv = new TextView(this);
tv.setText( stringFromJNI() );
tv.setText( Integer.toString(intFromJNI()) );
setContentView(tv);
}
public native String stringFromJNI();
public native int intFromJNI();
public long nativeCodeLoaded=0;