paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pas2jni: Added GetMemoryAsArray() and SetMemoryFromArray() utility functions.

Browse Source 
git-svn-id: trunk@41314 -
This commit is contained in:
yury 2019-02-13 15:46:47 +00:00
parent 818354b58f
commit 48c44f8c17
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
utils/pas2jni/writer.pas
View File

@ -1639,10 +1639,16 @@ begin
Fjs.WriteLn('}');
end;
// Support functions
// Public support functions
Fjs.WriteLn('public native static long AllocMemory(int Size);');
AddNativeMethod(u, '_AllocMemory', 'AllocMemory', '(I)J');
Fjs.WriteLn('public native static byte[] GetMemoryAsArray(long SrcBuf, int BufSize);');
AddNativeMethod(u, '_GetMemoryAsArray', 'GetMemoryAsArray', '(JI)[B');
Fjs.WriteLn('public native static void SetMemoryFromArray(long DstBuf, byte[] SrcArray);');
AddNativeMethod(u, '_SetMemoryFromArray', 'SetMemoryFromArray', '(J[B)V');
// Base object
Fjs.WriteLn;
Fjs.WriteLn('public static class PascalObject {');
@ -2981,6 +2987,8 @@ begin
Fps.WriteLn('raise Exception.CreateFmt(''An array with only single element must be passed as parameter "%s".'', [VarName]);', 1);
Fps.WriteLn('end;');
// Public support functions
Fps.WriteLn;
Fps.WriteLn('function _AllocMemory(env: PJNIEnv; jobj: jobject; size: jint): jlong;' + JniCaliing);
Fps.WriteLn('var p: pointer;');
@ -2990,6 +2998,19 @@ begin
Fps.WriteLn('Result:=ptruint(p);', 1);
Fps.WriteLn('end;');
Fps.WriteLn;
Fps.WriteLn('function _GetMemoryAsArray(env: PJNIEnv; jobj: jobject; SrcBuf: jlong; BufSize: jint): jarray;' + JniCaliing);
Fps.WriteLn('begin');
Fps.WriteLn('Result:=env^^.NewByteArray(env, BufSize);', 1);
Fps.WriteLn('env^^.SetByteArrayRegion(env, Result, 0, BufSize, pointer(ptruint(SrcBuf)));', 1);
Fps.WriteLn('end;');
Fps.WriteLn;
Fps.WriteLn('procedure _SetMemoryFromArray(env: PJNIEnv; jobj: jobject; DstBuf: jlong; SrcArray: jarray);' + JniCaliing);
Fps.WriteLn('begin');
Fps.WriteLn('env^^.GetByteArrayRegion(env, SrcArray, 0, env^^.GetArrayLength(env, SrcArray), pointer(ptruint(DstBuf)));', 1);
Fps.WriteLn('end;');
// Set support
Fps.WriteLn;
Fps.WriteLn('function _GetIntObjValue(env: PJNIEnv; jobj: jobject; const ci: _TJavaClassInfo): longint;');