Архив за 17 марта 2017

Использование JNI в Delphi

Приветствую всех. Эта статья рассчитана для Новичков, которые только приступили к изучению JNI для работы с ним в среде Delphi. И так в этой статье мы поговорим как именно использовать JNI в Delphi. И так давайте же приступим.

Для начала вам потребуется компонент JNI. Вы можете его скачать ТУТ. Теперь мы готовы приступить к практической части. Я все буду делать на RAD Studio 10.1 Berlin

Пример №1:
Получаем и изменяем данные типа JInt, JBoolean.

Допустим что у нас есть Класс в котором есть переменная I типа JInt, следовательно нам нужно ее изменить.

public int I = 10;

И есть некий обработчик который использует эту переменную. К примеру Событие нажиния TButton.

 private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                         
       System.out.println(i);
    }   

При нажатии на Кнопку в консоль выведется сообщение «10» т.к. I = 10; Чтобы нам изменить I на любое другое число, делаем следующее:

var
  JNIEnv: PJNIEnv;
  JC: JClass;
  JF: JFieldID;
 Begin
  JC:= jnienv^.FindClass(JNIEnv, 'example/Main');
  JF:= jnienv^.GetFieldID(JNIEnv, JC, 'I', 'I');
  jnienv^.SetIntField(JNIEnv, JC, JF, 5);
 end;

Что же тут происходит. Для начала мы получаем JavaClass функцией FindClass. 'example/Main' это значит что класс находится внутри JVM по пути exampleMain.class.

Далее мы получаем JField в данном случае это I типа JInt. GetFieldID мы указываем Класс, Имя и Сигнатуру.

И наконец мы передаем свое значение I, в моем случаем оно равно 5. SetIntField мы указываем Класс, JField и значение.

То же самое будет для JBoolean:

 public boolean Stat = false;

 var
  JNIEnv: PJNIEnv;
  JC: JClass;
  JF: JFieldID;
 Begin
  JC:= jnienv^.FindClass(JNIEnv, 'example/Main');
  JF:= jnienv^.GetFieldID(JNIEnv, JC, 'Stat', 'Z');
  jnienv^.SetByteField(JNIEnv, JC, JF, 1);
 end;

Изначально Stat был равен false т.е. 0, а мы его меняем на true т.е. 1;
Читать полностью »