我如何将这个 Delphi 函数与 JNA 映射

Question

我有以下 Delphi 函数：

function DoX(const InputBuffer: Pointer; const InputBufferSize: longword; OutputBuffer: Pointer; var OutputBufferSize: longword): longbool;

OutputBuffer 和 OutputBufferSize 将在函数中设置为结果的一部分，并使用布尔值返回来指示该方法是否成功（InputBuffer 和 OutputBuffer 将是字节数组）。

我已经成功地使用 JNA 从 dll 映射了一些我需要的函数，并且它们工作正常，但是这个函数给我带来了问题，任何帮助将不胜感激。

Answer 1

大多数 JNA 文档假设您使用的是 C，而不是 Delphi，因此从与该函数等效的 C 开始：

int DoX(const void* InputBuffer,
        unsigned int InputBufferSize,
        void* OutputBuffer,
        unsigned int* OutputBufferSize);

您还需要正确的调用约定。 Delphi 的默认设置是注册，这可能不是您想要的。 使用stdcall来代替； 这就是其他所有 DLL 所使用的。

Java 没有与您使用的类型等效的无符号类型，因此首先忽略无符号。 这使得 InputBufferSize 成为 int。 您的函数返回布尔结果，因此请使用 boolean 作为其返回类型。 JNA 支持通过 的后代通过引用传递类型ByReference 类，因此使用 OutputBufferSize 的 IntByReference。

最后是指针。 你说它们是字节数组，所以我很困惑为什么你不在 Delphi 代码中这样声明它们。 使用 PByte，或者声明一个新的 PByteArray 类型并使用它。 （这一更改将使该函数的实现更加方便。）在 Java 中，尝试将它们声明为字节数组。 所以，最终产品：

boolean DoX(byte[] InputBuffer,
            int IntputBufferSize,
            byte[] OutputBuffer,
            IntByReference OutputBufferSize);