使用 JNA 和 Delphi DLL 在 PointerByReference 中获取值时出错

Question

我需要用 Delphi DLL 开发一个 Java 程序，但问题是：

我在JNA中映射如下：

- Delphi函数：

function send_command (const command : byte; var size : byte; var data : pbyte) : integer; stdcall external 'comunication.dll';

- Java函数：

public int send_command(byte command, ByteByReference size, PointerByReference data);

函数返回 1（成功结果）但我无法获取 data 变量中的值。

如何获取 data 中的值？

在Delphi测试程序中调用函数如下：

const
    cmdREAD_STATUS = ;

procedure TForm1.ReadStatus1Click(Sender: TObject);
var
    Data,
    p    : pbyte;
    tam  : byte;
    i,
    result: integer;
    saux : string;
begin
    getmem (Data, 40);
    tam:= 0;
    result:= send_comand (cmdREAD_STATUS, tam, Data);
    if result= 1 then
      begin
        memo1.Lines.add ('Command OK');
        i:= 0;
        sAux:= '';
        p:= Data;
        while (i < Tam) do
          begin
            sAux:= sAux + inttohex (p^, 2)+' ';
            if length (sAux) > 59 then
              begin
                memo1.Lines.add (SAux);
                sAux:= '';
              end;
            inc (p);
            inc (i);
          end;
        if sAux <> '' then
          memo1.Lines.add (SAux);
      end
    else
      memo1.Lines.add ('Result: '+inttostr(result)+' in command execution');
    freemem (Data);
end;

Answer 1

使用 Memory class 进行操作。

Memory memory = new Memory(40);
PointerByReference data = new PointerByReference();
data.setValue(memory);
// call the function now
byte[] bytes = new byte[40];
memory.read(0, bytes, 0, 40);

请记住，我根本不知道 Java，因此上面的内容很可能存在语法错误。但我相信基本方法是合理的。

使用 JNA 和 Delphi DLL 在 PointerByReference 中获取值时出错

Error getting value in PointerByReference with JNA and Delphi DLL

java

delphi

dll

jna