Android Question JavaObject & AAR Call

[MarcoRome]

Hi Erel, hi all.
I often find wrapper aar obfuscated. In this way it becomes difficult to write wrappers.
So i think that the JavaObject is the right way to interface any JAR / AAR in our B4 programs.

I am working on one of these libraries AAR.
In the AAR file i have the following lines of code:

The Class start so:

public class IrHandler
{
  public static final String libVersion = "1.15";
  private static boolean a = Build.VERSION.SDK_INT >= 11;
  public static final int COM_IR = 1;
......

public IrHandler(Context context, Handler handler)
  {
    this.mContext = context;
    mHandler = handler;
    mAudioManager = (AudioManager)context.getSystemService("audio");
   .......

Now i have this code in B4A:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim jo As JavaObject
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    'Inizializzo oggetto JavaObject
    If FirstTime Then jo.InitializeContext
End Sub


Sub GetContext As JavaObject
   Return GetBA.GetField("context")
End Sub

Sub GetHandler As JavaObject
   Return GetBA.GetField("handler")
End Sub

Sub GetBA As JavaObject
  Dim jo As JavaObject
  Dim cls As String = Me
  cls = cls.SubString("class ".Length)
  jo.InitializeStatic(cls)
  Return jo.GetFieldJO("processBA")
End Sub

Sub Cooffee As JavaObject
   Dim jo As JavaObject
   Return jo.InitializeNewInstance("com.rft.irlib.IrHandler", Array(GetContext, GetHandler))   
  
End Sub



Sub btn_start_Click
  
    'PowerStart
    Dim batteria, memtot, memused, nfile As Int
    Dim sn, version As String
    Dim temperature As Float

    batteria = Cooffee.RunMethod("GetBattery", Null)
     Log("Batteria: " & batteria)
    memtot = Cooffee.RunMethod("GetMemTot", Null)
    Log("MemTot: " & memtot)

    memused = Cooffee.RunMethod("GetMemUsed", Null)
    Log("MemUsed: " & memused)
   
    nfile =  Cooffee.RunMethod("GetNFile", Null)
    Log("NFile: " & nfile)
   
    sn = Cooffee.RunMethod("GetSN", Null)
    Log("SN: " & sn)
   
    version = Cooffee.RunMethod("GetVersion", Null)
    Log("Version: " & version)
   
    temperature = Cooffee.RunMethod("GetTemperature", Null)
    Log("Temperature: " & temperature)
   

End Sub



Sub Activity_Resume


End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Is right this line in B4A ?:

Return jo.InitializeNewInstance("com.rft.irlib.IrHandler", Array(GetContext, GetHandler))

This is call in Java:

public IrHandler(Context context, Handler handler)
{
this.mContext = context;
mHandler = handler;
mAudioManager = (AudioManager)context.getSystemService("audio");
.......

Thank you
Marco

 

[Erel]

Dim ctxt As JavaObject
ctxt.InitializeContext
Dim handler As JavaObject
handler.InitializeNewInstance("android.os.Handler", Null)
Dim ir As JavaObject
ir.InitializeNewInstance("com.rft.irlib.IrHandler", Array(ctxt, handler))

 

[MarcoRome]

Dim ctxt As JavaObject
ctxt.InitializeContext
Dim handler As JavaObject
handler.InitializeNewInstance("android.os.Handler", Null)
Dim ir As JavaObject
ir.InitializeNewInstance("com.rft.irlib.IrHandler", Array(ctxt, handler))

This work without problem is very very power this library JO.
Another question:

I have this Method in Java:

public final void init(Context aContext, BTDataKeyModuleIface listener)
{
if (!this.p)
{
this.t = aContext;
.......

The BTDataKeyModuleIface.class i have this code:

package eu.xxxx.btdatakeymodule;

public abstract interface BTDataKeyModuleIface
{
public abstract void onBTDataKeyBatteryLevelReceived(int paramInt);
public abstract void onBTDataKeyOpCodeConfigurationSuccess();
public abstract void onBTDataKeyIDdataReceived(byte[] paramArrayOfByte, String paramString1, String paramString2, String paramString3, String paramString4, String paramString5);
public abstract void onBTDataKeyPendingStatusReceived(boolean paramBoolean);
public abstract void onBTDataKeyDataPacketReceived(int paramInt, String paramString);
public abstract void onBTDataKeyAuditReceived(byte[] paramArrayOfByte, String paramString1, String paramString2, String paramString3);
public abstract void onBTDataKeyDeleteSuccess();
public abstract void onBTDataKeyStatusChange(int paramInt);
public abstract void onBTDataKeyError(int paramInt);
public abstract void onBTDataKeyModuleError(int paramInt);
}

In B4A i have this code:

Sub Test As JavaObject
    Dim ir As JavaObject
    Return ir.InitializeNewInstance("eu.xxxx.btdatakeymodule.BTDataKeyModule", Null)
End Sub



Sub btn_start_Click
    Dim Iface As JavaObject
    Iface.InitializeStatic("eu.xxxx.btdatakeymodule.BTDataKeyModuleIface")
  
    Dim ctxt As JavaObject
    ctxt.InitializeContext
  
    Test.RunMethod("init", Array As Object(ctxt, Iface))
....

But return me:

java.lang.RuntimeException: Method: init not matched.

Where i wrong ?
Thank you
Marco

 

[Erel]

You can only use InitializeStatic if you want to call a static method. This is not the case here.

In this case you need to use JavaObject.CreateEvent to create the interface. It will probably be easier to create a wrapper.

 

[MarcoRome]

Is so easy

In this mode work:

Dim Iface As JavaObject = jo.CreateEvent("eu.xxxxx.btdatakeymodule.BTDataKeyModuleIface", "Coges", False)
Dim ctxt As JavaObject
ctxt.InitializeContext
  
Test.RunMethod("init", Array As Object(ctxt, Iface))

Really great and very usefull library.
Thank you again Erel.

 

[Erel]

Always prefer jo.CreateEventFromUI over CreateEvent.