Delphi轻松读写NDEF文本、智能海报、应用控制等NFC标签

        NDEF 全称 NFC data exchange format 即 nfc 数据交换格式，是一种标准化的数据格式，可用于在任何兼容的NFC设备与另一个NFC设备或标签之间交换信息。数据格式由NDEF消息和NDEF记录组成。

       NDEF信息可以写到不同类型的NFC芯片中，如NFC_Forum_Type2类的Ntag2x、FM11NTx系列芯片、NFC_Forum_Type4标签、NFC_Forum_Type5类的15693系列芯片、MifareClassic系列芯片等，不同类型的芯片NDEF信息的存储方式也略有不同，这就大大增加了NDEF信息写入、读取的难度。

        广州荣士电子将各种不同类型的NDEF记录类型的写入、读取方式都函数化，开发人员不需再了解复杂的NDEF记录格式，只需调用相应的函数就可快速写入正确的NDEF信息。

 本说明使用的发卡器：Android Linux RFID读写器NFC发卡器WEB可编程NDEF文本/智能海报/-淘宝网 (taobao.com)

写入NDEF纯文本 

var
  status:byte;
  languagecodestr:string;
  languagecodestrlen:integer;
  textstr:string;
  textstrlen:integer;
begin
     languagecodestr:='en';    //语言编码，英文为en,中文为zh
     languagecodestrlen:=length(languagecodestr);   //语言编码长度
     textstr:=trim(Memo1.Text);         //NDEF文本
     textstrlen:= length(textstr);      //文本长度

     tagbuf_forumtype4_clear();     //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_addtext(languagecodestr, languagecodestrlen, textstr, textstrlen);  //生成NDEF纯文本标签数据缓冲
     if status=0 then
         WriteTag(1)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF纯文本数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

 写入NDEF智能海报

var
  status:byte;
  languagecodestr:string;
  languagecodestrlen:integer;
  titlestr:string;
  titlestrlen:integer;
  uriheaderindex:integer;
  uristr:string;
  uristrlen:integer;
begin
     languagecodestr:='en';    //语言编码，英文为en,中文为zh
     languagecodestrlen:=length(languagecodestr);   //语言编码长度
     titlestr:=trim(Edit1.Text);           //标题
     titlestrlen:= length(titlestr);       //标题长度
     uriheaderindex:=ComboBox1.ItemIndex ; //前缀
     uristr:=trim(Edit2.Text);             //URI
     uristrlen:= length(uristr);           //URI长度

     tagbuf_forumtype4_clear();            //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_adduri(languagecodestr, languagecodestrlen, titlestr, titlestrlen, uriheaderindex, uristr, uristrlen);  //生成NDEF URI标签数据缓冲
     if status=0 then
         WriteTag(2)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF URI数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

写NDEF地图坐标

var
  status:byte;
  languagecodestr:string;
  languagecodestrlen:integer;
  titlestr:string;
  titlestrlen:integer;
  uriheaderindex:integer;
  uristr:string;
  uristrlen:integer;
begin
     languagecodestr:='en';    //语言编码，英文为en,中文为zh
     languagecodestrlen:=length(languagecodestr);   //语言编码长度
     titlestr:=trim(Edit3.Text);           //标题,地点名称
     titlestrlen:= length(titlestr);       //标题长度
     uriheaderindex:=0 ;                   //前缀，地图坐标取0
     uristr:='geo:'+trim(Edit4.Text)+','+trim(Edit5.Text);    //URI,纬度，经度
     uristrlen:= length(uristr);           //URI长度

     tagbuf_forumtype4_clear();            //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_adduri(languagecodestr, languagecodestrlen, titlestr, titlestrlen, uriheaderindex, uristr, uristrlen);  //生成NDEF地图坐标标签数据缓冲
     if status=0 then
         WriteTag(3)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF地图坐标数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

写NDEF电子名片

var
  status:byte;
  infostr:string;
  infostrlen:integer;
begin
     infostr:='BEGIN:VCARD'+chr(10);                           //名片信息
     infostr:=infostr+'VERSION:3.0'+chr(10);
     infostr:=infostr+'FN:'+trim(Edit7.Text)+chr(10);          //姓名
     infostr:=infostr+'TEL:'+trim(Edit8.Text)+chr(10);         //电话
     infostr:=infostr+'ORG:'+trim(Edit9.Text)+chr(10);         //单位名称
     infostr:=infostr+'ADR:'+trim(Edit12.Text)+chr(10);        //地址
     infostr:=infostr+'EMAIL:'+trim(Edit10.Text)+chr(10);      //邮箱
     infostr:=infostr+'URL:'+trim(Edit11.Text)+chr(10);        //官网
     infostr:=infostr+'END:VCARD' +chr(10);

     infostrlen:=length(infostr);     //名片信息长度

     tagbuf_forumtype4_clear();       //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_addbusinesscard(infostr, infostrlen);  //生成NDEF电子名片标签数据缓冲
     if status=0 then
         WriteTag(5)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF电子名片数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

写NDEF控制标签WIFI连接

