Delphi-PRAXiS - JAR File einbinden

Hallo,

ich hab ein 10" Android 11 Tablet was man an die Wand hängen kann mit einer Beleuchtung im Rahmen.
Zum Tablet gibt es ein Sample in Java wie die Beleuchtung zu steuern ist.
Da auch ein .jar File dabei war hab ich den in eine Bridge Datei übersetzen lassen (Java ist echt nicht meine Welt..)

Jetzt habe ich eine Bridge Datei mit Interface Deklaration.
Die Kommunikation findet wohl über "serialport" statt ("/dev/ttyS8", 9600 Baud).

In meinem Verständnis hätte ich jetzt ein Objekt erzeugt von "JLightController".
Es gibt aber irgendwie kein "Create". Da hapert es schon..
Geschweige denn ein "openDevice()" aufzurufen. Auch da stellt sich mir die Frage was ein "JContext" ist.
Google hat mich leider auch nicht weiter gebracht...

Hat jemand einen Tipp wie es weiter geht?.. oder ein Sample?
Stehe da gerade komplett auf dem Schlauch...

Herzlichen Dank,
Ralf

anbei unit der LightController.pas
insgesamt sind das 14 units mit "Java2Pas 1.6" erzeugt. Plattform Rad Studio 11.2
(kann auch gerne das komplette Java Sample einstellen)

Code:

			//

// Generated by JavaToPas v1.6 20230211 - 221813

////////////////////////////////////////////////////////////////////////////////

unit com.ys.serialport.LightController;

interface

uses

  AndroidAPI.JNIBridge,

  Androidapi.JNI.JavaTypes,

  com.ys.serialport.SerialPort,

  Androidapi.JNI.GraphicsContentViewText,

  com.ys.serialport.LightController_Led,

  com.ys.serialport.LightController_LightState;

type

  JLightController = interface;

  JLightControllerClass = interface(JObjectClass)

    ['{9D8AD17E-A9A7-41BF-A663-EE15D0B5997C}']

    function _GetSTATE_HELP : JString; cdecl;                                   //  A: $0019

    function _GetSTATE_VIEW : JString; cdecl;                                   //  A: $0019

    function getInstance : JLightController; cdecl;                             // ()Lcom/ys/serialport/LightController; A: $0009

    function init : JLightController; cdecl;                                    // ()V A: $0001

    procedure close ; cdecl; overload;                                          // ()V A: $0001

    procedure close(leds : JList) ; cdecl; overload;                            // (Ljava/util/List;)V A: $0001

    procedure crazyMode(time : Integer) ; cdecl;                                // (I)V A: $0001

    procedure flashMode(time : Integer) ; cdecl;                                // (I)V A: $0001

    procedure getHelp(lightState : JLightController_LightState) ; cdecl;        // (Lcom/ys/serialport/LightController$LightState;)V A: $0001

    procedure getStatus(lightState : JLightController_LightState) ; cdecl;      // (Lcom/ys/serialport/LightController$LightState;)V A: $0001

    procedure keepMode(led : JLightController_Led; second : Integer; light : Integer) ; cdecl;// (Lcom/ys/serialport/LightController$Led;II)V A: $0001

    procedure liveMode(led : JLightController_Led; second : Integer) ; cdecl;   // (Lcom/ys/serialport/LightController$Led;I)V A: $0001

    procedure openDevice(context : JContext; dev : JString; rate : Integer) ; cdecl;// (Landroid/content/Context;Ljava/lang/String;I)V A: $0001

    procedure resume ; cdecl;                                                   // ()V A: $0001

    procedure resumeStausIfNeed(context : JContext) ; cdecl;                    // (Landroid/content/Context;)V A: $0001

    property STATE_HELP : JString read _GetSTATE_HELP;                          // Ljava/lang/String; A: $0019

    property STATE_VIEW : JString read _GetSTATE_VIEW;                          // Ljava/lang/String; A: $0019

  end;

  [JavaSignature('com/ys/serialport/LightController$LightState')]

  JLightController = interface(JObject)

    ['{5F1E8C0D-1D47-4D25-90C8-A22D83E5D858}']

    procedure close ; cdecl; overload;                                          // ()V A: $0001

    procedure close(leds : JList) ; cdecl; overload;                            // (Ljava/util/List;)V A: $0001

    procedure crazyMode(time : Integer) ; cdecl;                                // (I)V A: $0001

    procedure flashMode(time : Integer) ; cdecl;                                // (I)V A: $0001

    procedure getHelp(lightState : JLightController_LightState) ; cdecl;        // (Lcom/ys/serialport/LightController$LightState;)V A: $0001

    procedure getStatus(lightState : JLightController_LightState) ; cdecl;      // (Lcom/ys/serialport/LightController$LightState;)V A: $0001

    procedure keepMode(led : JLightController_Led; second : Integer; light : Integer) ; cdecl;// (Lcom/ys/serialport/LightController$Led;II)V A: $0001

    procedure liveMode(led : JLightController_Led; second : Integer) ; cdecl;   // (Lcom/ys/serialport/LightController$Led;I)V A: $0001

    procedure openDevice(context : JContext; dev : JString; rate : Integer) ; cdecl;// (Landroid/content/Context;Ljava/lang/String;I)V A: $0001

    procedure resume ; cdecl;                                                   // ()V A: $0001

    procedure resumeStausIfNeed(context : JContext) ; cdecl;                    // (Landroid/content/Context;)V A: $0001

  end;

  TJLightController = class(TJavaGenericImport<JLightControllerClass, JLightController>)

  end;

const

  TJLightControllerTAG = 'LightController';

  TJLightControllerMODE_LIVE_RED = 'LIVE:RED';

  TJLightControllerMODE_LIVE_GREEN = 'LIVE:GREEN';

  TJLightControllerMODE_LIVE_BLUE = 'LIVE:BLUE';

  TJLightControllerMODE_KEEP_RED = 'KEEP:RED';

  TJLightControllerMODE_KEEP_GREEN = 'KEEP:GREEN';

  TJLightControllerMODE_KEEP_BLUE = 'KEEP:BLUE';

  TJLightControllerMODE_FLASH = 'FLASH';

  TJLightControllerMODE_CRAZY = 'CRAZY';

  TJLightControllerMODE_CLOSE = 'CLOSE';

  TJLightControllerMODE_RECOVER = 'RECOVER';

  TJLightControllerSTATE_VIEW = 'VIEW';

  TJLightControllerSTATE_HELP = 'HELP';

  TJLightController_SP = 'light_S';

  TJLightController_COMMAND = '_command';

implementation

end.