VC翻译成delphi

Question

VC代码
unsigned char tmp;
int __stdcall WriteData(int num,unsigned char *send,int len,int wait=-1);//WriteData是调用的DLL函数
tmp = 3;
int ret = WriteData(1, &tmp, 1, 1000);怎样翻译成delphi

Answer 1

var
  tmp: byte;
  ret: integer;// ...function WriteData(num: integer; send: pointer; len: integer; wait: integer = -1): integer; stdcall; external 'xxx.dll';tmp := 3;
ret := WriteData(1, @tmp, 1, 1000);

Answer 2

var
  tmp: byte;
  ret: integer;function WriteData(num: integer; send: PByte; len: integer; wait: integer = -1):integer; stdcall; external 'xxx.dll';tmp := 3;
ret := WriteData(1, @tmp, 1, 1000);