请问下面的代码在delphi中如何实现(vb的代码)

Question

在vb中声明如下:
declare function write1 lib "easy12.dll" (byref pdata as byte,byval ilen as integer) as integer
在delphi中如何声明?
在vb中调用如下:
 dim combuf(1) as byte
    combuf(0)=asc("w")
    combuf(1)=2
    st=write1(combuf(0),2)
在delphi中如何调用呢?
  其中pdata为缓冲区首地址,ilen为写数据长度

Answer 1

function writel; external 'easy12.dll' name 'writel';
function writel(var pdata:byte;ilen:integer):integer;stdcall;

Answer 2

function writebuffer;external 'easy12.dll' name 'writel'
function WriteBuffer(bData:Byte;iLen:Integer):Integer;stdcall; external 'easy12.dll' name 'writel'
不用var的
调用第二种格式就可以了

Answer 3

如果声明是带var ，如何调用