// QQ：954486673
//微信：13822155058
//淘宝：https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.26.12fce728BgBT3g&id=18645495882
本读写器支持ISO14443 TYPE A标准的Mifare One系列卡。Mifare One卡的内部存储结构分为16个扇区，从第0区到第15区，每个扇区有独立的密码和权限控制字，可作为独立的电子钱包，每个扇区有4个块，序号为第0块、第1块、第2块、第3块，每块16个字节，第3块是卡的密码和权限控制字专用块，禁止在此存放数据。第0块、第1块、第2块可随意存放数据。但第0区的第0块已被固化了IC卡出厂信息，此块只能读出信息，不可更改。
每张卡都有一个全球统一的4个字节的序列号。许多公司销售的读卡模块只有读取卡序列号的功能，也能用于一般的考勤系统。但这类读卡模块跟本公司的读写器有着本质的不同，本公司的读写器不仅能读序列号，而且还有服务于IC卡所有用途的功能。
波特率参数为：19200，N，8，1
发送帧格式
| 帧长度（1字节） |
帧内容（不超过62个字节） |
帧内容的和校验（1字节） |
接收帧格式
| 帧长度（1字节） |
帧内容（不超过62个字节） |
帧内容的和校验（1字节） |
注：帧长度仅指帧内容的字节数
| 功能：驱动蜂鸣器响 | |||
| 帧长度(1B) | 帧数据 | 帧检验(1B) | |
| 发送数据 | 03 | 0F FF 00 | F0 |
| 功能：读取IC卡序列号 | |||
| 帧长度(1B) | 帧数据 | 帧检验(1B) | |
| 发送数据 | 01 | F0 | F0 |
| 寻不到卡返回 | 01 | 08 | 08 |
| 寻到卡返回 | 05 | 4字节卡号 | 1字节检验 |
| 感应区有两张卡 | 01 | 09 | 09 |
| 无法选择卡片 | 01 | 0A | 0A |
| 功能：集成读卡，一次性读整个区的第0块、第1块、第2块共3块的信息，并且返回卡序列号 | |||
| 帧长度(1B) | 帧数据 | 帧检验(1B) | |
| 发送数据 | 0E | 78 17 00 00 00 00 08 AA FF FF FF FF FF FF | CD |
| 寻不到卡返回 | 01 | 08 | 08 |
| 寻到卡返回 | 35 | 4字节卡号+48字节扇区内数据 | 1字节检验 |
| 感应区有两张以上的卡 | 01 | 09 | 09 |
| 无法选择卡片 | 01 | 0A | 0A |
| 密码装载失败 | 0B+4字节卡号 | ||
| 密码认证失败 | 0C+4字节卡号 | ||
| 功能：集成写卡，可以一次性写整个区的第0块、第1块、第2块信息 | |||
| 帧长度(1B) | 帧数据 | 帧检验(1B) | |
| 发送数据 | 3E | 69 17 00 00 00 00 08 AA FF FF FF FF FF FF [48字节的写卡数据] | CD |
| 寻不到卡返回 | 01 | 08 | 08 |
| 感应区有两张以上的卡 | 01 | 09 | 09 |
| 无法选择卡片 | 01 | 0A | 0A |
| 密码装载失败 | 0B+4字节卡号 | ||
| 密码认证失败 | 0C+4字节卡号 | ||
Delphi7串口控件源码：
打开串口------------------------------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if(BitBtn1.Caption = '打开串口') then
begin
try
Comm1.CommName:='\\.\'+ComboBox1.Text;
//以下代码一定要复制过去
Comm1.BaudRate:=strtoint(ComboBox2.text); //19200;
Comm1.ByteSize:=_8;
Comm1.ParityCheck:=False;
case combobox3.ItemIndex of
0: Comm1.Parity:=None;
1: Comm1.Parity:=Odd;
2: Comm1.Parity:=Even;
3: Comm1.Parity:=Mark;
else
Comm1.Parity:=Space;
end;
Comm1.StopBits:=_1;
Comm1.XoffChar:='#';
comm1.ReadIntervalTimeout:= StrToInt(RichEdit13.Lines[0]);
Comm1.StartComm; //打开串口
BitBtn1.Caption := '关闭串口';
ComboBox1.Enabled:=False;
except
ShowMessage('打开端口失败!');
end;
end
else
begin
try
timer2.Enabled :=false;
Comm1.StopComm; //关闭串口
BitBtn1.Caption := '打开串口';
ComboBox1.Enabled:=True;
except
end;
end;
end;
串口发送指令读卡号-------------------------------------------------------------------------------------------------------------------------
procedure TForm1.BitBtn2Click(Sender: TObject);
var
sendd:array[0..2]of Byte; //发送字节缓冲
SendDataStr:string;
i:integer;
begin
if(BitBtn1.Caption <> '关闭串口') then
begin
Application.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);
Exit;
end;
sendd[0] := $01;
sendd[1] := $F0;
sendd[2] := $F0;
FuncCode:=1; //驱动读卡序列号
issendwaitrev1 := True;
sendwaitrevsize := 0;
Comm1.WriteCommData(@sendd[0], 3);
SendDataStr:='串口发送数据：';
for i:=0 to 2 do
begin
SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';
end;
ListBox1.Items.Add(SendDataStr);
listbox1.ItemIndex:=listbox1.Count-1;
end;
串口接收指令后并返回信息------------------------------------------------------------------------------------------------------------
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i,para:integer;
answ:integer;
GetdataStr:string;
SendDataStr:string;
cardhao:Longword;
strls1:string;
CRC:byte;
sendd:array[0..7]of Byte; //发送字节缓冲
begin
GetdataStr:='串口接收数据：';
if issendwaitrev1 then
begin//在有发送指令等待返回
issendwaitrev1 := False;
sendwaitrevsize := BufferLength;
move(Buffer^,pchar(@(sendwaitData[0]))^,BufferLength);
for i:=0 to BufferLength-1 do
begin
GetdataStr:=GetdataStr+inttohex(sendwaitData[i],2)+' ';
if i=32 then
begin
ListBox1.Items.Add(GetdataStr);
listbox1.ItemIndex:=listbox1.Count-1;
GetdataStr:=' ' ;
end;
end;
if length(trim(GetdataStr))>0 then
begin
ListBox1.Items.Add(GetdataStr);
listbox1.ItemIndex:=listbox1.Count-1;
end;
crc:=0;
for i:=1 to BufferLength-1 do
begin
crc:=crc xor sendwaitData[i];
end;
if crc=0 then
begin
case FuncCode of
1,2,3,4:
begin
if (sendwaitData[0]=1) then
begin
case sendwaitData[1] of
1:
edit3.Text :='密码认证成功,卡片序列号已知,但读取扇区内容失败！';
2:
edit3.Text :='第0块读出，但第1、2块没读出，仅扇区内容前16个字节的数据有效！';
3:
edit3.Text :='第0、1块读出，但第2块没读出，仅扇区内容前32个字节的数据有效！';
8:
edit3.Text :='未寻到卡！';
9:
edit3.Text :='两张以上卡片同时在感应区，发生冲突！';
10:
edit3.Text :='无法选择激活卡片！';
11:
edit3.Text :='密码装载失败，卡片序列号已知！';
12:
edit3.Text :='密码认证失败，卡片序列号已知！';
end;
end
else
begin
if (sendwaitData[0]=5) then
begin
cardhao := sendwaitData[5] + sendwaitData[4]*256 + sendwaitData[3]*256*256 + sendwaitData[2]*256*256*256;
case sendwaitData[1] of
0:
begin
if FuncCode=2 then strls1:='读卡成功 ' else if FuncCode=3 then strls1:='写卡成功 ' else if FuncCode=4 then strls1:='更改密码成功 ' ;
end;
1:
strls1:='密码认证成功,卡片序列号已知,但读取扇区内容失败！';
2:
strls1:='第0块读出，但第1、2块没读出，仅扇区内容前16个字节的数据有效！';
3:
strls1:='第0、1块读出，但第2块没读出，仅扇区内容前32个字节的数据有效！';
8:
strls1:='未寻到卡！';
9:
strls1:='两张以上卡片同时在感应区，发生冲突！';
10:
strls1:='无法选择激活卡片！';
11:
strls1:='密码装载失败，卡片序列号已知！';
12:
strls1:='密码认证失败，卡片序列号已知！';
end;
strls1:=strls1+'物理卡号:'+inttohex(sendwaitData[2],2)+'-'+inttohex(sendwaitData[3],2)+'-'+inttohex(sendwaitData[4],2)+'-'+inttohex(sendwaitData[5],2);
strls1:=strls1+' 换算成十位卡号:'+ RightStr('000000000' + IntToStr(cardhao),10);
edit3.Text :=strls1;
end
else
begin
if (sendwaitData[0]=53) then
begin
cardhao := sendwaitData[5] + sendwaitData[4]*256 + sendwaitData[3]*256*256 + sendwaitData[2]*256*256*256;
strls1:='物理卡号:'+inttohex(sendwaitData[2],2)+'-'+inttohex(sendwaitData[3],2)+'-'+inttohex(sendwaitData[4],2)+'-'+inttohex(sendwaitData[5],2);
strls1:=strls1+' 换算成十位卡号:'+ RightStr('000000000' + IntToStr(cardhao),10);
edit3.Text :=strls1;
GetdataStr:='';
for i:=6 to BufferLength-2 do
begin
GetdataStr:=GetdataStr+inttohex(sendwaitData[i],2)+' ';
end;
RichEdit3.Text :=GetdataStr;
end;
end;
end;
end;
end;
end;
end;
end;