【搞定】怎样定义数组（？）**

liubin

楼上的问题,搞定
  retcode := GCUSB.head.et_GetSN(hET99, @buffer[0]);    @buffer[0]   用指针的请问有什么方法可以辟开?

liubin

因为et_GetSN函数原型 第2个参数就要求是指针参数

jiahaiminghr

在导入控件时，把这个方法重新封装一下

yancm

可以在delphi里面先对此函数封装成不传入指针的。然后使用封装后的接口。

liubin

那样,编译可以通过, 运行出错.别的方法有吗?

jiahaiminghr

运行出什么错误？

liubin

var
  buffer: array of char;
  retcode,I: Integer;
begin
  SetLength(buffer, 512);
  for I := 0 to 511 do
     buffer[I] := char(0);

   retcode := GCUSB.head.et_GetSN(hET99, buffer[0]); <----错误定位如图
   for I := 0 to 7 do
   begin
    Result := Result + IntToHex(byte(buffer[I]),2)+' ';
   end;

jiahaiminghr

楼主，你对这个函数是怎么封装的？

liubin

function et_GetSN(handle:THandle; buffer512:pchar):integer;stdcall;external DLL_NAME;
在平台里把第2个参数Pchar 认成String

liubin

function et_GetSN(handle:THandle; buffer512:  pchar):integer;stdcall;external DLL_NAME;