dim e as JavaVMMBS // global

// Call "public static String getMessage()" and "public static void setMessage(String theMessage)" from class "test".

dim jclass, sclass as JavaClassMBS
dim jmethod as JavaMethodMBS
dim jstring as JavaStringMBS
dim args as JavaObjectArrayMBS
dim m as MemoryBlock
dim s as String
dim jfield as JavaFieldMBS

jclass=e.FindClass("test")

if jclass=nil then
  msgbox "Can't find test class"
else
  jmethod = jclass.GetStaticMethod("setMessage", "(Ljava/lang/String;)V")
  
  if jmethod=nil then
    msgbox "Can't find HelloWorld.setMessage"
  else
    jstring = e.NewStringUTF8("Hello from Realbasic!")
    if jstring=nil then
      msgbox "Out of memory"
    else
      m=NewMemoryBlock(8) // 8 bytes per parameter
      m.long(0)=jstring.Handle
      
      jclass.CallStaticVoidMethod(jmethod, m)
      
      jmethod = jclass.GetStaticMethod("getMessage", "()Ljava/lang/String;")
      
      if jmethod=nil then
        msgbox "Can't find HelloWorld.getMessage"
      else
        m=NewMemoryBlock(8) // 8 bytes per parameter
        m.long(0)=jstring.Handle
        
        jstring=JavaStringMBS(jclass.CallStaticObjectMethod(jmethod,m))
        
        MsgBox jstring.CopyStringUTF
      end if
    end if
  end if
end if

dim jclass as JavaClassMBS
dim method as JavaMethodMBS

method=jclass.GetMethod("mymethod", "([Ljava/lang/String;)V")

dim jclass as JavaClassMBS
dim method as JavaMethodMBS

method=jclass.GetStaticMethod("main", "([Ljava/lang/String;)V")

dim f as FolderItem

f=SpecialFolder.Desktop.Child("ojdbc14.jar")

dim j as new JavaVMMBS(f)

dim c as JavaClassMBS = j.FindClass("oracle/jdbc/driver/OracleTypes")

dim field as JavaFieldMBS

// this are all static integer fields in this class:

field = c.GetStaticField("CURSOR","I")
MsgBox str(c.StaticIntField(field))

field = c.GetStaticField("BLOB","I")
MsgBox str(c.StaticIntField(field))

field = c.GetStaticField("DOUBLE","I")
MsgBox str(c.StaticIntField(field))