equal
deleted
inserted
replaced
1 unit jni; |
1 unit jni; |
2 {$ifdef fpc} |
2 {$ifdef fpc} |
3 {$mode delphi} |
|
4 {$packrecords c} |
3 {$packrecords c} |
5 {$endif} |
4 {$endif} |
6 |
5 |
7 interface |
6 interface |
8 |
7 |
68 jdoubleArray=jarray; |
67 jdoubleArray=jarray; |
69 jthrowable=jobject; |
68 jthrowable=jobject; |
70 jweak=jobject; |
69 jweak=jobject; |
71 jref=jobject; |
70 jref=jobject; |
72 |
71 |
73 PPointer=^pointer; |
72 //PPointer=^pointer; |
74 Pjobject=^jobject; |
73 Pjobject=^jobject; |
75 Pjclass=^jclass; |
74 Pjclass=^jclass; |
76 Pjstring=^jstring; |
75 Pjstring=^jstring; |
77 Pjarray=^jarray; |
76 Pjarray=^jarray; |
78 PjobjectArray=^jobjectArray; |
77 PjobjectArray=^jobjectArray; |
521 *) |
520 *) |
522 implementation |
521 implementation |
523 |
522 |
524 function JNI_OnLoad(vm:PJavaVM;reserved:pointer):jint;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif} |
523 function JNI_OnLoad(vm:PJavaVM;reserved:pointer):jint;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif} |
525 begin |
524 begin |
|
525 reserved:=reserved; |
526 curVM:=vm; |
526 curVM:=vm; |
527 result:=JNI_VERSION_1_6; |
527 exit(JNI_VERSION_1_6); |
528 end; |
528 end; |
529 |
529 |
530 procedure JNI_OnUnload(vm:PJavaVM;reserved:pointer);{$ifdef mswindows}stdcall;{$else}cdecl;{$endif} |
530 procedure JNI_OnUnload(vm:PJavaVM;reserved:pointer);{$ifdef mswindows}stdcall;{$else}cdecl;{$endif} |
531 begin |
531 begin |
|
532 vm:=vm; |
|
533 reserved:=reserved; |
532 end; |
534 end; |
533 |
535 |
534 end. |
536 end. |
535 |
537 |
536 |
538 |