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

amwip110 2012-08-08 07:35:58
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,返回即接收的数据字节错误
...全文
199 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
huboy 2012-08-22
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 的回复:]
如果不修改密码读写都OK,很奇怪,我修改语句如下:
st := rf_changeb3(icdev,5,'LOTION',$FF,$07,$80,$69,0,'LOTION');
[/Quote]

如果没有通讯命令,而只有厂家提供的调用接口。。找厂家是最快的方式。
奔雷手 2012-08-08
  • 打赏
  • 举报
回复
你先看看 供应商提供的DEMO能否正常读写
amwip110 2012-08-08
  • 打赏
  • 举报
回复
如果不修改密码读写都OK,很奇怪,我修改语句如下:
st := rf_changeb3(icdev,5,'LOTION',$FF,$07,$80,$69,0,'LOTION');

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