函数映射 Delphi DLL 与 Java (JNA)

Question

我在尝试将 Delphi 中的 DLL 的两个函数与 JNA Java 一起使用时遇到问题。在测试软件（Delphi，由 DLL 提供）中，我有这个功能（在测试软件中完美运行）：

function abrir_conexao (const modelo : **byte**; const host : **pansichar**; const porta : **word**; const senha : **pansichar**) : integer; stdcall external 'comunicacao.dll';

function enviar_comando (const comando : **byte**; var tamanho : **byte**; var dados : **pbyte**) : integer; stdcall external 'comunicacao.dll';

我正在尝试在 Java (JNA) 中实现这些功能。我通常会加载 dll，但是，我认为问题在于使用正确的原始变量：

public int abrir_conexao (**byte** modelo, **String** host, **short** porta, **String** senha);

public int enviar_comando(**byte** comando, **byte** tamanho, **byte[]** dados);

但它不起作用。有人可以帮忙吗？

Answer 1

对于以下原生函数：

function abrir_conexao (const modelo : byte; const host : pansichar; const porta : word; const senha : pansichar) : integer; stdcall external 'comunicacao.dll';

function enviar_comando (const comando : byte; var tamanho : byte; var dados : pbyte) : integer; stdcall external 'comunicacao.dll';

JNA 映射：

public interface MyLibrary extends StdCallLibrary {
    MyLibrary INSTANCE = (MyLibrary)Native.loadLibrary('comunicacao', MyLibrary.class);
    int abrir_conexo(byte modelo, String host, short port, String senha);
    int enviar_comando(byte comando, byte tamanho, byte[] dados);
}