Delphi 串口通讯源码

串口读写器介绍：https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.11.22f8e728Vsc3IR&id=18645495882https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.11.22f8e728Vsc3IR&id=18645495882

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, SPComm, StdCtrls, Buttons,StrUtils, ComCtrls,Math, ExtCtrls,Clipbrd;type  TForm1 = class(TForm)    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;    ComboBox1: TComboBox;    ComboBox2: TComboBox;    ComboBox3: TComboBox;    BitBtn1: TBitBtn;    Comm1: TComm;    Label15: TLabel;    Label16: TLabel;    RichEdit13: TRichEdit;    UpDown11: TUpDown;    Timer3: TTimer;    Timer2: TTimer;    ListBox1: TListBox;    BitBtn5: TBitBtn;    RichEdit10: TRichEdit;    UpDown7: TUpDown;    Label4: TLabel;    PageControl1: TPageControl;    TabSheet1: TTabSheet;    TabSheet2: TTabSheet;    BitBtn2: TBitBtn;    Edit3: TEdit;    BitBtn3: TBitBtn;    ComboBox4: TComboBox;    ComboBox5: TComboBox;    Edit1: TEdit;    BitBtn4: TBitBtn;    RichEdit3: TRichEdit;    BitBtn6: TBitBtn;    Edit2: TEdit;    BitBtn8: TBitBtn;    Edit4: TEdit;    Edit5: TEdit;    Edit6: TEdit;    ComboBox6: TComboBox;    BitBtn9: TBitBtn;    ComboBox8: TComboBox;    Edit7: TEdit;    Label5: TLabel;    UpDown1: TUpDown;    RichEdit1: TRichEdit;    Label6: TLabel;    Label7: TLabel;    RichEdit2: TRichEdit;    UpDown2: TUpDown;    BitBtn10: TBitBtn;    RichEdit4: TRichEdit;    BitBtn7: TBitBtn;    Edit8: TEdit;    RadioButton1: TRadioButton;    RadioButton2: TRadioButton;    RadioButton3: TRadioButton;    RadioButton4: TRadioButton;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);    procedure BitBtn5Click(Sender: TObject);    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;      BufferLength: Word);    procedure BitBtn2Click(Sender: TObject);    procedure BitBtn3Click(Sender: TObject);    procedure BitBtn4Click(Sender: TObject);    procedure BitBtn6Click(Sender: TObject);    procedure BitBtn7Click(Sender: TObject);    procedure BitBtn8Click(Sender: TObject);    procedure BitBtn9Click(Sender: TObject);    procedure BitBtn10Click(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }   FuncCode:integer;//串口指令的功能代码    issendwaitrev1:Boolean;    sendwaitrevsize:Integer;    sendwaitData: array[0..100] of Byte;    S70Page:byte;    //s70扇区号    S70block:byte;   //S70绝对块地址    S70buffdata: array[0..300] of Byte;   //S70数据缓冲    S70buffp:Integer;    //s70数据指针    wstr:string;  //写卡数据    dispstr:string;    cardno10:string;  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var  i:Integer;  count:Integer;begin  dispstr:='';  count := 0;  for i := 0 to 20 do    //开发环境调试时，请关闭菜单栏  Tool/Debugger Options/integrated debugging 选项  begin      Comm1.CommName:='\\.\COM' + IntToStr(i);      try  Comm1.StartComm; //打开串口  Comm1.StopComm; //打开串口  ComboBox1.Items.Add('COM' + IntToStr(i));  count := count + 1;      except      end;    if(count>0) then    begin  ComboBox1.ItemIndex:=count-1;    end;    ComboBox4.ItemIndex:=1;    ComboBox5.ItemIndex:=1;    ComboBox6.ItemIndex:=2;    ComboBox8.ItemIndex:=0;  end;end;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.BitBtn5Click(Sender: TObject);var   sendd:array[0..4]of Byte;   //发送字节缓冲   SendDataStr:string;   delaytime:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    delaytime:=StrToInt(RichEdit10.Lines[0]);    sendd[0] := $03;  //指令长度    sendd[1] := $0F;  //指令代码    sendd[2] := delaytime mod 256;    sendd[3] := (delaytime div 256) mod 256;    sendd[4] := sendd[1] xor sendd[2] xor sendd[3];    FuncCode:=0;   //驱动在线站号发声    issendwaitrev1 := True;    sendwaitrevsize := 0;    Comm1.WriteCommData(@sendd[0], 5);    SendDataStr:='串口发送数据：';    for i:=0 to 4 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);vari,para:integer;answ:integer;GetdataStr:string;SendDataStr:string;cardhao:Longword;strls1,cardhaoStr:string;CRC:byte;sendd:array[0..20]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 beginListBox1.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    begincrc:=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   begincardhao := 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 thenbegin    if (S70Page>31) and (S70block31) and (S70block31) and (S70block14 then  beginGetdataStr:='';for i:=0 to S70buffp-1 dobegin     GetdataStr:=GetdataStr+inttohex(S70buffdata[i],2)+' ';end;RichEdit3.Text :=GetdataStr;  end;  if S70block31) and (S70block<15) then    begin  sendd[0]:=$12;  sendd[1]:=$A5;  sendd[2]:=128+(S70Page-32)*16+S70block;  crc:=sendd[1] xor sendd[2];  for i:=0 to 15 do  beginsendd[3+i]:=strtoint('$'+midstr(wstr,S70buffp*2-1,2));crc:=crc xor sendd[3+i];S70buffp:=S70buffp+1;  end;  sendd[3+16]:=crc;  FuncCode:=8;   //写S70的大扇区  issendwaitrev1 := True;  sendwaitrevsize := 0;  Comm1.WriteCommData(@sendd[0], 20);  SendDataStr:='串口发送数据：';  for i:=0 to 19 do  beginSendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';  end;  ListBox1.Items.Add(SendDataStr);  listbox1.ItemIndex:=listbox1.Count-1;  S70block:=S70block+1;    end    else  edit3.Text:=dispstr+' 写卡成功 ';      end      else      begin   edit3.Text:=dispstr+' 写卡失败 ';      end;  end;     end;   end;   end;end;procedure TForm1.BitBtn2Click(Sender: TObject);var   sendd:array[0..2]of Byte;   //发送字节缓冲   SendDataStr:string;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.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.BitBtn3Click(Sender: TObject);var   sendd:array[0..15]of Byte;   //发送字节缓冲   SendDataStr,wstr:string;   CRC:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    RichEdit3.Text :='';    sendd[0] := $0E;    sendd[1] := $78;    sendd[2] := $17;    sendd[3] := $0;    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := ComboBox4.ItemIndex;    //区号    sendd[8] := ComboBox5.ItemIndex;    //A/B    wstr:=trim(edit1.Text)+'FFFFFFFFFFFF';    for i:=0 to 5 do    beginsendd[9+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    CRC:=0;    FOR I:=1 TO 14 DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[15] := CRC;    FuncCode:=2;   //驱动读卡    issendwaitrev1 := True;    sendwaitrevsize := 0;    S70block:=3;    S70Page:=ComboBox4.ItemIndex;    S70buffp:=0;    Comm1.WriteCommData(@sendd[0], 16);    SendDataStr:='串口发送数据：';    for i:=0 to 15 do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';    end;    ListBox1.Items.Add(SendDataStr);    listbox1.ItemIndex:=listbox1.Count-1;end;procedure TForm1.BitBtn4Click(Sender: TObject);var   sendd:array[0..63]of Byte;   //发送字节缓冲   SendDataStr:string;   CRC:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    sendd[0] := $3E;    sendd[1] := $69;    sendd[2] := $17;    sendd[3] := $0;    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := ComboBox4.ItemIndex;    //区号    sendd[8] := ComboBox5.ItemIndex;    //A/B    wstr:=trim(edit1.Text)+'FFFFFFFFFFFF';    for i:=0 to 5 do    beginsendd[9+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    wstr:='';    if length(trim(RichEdit3.Lines[0]))>0 then wstr:=wstr+trim(RichEdit3.Lines[0]);    if length(trim(RichEdit3.Lines[1]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[1]);    if length(trim(RichEdit3.Lines[2]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[2]);    if length(trim(RichEdit3.Lines[3]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[3]);    if length(trim(RichEdit3.Lines[4]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[4]);    if length(trim(RichEdit3.Lines[5]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[5]);    if length(trim(RichEdit3.Lines[6]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[6]);    if length(trim(RichEdit3.Lines[7]))>0 then wstr:=wstr+' '+trim(RichEdit3.Lines[7]);    for i:=0 to  255 do //写入数据不足后面补0    begin if RadioButton1.Checked then wstr:=wstr+'00' else  wstr:=wstr+inttohex(i,2);  //按顺序写入数字    end;    wstr:=StringReplace(wstr, chr(32), '', [rfReplaceAll]);//删除空格    for i:=1 to 48 do    beginsendd[14+i]:=strtoint('$'+midstr(wstr,i*2-1,2));    end;    CRC:=0;    FOR I:=1 TO 62 DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[63] := CRC;    FuncCode:=3;   //驱动写卡    issendwaitrev1 := True;    sendwaitrevsize := 0;    S70buffp:=49;    S70block:=3;    S70Page:=ComboBox4.ItemIndex;    dispstr:='';    Comm1.WriteCommData(@sendd[0], 64);    SendDataStr:='串口发送数据：';    for i:=0 to 63 do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';  if i=32 then  beginListBox1.Items.Add(SendDataStr);listbox1.ItemIndex:=listbox1.Count-1;SendDataStr:='      ' ;  end;    end;    if  length(trim(SendDataStr))>0 then    begin ListBox1.Items.Add(SendDataStr); listbox1.ItemIndex:=listbox1.Count-1;    end;end;procedure TForm1.BitBtn6Click(Sender: TObject);var   sendd:array[0..21]of Byte;   //发送字节缓冲   SendDataStr,wstr:string;   CRC:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    RichEdit3.Text :='';    sendd[0] := $14;    sendd[1] := $3C;    sendd[2] := $17;    sendd[3] := $0;    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := ComboBox4.ItemIndex;    //区号    sendd[8] := ComboBox5.ItemIndex;    //A/B    wstr:=trim(edit1.Text)+'FFFFFFFFFFFF';  //旧密码    for i:=0 to 5 do    beginsendd[9+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    wstr:=trim(edit2.Text)+'FFFFFFFFFFFF';  //新密码    for i:=0 to 5 do    beginsendd[15+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    CRC:=0;    FOR I:=1 TO 20 DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[21] := CRC;    FuncCode:=4;   //驱动更改卡密码    issendwaitrev1 := True;    sendwaitrevsize := 0;    Comm1.WriteCommData(@sendd[0], 22);    SendDataStr:='串口发送数据：';    for i:=0 to 21 do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';    end;    ListBox1.Items.Add(SendDataStr);    listbox1.ItemIndex:=listbox1.Count-1;end;procedure TForm1.BitBtn7Click(Sender: TObject);beginListBox1.Clear();end;procedure TForm1.BitBtn8Click(Sender: TObject);var   sendd:array[0..32]of Byte;   //发送字节缓冲   SendDataStr,wstr:string;   CRC:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    if MessageDlg('错误的参数将会损坏卡片，确定要修改密码及控制字吗？',  mtWarning, mbOKCancel, 0)  mrOk then    begin      exit;    end;    RichEdit3.Text :='';    sendd[0] := $1F;    sendd[1] := $F1;    sendd[2] := $17;    sendd[3] := $0;    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := ComboBox4.ItemIndex;    //区号    sendd[8] := ComboBox5.ItemIndex;    //A/B    wstr:=trim(edit1.Text)+'FFFFFFFFFFFF';  //旧密码    for i:=0 to 5 do    beginsendd[9+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    wstr:=trim(edit4.Text)+'FFFFFFFFFFFF';  //新A密码    for i:=0 to 5 do    beginsendd[15+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    wstr:=trim(edit5.Text)+'FF078069';  //控制字    for i:=0 to 3 do    beginsendd[21+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    wstr:=trim(edit6.Text)+'FFFFFFFFFFFF';  //新B密码    for i:=0 to 5 do    beginsendd[25+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    sendd[31]:= ComboBox6.ItemIndex;    //控制字    if  sendd[31]>1 then  sendd[31]:=3;    CRC:=0;    FOR I:=1 TO 31 DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[32] := CRC;    FuncCode:=4;   //驱动更改卡密码    issendwaitrev1 := True;    sendwaitrevsize := 0;    Comm1.WriteCommData(@sendd[0], 33);    SendDataStr:='串口发送数据：';    for i:=0 to 32 do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';    end;    ListBox1.Items.Add(SendDataStr);    listbox1.ItemIndex:=listbox1.Count-1;end;procedure TForm1.BitBtn9Click(Sender: TObject);var   sendd:array[0..16]of Byte;   //发送字节缓冲   SendDataStr,wstr:string;   CRC:byte;   i:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    Edit8.Text :='';    RichEdit4.Text :='';    sendd[0] := $0F; //帧长度    sendd[1] := $1B; //命令字    if ComboBox8.ItemIndex=0 then sendd[2] := $00  //控制字 0 表示无需密码操作任意卡； +8 表示指定卡；+16表示 带密码操作    else sendd[2] := $10; //控制字 $10 表示带密码操作    sendd[3] := $0;  //指定7个字节要操作的卡号，如7字节全部取0表示可以操作任意卡    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := $0;    sendd[8] := $0;    sendd[9] := $0;    wstr:=trim(edit7.Text)+'00000000';    for i:=0 to 3 do    beginsendd[10+i]:=strtoint('$'+midstr(wstr,i*2+1,2));    end;    sendd[14] := StrToInt(RichEdit1.Lines[0]);    sendd[15] := StrToInt(RichEdit2.Lines[0]);    CRC:=0;    FOR I:=1 TO 15 DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[16] := CRC;    FuncCode:=5;   //驱动读Ntag21x    issendwaitrev1 := True;    sendwaitrevsize := 0;    Comm1.WriteCommData(@sendd[0], 17);    SendDataStr:='串口发送数据：';    for i:=0 to 16 do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';    end;    ListBox1.Items.Add(SendDataStr);    listbox1.ItemIndex:=listbox1.Count-1;end;procedure TForm1.BitBtn10Click(Sender: TObject);var   sendd:array[0..100]of Byte;   //发送字节缓冲   SendDataStr,wstr,pstr:string;   CRC:byte;   i,wlen:integer;begin    if(BitBtn1.Caption  '关闭串口') then    beginApplication.MessageBox('请先打开串口再进行修改在线设备站号的操作！', '警告', MB_OK+MB_ICONSTOP);Exit;    end;    if StrToInt(RichEdit2.Lines[0])>11 then    begin Application.MessageBox('每次写卡最多只能连写11个页！', '警告', MB_OK+MB_ICONSTOP); Exit;    end;    Edit8.Text :='';    wlen:=StrToInt(RichEdit2.Lines[0])*4;    wstr:='';    if length(trim(RichEdit4.Lines[0]))>0 then wstr:=wstr+trim(RichEdit4.Lines[0]);    if length(trim(RichEdit4.Lines[1]))>0 then wstr:=wstr+trim(RichEdit4.Lines[1]);    wstr:=StringReplace(wstr, chr(32), '', [rfReplaceAll]);//删除空格    if length(wstr)< wlen*2-1 then    begin if MessageDlg('写卡数据不足，是否要按条件补足写入？',  mtWarning, mbOKCancel, 0)  mrOk then begin      exit; end;    end;    for i:=0 to  47 do    begin if RadioButton3.Checked then wstr:=wstr+'00' else  wstr:=wstr+inttohex(i,2);  //按顺序写入数字    end;    sendd[0] := 15+wlen;    //帧长度    sendd[1] := $1C; //命令字    if ComboBox8.ItemIndex=0 then sendd[2] := $00  //控制字 0 表示无需密码操作任意卡； +8 表示指定卡；+16表示 带密码操作    else sendd[2] := $10; //控制字 $10 表示带密码操作    sendd[3] := $0;  //指定7个字节要操作的卡号，如7字节全部取0表示可以操作任意卡    sendd[4] := $0;    sendd[5] := $0;    sendd[6] := $0;    sendd[7] := $0;    sendd[8] := $0;    sendd[9] := $0;    pstr:=trim(edit7.Text)+'00000000';    for i:=0 to 3 do    beginsendd[10+i]:=strtoint('$'+midstr(pstr,i*2+1,2));    end;    sendd[14] := StrToInt(RichEdit1.Lines[0]);    sendd[15] := StrToInt(RichEdit2.Lines[0]);    try      for i:=1 to wlen do      begin  sendd[15+i]:=strtoint('$'+midstr(wstr,i*2-1,2));      end;    except      begin   Application.MessageBox('写卡数据异常！', '警告', MB_OK+MB_ICONSTOP);   Exit;      end;    end;    CRC:=0;    FOR I:=1 TO 15+wlen DO    BEGINCRC:=CRC XOR sendd[I];    END;    sendd[16+wlen] := CRC;    FuncCode:=6;   //驱动写Ntag21x    issendwaitrev1 := True;    sendwaitrevsize := 0;    Comm1.WriteCommData(@sendd[0], 17+wlen);    SendDataStr:='串口发送数据：';    for i:=0 to 16+wlen do    begin  SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';    end;    ListBox1.Items.Add(SendDataStr);    listbox1.ItemIndex:=listbox1.Count-1;end;procedure TForm1.Button1Click(Sender: TObject);var liststr:string; i:integer;begin  liststr:='';  for i:=0 to listbox1.Count-1 do  begin      ListBox1.ItemIndex:=i;      liststr:=liststr+ListBox1.Items.Strings[ListBox1.ItemIndex]+#13#10;  end;  Clipboard.SetTextBuf(PChar(liststr));end;end.

项目源码及控件下载：Delph_Spcomm_NFC串口读写器源码-智慧城市文档类资源-CSDN下载Delphi7使用串口通讯控件SPcomm，连接RFID、NFC串口发卡器读、写M1、S50、S70更多下载资源、学习资料请访问CSDN下载频道.https://download.csdn.net/download/zhangjin7422/85358751