var
  status:byte;
  ssidstr:string;
  ssidstrlen:integer;
  keystr:string;
  keystrlen:integer;
  authtype:integer;
  crypttype:integer;
begin
     ssidstr:=trim(Edit13.Text);           //WIFI热点名称
     ssidstrlen:=length(ssidstr);          //热点名称长度
     authtype:=ComboBox2.ItemIndex ;       //认证方式
     crypttype:=ComboBox3.ItemIndex ;      //加密算法
     keystr:=trim(Edit14.Text);            //密码
     keystrlen:= length(keystr);           //密码长度

     tagbuf_forumtype4_clear();            //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_addwifi(ssidstr, ssidstrlen, authtype, crypttype, keystr, keystrlen);  //生成NDEF控制标签WIFI连接数据缓冲
     if status=0 then
         WriteTag(6)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF控制标签WIFI连接数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

写NDEF控制标签蓝牙连接 

var
  status:byte;
  blenamestr:string;
  blenamestrlen:integer;
  macstr:string;
  macbuf:array[0..5] of byte;
  AStrings: TStringList;
  i:integer;
begin
     blenamestr:=trim(Edit15.Text);           //蓝牙设备名称
     blenamestrlen:=length(blenamestr);       //蓝牙设备名称长度
     macstr:=trim(Edit16.Text);               //蓝牙设备MAC

     try
         AStrings := TStringList.Create;
         ExtractStrings([':'],[],Pchar(macstr),AStrings);
         if AStrings.Count =6 then
         begin
             for i:=0 to 5 do  macbuf[i]:=strtoint('$'+AStrings.Strings[i]);
         end
         else
         begin
              Application.MessageBox(PAnsiChar('MAC地址输入错误！'), '提示', MB_OK+MB_ICONSTOP);
              Edit16.SetFocus ;
              exit;
         end;
     except
         Application.MessageBox(PAnsiChar('MAC地址输入错误！'), '提示', MB_OK+MB_ICONSTOP);
         Edit16.SetFocus ;
         exit;
     end;

     tagbuf_forumtype4_clear();            //清空NDEF数据缓冲
     tagbuf_clear();
     status := tagbuf_addbluetooth(blenamestr, blenamestrlen, @macbuf);  //生成NDEF控制标签蓝牙连接数据缓冲
     if status=0 then
         WriteTag(7)  //将NDEF缓冲数据写入各种不同类型的NFC标签
     else
         Application.MessageBox('生成NDEF控制标签蓝牙连接数据缓冲失败！', '提示', MB_OK+MB_ICONINFORMATION);

将NDEF信息写入不同类型的NFC标签

var
  cardtyep:integer;
  status:byte;
  afi:byte;
  myctrlword:byte;
  mypiccserial:array[0..7] of byte;
  mypiccseriallen:array[0..0] of byte;
  dispinf:string;
  cardno:string;
  i:integer;
