Question

大多数有尊严的开发者，

我在从Lotus脚本代理调用我自己的java类中的方法时遇到了问题。

我简化的Java类看起来像这样

import lotus.domino.*;

public class MyClass{
   /* .. omitted constructor and other methods .. */

   public void myMethod(Document doc){
      /* ... do things with the document object ...*/
   }

}

现在这个类包含在正确的use语句中，我可以遍历lotus脚本中类对象的classmethods来获取所需参数的签名。

但是当我尝试调用该方法时，我得到一个LS2J: Parameter mismatch calling Method myMethod

我在JavaObject上尝试过点符号（不，我没有使用Mac;））和ADT

Dim doc as NotesDocument
Dim jSession As JavaSession
Dim jClass As JavaClass
Dim jObject As JavaObject

...

Set jSession = New JavaSession()
Set jClass = jSession.Getclass("MyClass")

Set jObject = jClass.Createobject()
Call jObject.myMethod(doc)

和

Dim jMethod as JavaMethod
...

Set jMethod = jClass.Getmethod("myMethod", "(Llotus/domino/Document;)V")
tmp = jMethod.Invoke(jObject,doc)

此外，我添加了错误处理（OnError ..）来打印出任何JavaError（+ stacktrace）的结果，但它们最终为空，因此没有进一步的线索。

我正在使用Designer 9.0版

任何想法/指针/陷阱？它让我秃顶。

Answer 1

您正在使用正确的方法来调用Java方法，但是您无法将Notes后端对象作为参数传递。

例如，您可以使用文档通用ID解析字符串，然后在Java方法中使用通用ID查找文档。

或者，将Lotusscript逻辑迁移到Java： - ）

Answer 2

也许你不需要CreateObject ..

我就是这样做的：

Dim jSession As New JavaSession()
Dim jClass As JavaClass()
Set jClass = jSession.GetClass("MyClass")

If jClass.myMethod(doc) Then

添加完整示例

Java class:
import java.io.FileOutputStream;
import java.io.InputStream;
import java.io.OutputStream;
import java.net.URL;

public class GetFileFromUrl {

    public static boolean getFileFromUrl(String imageUrl, String filePath) {
        try {
            URL url = new URL(imageUrl);
            InputStream is = url.openStream();
            OutputStream os = new FileOutputStream(filePath);
            byte[] b = new byte[2048];
            int length;
            while ((length = is.read(b)) != -1) {
                os.write(b, 0, length);
            }
            is.close();
            os.close();
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
}

的LotusScript：

UseLSX "*javacon"  
Use "GetFileFromUrl"

Private Function GetFileFromUrl(url As String, outputPath As String) As Boolean
    Dim jSession As New JavaSession
    Dim jClass As JavaClass
    Set jClass = jSession.GetClass("GetFileFromUrl")
    If jClass.getFileFromUrl(url, outputPath) Then
        GetFileFromUrl = True
    End If
End Function

从lotus脚本（LS2J）调用Java类的方法

2 个答案: