Поиск сообщества

Уважаемые гуру! Подскажите, что не правильно в коде? И самое главное - как именно использовать данные интерфейсы (Java классы). Имеем модуль (исходники на https://github.com/FMXExpress/android-object-pascal-wrapper/blob/master/android-19/android.hardware.Camera_Size.pas#L32) unit android.hardware.Camera_Size; interface uses AndroidAPI.JNIBridge, Androidapi.JNI.JavaTypes; type JCamera_Size = interface; JCamera_SizeClass = interface(JObjectClass) ['{3CB31FD5-10EB-4FDB-9AF1-768748A6454B}'] function _Getheight : Integer; cdecl; // A: $1 function _Getwidth : Integer; cdecl; // A: $1 function equals(obj : JObject) : boolean; cdecl; // (Ljava/lang/Object;)Z A: $1 function hashCode : Integer; cdecl; // ()I A: $1 function init(w : Integer; h : Integer) : JCamera_Size; cdecl; // (Landroid/hardware/Camera;II)V A: $1 procedure _Setheight(Value : Integer) ; cdecl; // A: $1 procedure _Setwidth(Value : Integer) ; cdecl; // A: $1 property height : Integer read _Getheight write _Setheight; // I A: $1 property width : Integer read _Getwidth write _Setwidth; // I A: $1 end; [JavaSignature('android/hardware/Camera_Size')] JCamera_Size = interface(JObject) ['{0ACB3AB0-AC98-4575-BD3D-1821B1C6B525}'] function _Getheight : Integer; cdecl; // A: $1 function _Getwidth : Integer; cdecl; // A: $1 function equals(obj : JObject) : boolean; cdecl; // (Ljava/lang/Object;)Z A: $1 function hashCode : Integer; cdecl; // ()I A: $1 procedure _Setheight(Value : Integer) ; cdecl; // A: $1 procedure _Setwidth(Value : Integer) ; cdecl; // A: $1 property height : Integer read _Getheight write _Setheight; // I A: $1 property width : Integer read _Getwidth write _Setwidth; // I A: $1 end; TJCamera_Size = class(TJavaGenericImport<JCamera_SizeClass, JCamera_Size>) end; implementation procedure RegisterTypes; begin TRegTypes.RegisterType('android.hardware.Camera_Size', TypeInfo(android.hardware.Camera_Size.JCamera_Size)); end; initialization RegisterTypes; end. При попытке вызова метода имею ошибку var CameraSize : JCamera_Size; ... CameraSize := TJCamera_Size.JavaClass.init(640, 480); ... Может я чего-то не понял или допустил ошибку, но при любой попытке обратиться к TJCamera_Size, ведрофон ругается "Java class JCamera_Size could not be found". P.S. Я в курсе темы http://fire-monkey.ru/topic/397-kak-osuschestvit-sviaz-mezhdu-delphi-interfeisom-i-java-kl/ но именно поэтому и спрашиваю, что вроде бы все так как надо, а не работает...