关于 Delphi 调用 VC ( 积分: 100 )

VC语言中的内容:
//12.校验Memory卡密码
DLLIMPORT int WINAPI IFD_Verify_Pin( UINT IFD_Handle, USHORT Length_of_Pin, LPSTR Pin );
//返回为剩余可校验次数 如<0 出错
//5 校验卡片密码,否则不能写入.卡片密码预设为2个0xff.
cmdbuff[0]=0xff;
cmdbuff[1]=0xff;
ret=IFD_Verify_Pin( IFD_Handle, 2, cmdbuff);
在Delphi调用例子:
TNum=array[0..1] of char;
Var
cmdbuff : TNum;
IsPass : integer;
begin
cmdbuff[0] := #255;
cmdbuff[1] := #255;
IsPass := IFD_Verify_Pin(icHandle,2,cmdbuff);
或:
TNum=array[0..1] of integer;
Var
cmdbuff : TNum;
IsPass : integer;
begin
cmdbuff[0] := 255;
cmdbuff[1] := 255;
IsPass := IFD_Verify_Pin(icHandle,2,cmdbuff);

都是返回参数不对? 请教!

VC语言中的内容:
//12.校验Memory卡密码
DLLIMPORT int WINAPI IFD_Verify_Pin( UINT IFD_Handle, USHORT Length_of_Pin, LPSTR Pin );
//返回为剩余可校验次数 如<0 出错
//5 校验卡片密码,否则不能写入.卡片密码预设为2个0xff.
cmdbuff[0]=0xff;
cmdbuff[1]=0xff;
ret=IFD_Verify_Pin( IFD_Handle, 2, cmdbuff);
在Delphi调用例子:
TNum=array[0..1] of char;
Var
cmdbuff : TNum;
IsPass : integer;
begin
cmdbuff[0] := #255;
cmdbuff[1] := #255;
IsPass := IFD_Verify_Pin(icHandle,2,cmdbuff);
或:
TNum=array[0..1] of integer;
Var
cmdbuff : TNum;
IsPass : integer;
begin
cmdbuff[0] := 255;
cmdbuff[1] := 255;
IsPass := IFD_Verify_Pin(icHandle,2,cmdbuff);

都是返回参数不对? 请教!

请教各位 如何定义readbuff?

已经解决,谢谢各位!