delphi中操作非接触式IC读写不了数据

[amwip110]

procedure TForm1.BitBtn5Click(Sender: TObject);
var
icdev:LongInt;
snr:Cardinal;
st:Integer;
b : Cardinal;
pwd:string;
pdata:PChar;
data:array[0..128] of Char;
begin
data := #0;
st := rf_card(icdev,0,@snr);
if st <> 0 then begin rf_exit(icdev) end;
st := rf_load_key(icdev,0,5,'LOTION');
if st <> 0 then begin rf_exit(icdev) end;
st := rf_authentication(icdev,0,5);
if st <> 0 then begin rf_exit(icdev) end;

st := rf_read(icdev,20,data);
if st <> 0 then begin rf_exit(icdev) end;
rf_exit(icdev);
end;

密码加载、密码校验都OK，就是在读数据时，总部返回12，返回即接收的数据字节错误

[amwip110]

如果不修改密码读写都OK，很奇怪，我修改语句如下：
st := rf_changeb3(icdev,5,'LOTION',$FF,$07,$80,$69,0,'LOTION');

[奔雷手]

你先看看 供应商提供的DEMO能否正常读写

[huboy]

[Quote=引用 1 楼 的回复:]
如果不修改密码读写都OK，很奇怪，我修改语句如下：
st := rf_changeb3(icdev,5,'LOTION',$FF,$07,$80,$69,0,'LOTION');
[/Quote]

如果没有通讯命令，而只有厂家提供的调用接口。。找厂家是最快的方式。