begin
     case NdefType of
          1:
            dispinf:='，写NDEF纯文本标签';
          2:
            dispinf:='，写NDEF URI标签';
          3:
            dispinf:='，写NDEF地图坐标标签';
          4:
            dispinf:='，写NDEF呼叫电话标签';
          5:
            dispinf:='，写NDEF电子名片标签';
          6:
            dispinf:='，写NDEF控制标签WIFI连接';
          7:
            dispinf:='，写NDEF控制标签蓝牙连接';
          8:
            dispinf:='，写NDEF控制标签启动应用';
          9:
            dispinf:='，写NDEF数据类型标签';
          44:
            dispinf:='，清除标签内NDEF信息';
     end;

     cardtyep:=checkcardtype;//判断发卡器上标签类型

     case  cardtyep of
          1:
          begin //写forumtype2 Ntag2标签
              if CheckBox1.Checked then myctrlword:=$10 else myctrlword:=0;
              status:= forumtype2_write_ndeftag(myctrlword, @mypiccserial, @oldpicckey);
              if  status=0 then
              begin
                  if (CheckBox1.Checked and CheckBox2.Checked=false) or (CheckBox1.Checked=false and CheckBox2.Checked) then  NtagKeyEn;   //开启或关闭密码保护

                  pcdbeep(38);
                  cardno:='ForumType2Uid：' ;
                  for i:=0 to 6 do cardno:=cardno+inttohex(mypiccserial[i],2);
                  Application.MessageBox(PAnsiChar(cardno+dispinf+'成功！'), '提示', MB_OK+MB_ICONINFORMATION);
              end
              else
                  disperrinf(status);
          end;
          2:
          begin  //写forumtype5 15693标签
              myctrlword:=0;
              afi:=0;
              status := forumtype5_write_ndeftag(myctrlword, afi, @mypiccserial);
              if  status=0 then
              begin
                  //if CheckBox2.Checked then status := iso15693lockblock(34, 1, @mypiccserial);    //警告：forumtype5、15693卡锁定块数据后只能读取不可再修改，为防止卡片锁死，仅在确定需要才开启此段代码。

                  pcdbeep(38);
                  cardno:='ForumType5Uid：' ;
                  for i:=0 to 7 do cardno:=cardno+inttohex(mypiccserial[7-i],2);
                  Application.MessageBox(PAnsiChar(cardno+dispinf+'成功！'), '提示', MB_OK+MB_ICONINFORMATION);
              end
              else
                  disperrinf(status);
          end;
          3:
          begin  //写MifareClassic标签
              if NdefType=44 then  //清空MifareClassic内NDEF信息并恢复到出厂状态
              begin
                  if CheckBox1.Checked then myctrlword:=$80+$40+$10+$2 else myctrlword:=$80+$10+$2;
                  status:= piccclear_ndeftag(myctrlword, @mypiccserial, @oldpicckey);
              end
              else
              begin     //写NDEF信息 到 MifareClassic标签内
                  if CheckBox1.Checked then myctrlword:=$80+$40+$10 else myctrlword:=$80+$10;
                  if CheckBox2.Checked then myctrlword:=myctrlword+$04;
                  status:= piccwrite_ndeftag(myctrlword, @mypiccserial, @oldpicckey,@newpicckey);
              end;
              if  status=0 then
              begin
                  pcdbeep(38);
                  cardno:='MifareClassUid：' ;
                  for i:=0 to 3 do cardno:=cardno+inttohex(mypiccserial[i],2);
                  Application.MessageBox(PAnsiChar(cardno+dispinf+'成功！'), '提示', MB_OK+MB_ICONINFORMATION);
              end
              else
                  disperrinf(status);
          end;
          4:
          begin  //写forumtype4 标签
              if CheckBox1.Checked then myctrlword:=$40 else myctrlword:=0;
              status := forumtype4_write_ndeftag(myctrlword, @mypiccserial, @mypiccseriallen, @newpicckey);
              if  status=0 then
              begin
                  pcdbeep(38);
                  cardno:='ForumType4Uid：' ;
                  for i:=0 to mypiccseriallen[0]-1 do cardno:=cardno+inttohex(mypiccserial[i],2);
                  Application.MessageBox(PAnsiChar(cardno+dispinf+'成功！'), '提示', MB_OK+MB_ICONINFORMATION);
              end
              else
                  disperrinf(status);
          end;
     end;

 读取不同类型芯片内的NDEF信息

var
  status: Byte;
  afi: Byte;
  cardtype: Integer;
  myctrlword: Byte;
  revstrlen: Integer;
  recordnumber: Integer;
  mypiccserial: array[0..7] of Byte;
  mypiccseriallen:array[0..0] of Byte;
  mypiccdata: array[0..2048] of Byte;
  cardno: string;
  ndefstr:string;
  ndefchr: PChar;
  ndefchr1:Pchar;
  i: Integer;
begin
     status:=255;
     memo2.Text :='';
     tagbuf_forumtype4_clear();            //清空NDEF数据缓冲
     tagbuf_clear();
     
     cardtype:=checkcardtype;//判断发卡器上标签类型

     case  cardtype of
          1:      //读forumtype2 Ntag2标签
          begin
              if CheckBox1.Checked then myctrlword:=$10 else myctrlword:=0;
              status := forumtype2_read_ndeftag(myctrlword, @mypiccserial, @oldpicckey);
              if status=0 then
              begin
                  cardno:='ForumType2Uid：' ;
                  for i:=0 to 6 do cardno:=cardno+inttohex(mypiccserial[i],2);
              end;
          end;
          2:     //读forumtype5 15693标签
          begin
              myctrlword:=0;
              afi:=0;
              status := forumtype5_read_ndeftag(myctrlword, afi, @mypiccserial);
              if status=0 then
              begin
                  cardno:='ForumType5Uid：' ;
                  for i:=0 to 7 do cardno:=cardno+inttohex(mypiccserial[7-i],2);
              end;
          end;
          3:      //读MifareClassic标签
          begin
              if CheckBox1.Checked then myctrlword:=$80+$40+$10 else myctrlword:=$80+$10;
              status := piccread_ndeftag(myctrlword, @mypiccserial, @oldpicckey);
              if status=0 then
              begin
                  cardno:='MifareClassUid：' ;
                  for i:=0 to 3 do cardno:=cardno+inttohex(mypiccserial[i],2);
              end;
          end;
          4:      //读forumtype4 标签
          begin
              if CheckBox1.Checked then myctrlword:=$40 else myctrlword:=0;
              status := forumtype4_read_ndeftag(myctrlword, @mypiccserial,@mypiccseriallen, @oldpicckey);
              if status=0 then
              begin
                  cardno:='ForumType4Uid：' ;
                  for i:=0 to mypiccseriallen[0]-1 do cardno:=cardno+inttohex(mypiccserial[i],2);
              end;
          end;
     end;

     if status=0 then
     begin
          pcdbeep(38);
          tagbuf_read(@mypiccdata, @revstrlen, @recordnumber);
          ndefstr:=cardno+chr(13)+chr(10);
          for i:=0 to revstrlen-1 do  ndefstr:=ndefstr+chr(mypiccdata[i]);
          Memo2.Text := ndefstr;
     end;