关于调用vc 编写的 dll的问题???

[Brind]

bool ByteToString(unsigned char *ucBuf, int nLen, char *chBuf) // vc函数

function ByteToString(ucBuf : PByte; nLen : Integer; chBuf : PChar) : Boolean; External 'TestDelphi.dll'; // delphi函数声明, 不过里面的类型我不确定是否正确

// 调用部分
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ucTestBuf : array[0..8] of byte;
chTestBuf : array[0..16] of char;
begin

ByteToString(ucTestBuf, 8, chTestBuf); // 这里编译不通过, 类型不匹配

end;

end.

请问该怎么正确声明, 怎样把数组里的内容正确的传给dll?

[cuteant]

用Type定义一个类型
Type
TUcTestBuf: array[0..8] of byte;
TChTestBuf: array[0..16] of char;

// 调用部分
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ucTestBuf : TUcTestBuf;
chTestBuf : TChTestBuf;
begin

ByteToString(ucTestBuf, 8, chTestBuf); // 这里编译不通过, 类型不匹配
end;


ByteToString函数声明的时候也用TUcTestBuf和TChTestBuf

[coreblood]

function ByteToString(ucBuf : Byte; nLen : Integer; chBuf : PChar) : Boolean; External 'TestDelphi.dll'

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ucTestBuf : array[0..8] of byte;
chTestBuf : array[0..16] of char;
begin

ByteToString(ucTestBuf[0], 8, @chTestBuf[0]); // 这里编译不通过, 类型不匹配
end;

[coreblood]

数组在内存中为分配连续地址空间

[madyak]

function ByteToString(ucBuf : PByte; nLen : Integer; chBuf : PChar) : Boolean;stdcall; External 'TestDelphi.dll';//要加Stdcall

//要这样调用
ByteToString(@ucTestBuf[0], 8, @chTestBuf[0]);

[Brind]

implementation
function ByteToString(ucBuf : PByte; nLen : Integer; chBuf : PChar) : Boolean; stdcall; External 'TestDelphi.dll';

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ucTestBuf : array[0..7] of byte;
chTestBuf : array[0..15] of char;
begin
ucTestBuf[0] := $80;
ucTestBuf[1] := $CE;
ucTestBuf[2] := $82;
ucTestBuf[3] := $EF;
ucTestBuf[4] := $84;
ucTestBuf[5] := $B9;
ucTestBuf[6] := $86;
ucTestBuf[7] := $FF;

ByteToString(@ucTestBuf, 8, chTestBuf);
ShowMessage('转换后的字符串: ' + chTestBuf);

end;

多谢各位, 终于成功了 :)