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（成功结果），但我无法获得数据变量中的值。

如何获取数据中的值？

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

const
    cmdREAD_STATUS = $17;

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课程。

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中获取值时出错

1 个答案: