Lotus Script y java con LS2J

Este código pertenece a un agente LotusScript, en el se crea una JAVASESSION y una JAVACLASS. En este ejemplo se obtiene la clase “pruebaJava” y creamos un objeto de la clase, (equivalente a un set c1 = new c1()), los parámetros del CreateObject son los parámetros que recibira el constructor por defecto. (*Ver anexo)

Una vez tenemos la instancia del objeto ya podemos trabajar con el como si de java se tratase.

 

Sub Initialize

                On Error Goto errutina

                Dim js As JAVASESSION

                Dim pruebaJava As JAVACLASS

                Dim pruebaJavaObject As JavaObject

                Dim returnCode As String

                Dim ses As New notesSession                       

                Dim db As NotesDatabase

 

                Set js = New JAVASESSION

                Set pruebaJava = js.GetClass(“pruebaJava”)

                Set pruebaJavaObject = pruebaJava.CreateObject(“(ILjava/lang/String;)V”,10,”ELOY”)

                Set db = ses.CurrentDatabase         

                Messagebox (“NOMBRE DEFAULT: “ & pruebaJavaObject.getNombre())

                pruebaJavaObject.nombre = “ELOY RODRIGUEZ”    

                Messagebox (“VARIABLE NOMBRE: ” & pruebaJavaObject.nombre &_

 ” METODO getNombre(): ” & pruebaJavaObject.getNombre())

                pruebajavaObject.push(2)

                pruebajavaObject.push(5)

                pruebajavaObject.push(12)

                pruebajavaObject.push(34)              

                Msgbox pruebajavaobject.getStringCajas()

                Dim a As Variant

                a =  pruebaJavaObject.getArrayCajas()         

               Msgbox Lbound(a) & ” – ” & Ubound(a)

                Dim i As Integer

                For i = 0 To Ubound(a)

                               Msgbox a(i)

                Next       

                Exit Sub

errutina:

                Msgbox “Error in line ” & Erl & “: ” & Error                 

End Sub