[บทเรียน, Java] การWrapper JavaCode มาเป็น Bas File.

[Theera]

// MyClass.java มี Class ชื่อ MyClass

public class MyClass {
   public String  GreetJava(String name) {
        return "Hello," +name;
   }
}

ทำการ WrapperJavacode

' MyWrapper.bas

Sub Greet (name As String) As String
Dim mc As MyClass
        Return mc.GreetJava(name)
End Sub

หมายเหตุ
เมื่อเปรียบเทียบการใช้ JavaObject library

// MyClass.java ไม่มีClass ชื่อMyClass
// (มีการแก้ไขโดย ตัดส่วน MyClass ทิ้งไป)

  public String  GreetJava(String name) {
        return "Hello," +name;
  }

Public Sub Greet(name As String) As String
'Using CrossPlatform
 'Add  equal to Me Because using B4XPages
          
Dim jo As JavaObject=Me
'delete this under line Because usingB4XPages
 ' jo.initializeContext
 Dim mystring As String = name
 mystring = jo.runMethod("GreetJava" , Array(mystring))
Return mystring
End Sub

การนำไปใช้งาน

Private  TextBox As B4XView
TextBox.Text=Greet("Theera")