我的程序分析之路

unit reader;      {这个是我标注的}
{疑问：
1.  curOrderNo curOperNo  orderLst  recDataLst 这些都是干什么的
}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, SPComm;

type                         //定义类
  TfrmReader = class(TForm)
    pnlTitle: TPanel;
    comReader: TComm;
    Label6: TLabel;
    Panel1: TPanel;
    pgcReader: TPageControl;
    tbsConfig: TTabSheet;
    gbCommSet: TGroupBox;
    lblComName: TLabel;
    lblBaudRate: TLabel;
    lblParity: TLabel;
    lblByteSize: TLabel;
    lblStopBits: TLabel;
    cbComName: TComboBox;
    cbBaudRate: TComboBox;
    cbParity: TComboBox;
    cbByteSize: TComboBox;
    cbStopBits: TComboBox;
    btnChComm: TButton;
    btnTestReader: TButton;
    memComSet: TMemo;
    edStatus: TEdit;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Button1: TButton;
    Button18: TButton;
    GroupBox16: TGroupBox;
    ComboBox20: TComboBox;
    tbsLowLevel: TTabSheet;
    gbLoweOper: TGroupBox;
    btnSeekCard: TButton;
    btnCollision: TButton;
    btnSelect: TButton;
    btnTerminate: TButton;
    gbLowRe: TGroupBox;
    memLowRe: TMemo;
    tbsPassDown: TTabSheet;
    gbPasswordDown: TGroupBox;
    lblPDSector0: TLabel;
    lblPDSector1: TLabel;
    lblPDSector2: TLabel;
    lblPDSector3: TLabel;
    lblPDSector4: TLabel;
    lblPDSector5: TLabel;
    lblPDSector6: TLabel;
    lblPDSector7: TLabel;
    lblPDSector8: TLabel;
    lblPDSector9: TLabel;
    lblPDSectorA: TLabel;
    lblPDSectorB: TLabel;
    lblPDSectorC: TLabel;
    lblPDSectorD: TLabel;
    lblPDSectorE: TLabel;
    lblPDSectorF: TLabel;
    edtSecPwd0: TEdit;
    edtSecPwd1: TEdit;
    edtSecPwd2: TEdit;
    edtSecPwd3: TEdit;
    edtSecPwd4: TEdit;
    edtSecPwd5: TEdit;
    edtSecPwd6: TEdit;
    edtSecPwd7: TEdit;
    edtSecPwd8: TEdit;
    edtSecPwd9: TEdit;
    edtSecPwd10: TEdit;
    edtSecPwd11: TEdit;
    edtSecPwd12: TEdit;
    edtSecPwd13: TEdit;
    edtSecPwd14: TEdit;
    edtSecPwd15: TEdit;
    rgSePwdOrg: TRadioGroup;
    btnPwdDwn: TButton;
    tbsDataOper: TTabSheet;
    gbRWSector: TGroupBox;
    lblBlock0: TLabel;
    lblBlock1: TLabel;
    lblBlock2: TLabel;
    lblBlock3: TLabel;
    edtBlock0: TEdit;
    edtBlock1: TEdit;
    edtBlock2: TEdit;
    edtBlock3: TEdit;
    gbRWSeSec: TGroupBox;
    cbRWSec: TComboBox;
    btnBlockRd: TButton;
    btnBlockWt: TButton;
    tbsBlockOper: TTabSheet;
    gbReOrWt: TGroupBox;
    lblCurValue: TLabel;
    lblOpeValue: TLabel;
    edtCurValue: TEdit;
    edtOpeValue: TEdit;
    gbBkSec: TGroupBox;
    cbBSecSe: TComboBox;
    gbBlokSe: TGroupBox;
    cbBSe: TComboBox;
    btnBlockInit: TButton;
    btnBlockRead: TButton;
    btnBlockAdd: TButton;
    btnBlockSub: TButton;
    tbsPassCh: TTabSheet;
    gbEntryPwd: TGroupBox;
    lblPwdA: TLabel;
    lblPwdB: TLabel;
    edtPwdA: TEdit;
    edtPwdB: TEdit;
    gbConBit: TGroupBox;
    lblConBit0: TLabel;
    lblConBit1: TLabel;
    lblConBit2: TLabel;
    lblConBit3: TLabel;
    edtConBit0: TEdit;
    edtConBit1: TEdit;
    edtConBit2: TEdit;
    edtConBit3: TEdit;
    gbChPwdSec: TGroupBox;
    cbChPwdSec: TComboBox;
    btnChPwd: TButton;
    btnChCon: TButton;
    tbsSeRe: TTabSheet;
    gbComSendRec: TGroupBox;
    lblExplain: TLabel;
    memComSeRe: TMemo;
    TabSheet2: TTabSheet;
    PageControl1: TPageControl;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    TabSheet4: TTabSheet;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    ComboBox15: TComboBox;
    Button4: TButton;
    TabSheet5: TTabSheet;
    GroupBox4: TGroupBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    GroupBox5: TGroupBox;
    Memo2: TMemo;
    TabSheet6: TTabSheet;
    GroupBox6: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    RadioGroup1: TRadioGroup;
    Button9: TButton;
    TabSheet7: TTabSheet;
    GroupBox7: TGroupBox;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label48: TLabel;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit29: TEdit;
    Button10: TButton;
    Button11: TButton;
    GroupBox8: TGroupBox;
    ComboBox16: TComboBox;
    TabSheet8: TTabSheet;
    GroupBox9: TGroupBox;
    Label39: TLabel;
    Label40: TLabel;
    Edit21: TEdit;
    Edit22: TEdit;
    GroupBox10: TGroupBox;
    ComboBox17: TComboBox;
    GroupBox11: TGroupBox;
    ComboBox18: TComboBox;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    TabSheet9: TTabSheet;
    GroupBox12: TGroupBox;
    Label41: TLabel;
    Label42: TLabel;
    Edit23: TEdit;
    Edit24: TEdit;
    GroupBox13: TGroupBox;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    GroupBox14: TGroupBox;
    ComboBox19: TComboBox;
    Button16: TButton;
    Button17: TButton;
    TabSheet10: TTabSheet;
    GroupBox15: TGroupBox;
    Label47: TLabel;
    Memo3: TMemo;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    Memo4: TMemo;
    GroupBox17: TGroupBox;
    Label50: TLabel;
    ImageOff: TImage;
    ImageOn: TImage;
    Label49: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Button19: TButton;
    Button20: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure comReaderReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure btnTestReaderClick(Sender: TObject);
    procedure btnSeekCardClick(Sender: TObject);
    procedure btnCollisionClick(Sender: TObject);
    procedure btnSelectClick(Sender: TObject);
    procedure btnTerminateClick(Sender: TObject);
    procedure btnPwdDwnClick(Sender: TObject);
    procedure btnBlockRdClick(Sender: TObject);
    procedure btnBlockWtClick(Sender: TObject);
    procedure btnBlockInitClick(Sender: TObject);
    procedure cbRWSecChange(Sender: TObject);
    procedure btnBlockReadClick(Sender: TObject);
    procedure btnBlockAddClick(Sender: TObject);
    procedure btnBlockSubClick(Sender: TObject);
    procedure btnChPwdClick(Sender: TObject);
    procedure btnChCommClick(Sender: TObject);
    procedure memLowReDblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure memComSetDblClick(Sender: TObject);
    procedure memComSeReDblClick(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure GroupBox7DblClick(Sender: TObject);
    procedure Edit17DblClick(Sender: TObject);
    procedure Edit18DblClick(Sender: TObject);
    procedure Edit19DblClick(Sender: TObject);
    procedure Edit20DblClick(Sender: TObject);
    procedure Edit29DblClick(Sender: TObject);
    procedure Memo4DblClick(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure cbBaudRateChange(Sender: TObject);
    procedure edtSecPwd0DblClick(Sender: TObject);
    procedure edtSecPwd1DblClick(Sender: TObject);
    procedure edtSecPwd2DblClick(Sender: TObject);
    procedure edtSecPwd3DblClick(Sender: TObject);
    procedure edtSecPwd4DblClick(Sender: TObject);
    procedure edtSecPwd5DblClick(Sender: TObject);
    procedure edtSecPwd6DblClick(Sender: TObject);
    procedure edtSecPwd7DblClick(Sender: TObject);
    procedure edtSecPwd8DblClick(Sender: TObject);
    procedure edtSecPwd9DblClick(Sender: TObject);
    procedure edtSecPwd10DblClick(Sender: TObject);
    procedure edtSecPwd11DblClick(Sender: TObject);
    procedure edtSecPwd12DblClick(Sender: TObject);
    procedure edtSecPwd13DblClick(Sender: TObject);
    procedure edtSecPwd14DblClick(Sender: TObject);
    procedure edtSecPwd15DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
 private
    { Private declarations }                 //定义私有成员
    function exchData(orderStr : string):string;
    procedure sendData();
    procedure checkOper();
    procedure ShowStatus;
    procedure EnumComPorts(Ports: TStrings);
  public
    { Public declarations }
  end;

var
    multflag : integer=0;
    frmReader : TfrmReader;          //生成TForm1类对象Form1
    curOrderNo : integer=0;         //当前操作命令号
    curOperNo : integer=0;          //当前操作码类型
    orderLst : Tstrings;       //发送的命令
    recDataLst : Tstrings;    //接收的数据
    buffer : array [0..2048] of byte;

implementation

{$R *.dfm}

//转换发送数据格式  也就是转化为二进制
function TfrmReader.exchData(orderStr : string):string;
var
    ii,jj : integer;
    TmpStr : string;
    reTmpStr : string;
begin
    if (length(orderStr)=0) then
    begin
        MessageBox(handle,'传入参数不能为空!','错误',MB_ICONERROR+MB_OK);
        result:='';     //无返回
        exit;
    end;
    if (length(orderStr) mod 2) <> 0 then      //mod求摸
    begin
        MessageBox(handle,'传入参数错误!','错误',MB_ICONERROR+MB_OK);
        result:='';
        exit;
    end;
    for ii:=1 to (length(orderStr) div 2) do
    begin
        tmpStr:=copy(orderStr,ii*2-1,2);
        jj:=strToint('$' + tmpStr);             //必须要添加上'$'
        reTmpStr:=reTmpStr+chr(jj);          //chr函数转化为ACSll代码 就是二进制代码 另外一种解释16进制字符串转换成字符串
    end;
    result:=reTmpStr; //返回
end;

//发送数据过程
procedure TfrmReader.sendData();
var
    orderStr : string;
begin
    if orderLst.Count > curOrderNo then        //curOrdeNo 当前操作命令号  这里不明白
    begin
        orderStr:=orderLst.Strings[curOrderNo];
        memComSeRe.Lines.Add('==>> '+orderStr);  //在《发送接收》栏窗口显示
        orderStr:=exchData(orderStr);     //转化格式
        comReader.WriteCommData(pchar(orderStr),length(orderStr));    //发送orderstr，用于发送一个字符串到写线程，发送成功返回true,发送失败返回false,
                                                                    //执行此函数将立即得到返回值，发送操作随后执行。函数有两个参数，其中
                                                                    //pdatatowrite是要发送的字符串，dwsizeofdatatowrite 是发送的长度。
        inc(curOrderNo);    //当前操作命令号自增
    end;
end;

//接收数据过程
procedure TfrmReader.comReaderReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
    ii,i : integer;
    recStr : string;
    tmpStr,tmpStr1 : string;
begin
    recStr:='';
    SetLength(tmpStr, BufferLength);//定义tmpstr的长度就是 BufferLength
    move(buffer^,pchar(tmpStr)^,BufferLength); //这里是一个固定的格式就跟copy一样的
    for ii:=1 to BufferLength do
    begin
        recStr:=recStr+intTohex(ord(tmpStr[ii]),2);   //字符串转换成16进制字符串
    end;                                            //以上这个是接收的固定格式
    memComSeRe.Lines.Add('<<== '+recStr); //《发送接收》栏窗口显示
    tmpStr1:= copy(recStr,3,2);   //从第三位拷贝，连续拷贝两个字符
    if   strtoint('$'+tmpStr1)= $0E then
      begin
        curOperNo:=16;   //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
        Button18.Enabled :=true;     //<采集器设置>栏选择扇区号按钮使能
        recDataLst.Clear();
        Memo4.Lines.Add('              多卡采集启动！              ');
      end;

    recDataLst.Add(recStr);
    if curOrderNo < orderLst.Count then
        sendData()
    else begin
        checkOper();    //检查返回的数据并显示
        memComSeRe.Lines.Append('');     //和add一样的结果
    end;
end;

//检查返回的数据并显示
procedure tfrmReader.checkOper();
var
    i,ii,jj : integer;
    tmpStr,tmpStr1,tmpStr2,tmpStr3 : string;
begin
    case curOperNo of
        0 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        memComSet.Lines.Add('读卡器连结失败');
                        memComSet.Lines.Add('');
                        exit;
                    end;
                memComSet.Lines.Add('读卡器连结成功');
                memComSet.Lines.Add('');
            end;
        1 : begin
                memLowRe.Lines.Add('命令: 寻卡');
                if copy(recDataLst.Strings[0],3,2)<>'00' then //如果返回的命令字为00则说明讯卡失败
                    memLowRe.Lines.Add('结果: 寻卡失败')
                else
                begin
                    memLowRe.Lines.Add('结果: 寻卡成功');
                    if copy(recDataLst.Strings[0],5,2)='04' then    //这个请看RC500通信协议04表示的是Mifare one
                        memLowRe.Lines.Add('该卡片为Mifare one')
                    else
                        memLowRe.Lines.Add('该卡片为其它类型');
                end;
                memLowRe.Lines.Add('');   //空出来一行
            end;
        2 : begin
                memLowRe.Lines.Add('命令: 防冲突');
                if copy(recDataLst.Strings[0],3,2)<>'00' then      //下面的都是一样的只要命令字返回00则表示的是失败
                    memLowRe.Lines.Add('结果: 防冲突失败')
                else begin
                    memLowRe.Lines.Add('结果: 防冲突成功');
                    tmpStr:=recDataLst.Strings[0];
                    tmpStr:=copy(tmpStr,5,length(tmpStr)-4);
                    memLowRe.Lines.Add('序号: '+tmpStr);
                end;
                memLowRe.Lines.Add('');
            end;
        3 : begin
                memLowRe.Lines.Add('命令: 选择');
                if copy(recDataLst.Strings[0],3,2)<>'00' then
                    memLowRe.Lines.Add('结果: 选择失败')
                else
                    memLowRe.Lines.Add('结果: 选择成功');
                memLowRe.Lines.Add('');
            end;
        4 : begin
                memLowRe.Lines.Add('命令: 终止');
                if copy(recDataLst.Strings[0],3,2)<>'00' then
                    memLowRe.Lines.Add('结果: 终止失败')
                else
                    memLowRe.Lines.Add('结果: 终止成功');
                memLowRe.Lines.Add('');
            end;
        5 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then         //密码下载
                    begin
                        MessageBox(handle,'密码下载失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'密码下载成功','成功',MB_OK);
            end;
      6 : begin
                for i:=0 to 3 do
                begin
                    if copy(recDataLst.Strings[i+4],3,2)<>'00' then      //检测每个扇区的块三的密码是否存在
                    begin
                        gbRWSector.Caption:=cbRWSec.Text+'读取失败';// <数据读写模块> 选择扇区的扇区号并在这个栏的大标题框中提示出来
                        exit;
                    end;                                              {09 06 60 01 FF FF FF FF FF FF 这里面06是命令字60为PICC-AYTHENT1A
                                                                      (61为PICC-AYTHENT1B),01为扇区号，12个F为密码在这里可以设置32位 }
                end;
                edtBlock0.Text:=copy(recDataLst.Strings[4],5,32);   //前六位是密码位，总共可以设置32位的密码
                edtBlock1.Text:=copy(recDataLst.Strings[5],5,32);
                edtBlock2.Text:=copy(recDataLst.Strings[6],5,32);
                edtBlock3.Text:=copy(recDataLst.Strings[7],5,32);
                gbRWSector.Caption:=cbRWSec.Text+'读取成功';
            end;      
        7 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        gbRWSector.Caption:=cbRWSec.Text+'写入失败';
                        exit;
                    end;
                gbRWSector.Caption:=cbRWSec.Text+'写入成功';
            end;
        8 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        MessageBox(handle,'块值初始化失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'块值初始化成功','成功',MB_OK);
            end;
        9 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        MessageBox(handle,'块值读取失败','失败',MB_OK);
                        exit;
                    end;
                tmpStr1:=copy(recDataLst.Strings[4],5,8);
                tmpStr:='';
                for i:=3 downto 0 do
                  begin
                    tmpStr:=tmpStr + copy(tmpStr1,(i*2+1),2);
                  end;
                edtCurValue.Text:=tmpStr;
                MessageBox(handle,'块值读取成功','成功',MB_OK);
            end;
        10 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        MessageBox(handle,'块值加值失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'块值加值成功','成功',MB_OK);
            end;
        11 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        MessageBox(handle,'块值减值失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'块值减值成功','成功',MB_OK);
            end;
        12 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        MessageBox(handle,'密码修改失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'密码修改成功','成功',MB_OK);
            end;
        13 : begin
                 if copy(recDataLst.Strings[0],3,2)<>'00' then
                    begin
                        MessageBox(handle,'下位机波特率修改失败','失败',MB_OK);
                        exit;
                    end;
                MessageBox(handle,'下位机波特率修改成功，请把上位机波特率设置为和下位机一样！','成功',MB_OK);
            end;
        14 : begin
                for i:=0 to recDataLst.Count-1 do
                    if copy(recDataLst.Strings[i],3,2)<>'00' then
                    begin
                        GroupBox7.Caption:=ComBoBox16.Text+'写入失败';
                        exit;
                    end;
                GroupBox7.Caption:=ComBoBox16.Text+'写入成功';
            end;
        15 : begin
                for i:=0 to 3 do
                begin
                    if copy(recDataLst.Strings[i+4],3,2)<>'00' then
                    begin
                        GroupBox7.Caption:=ComBoBox16.Text+'读取失败';
                         Edit17.Text:='';
                         Edit18.Text:='';
                         Edit19.Text:='';
                         Edit20.Text:='';
                         Edit29.Text:='';
                        exit;
                    end;
                end;
                tmpStr3:='';
                tmpStr:=copy(recDataLst.Strings[4],5,32);
                tmpStr2:='';
                for ii:=1 to (length(tmpStr) div 2) do
                  begin
                    tmpStr1:=copy(tmpStr,ii*2-1,2);
                    tmpStr2:=tmpStr2+chr(strToint('$'+tmpStr1));
                  end;
                tmpStr3:=tmpStr3+tmpStr2;
                tmpStr:=copy(recDataLst.Strings[5],5,32);
                tmpStr2:='';
                for ii:=1 to (length(tmpStr) div 2) do
                  begin
                    tmpStr1:=copy(tmpStr,ii*2-1,2);
                    tmpStr2:=tmpStr2+chr(strToint('$'+tmpStr1));
                  end;
                tmpStr3:=tmpStr3+tmpStr2;
                tmpStr:=copy(recDataLst.Strings[6],5,32);
                tmpStr2:='';
                for ii:=1 to (length(tmpStr) div 2) do
                  begin
                    tmpStr1:=copy(tmpStr,ii*2-1,2);
                    tmpStr2:=tmpStr2+chr(strToint('$'+tmpStr1));
                  end;
                tmpStr3:=tmpStr3+tmpStr2;

                jj:=1;
                i:= integer(tmpStr3[jj]);
                Edit17.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('姓名： '+Edit17.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit18.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('性别： '+Edit18.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit19.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('职务： '+Edit19.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit20.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('学号： '+Edit20.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit29.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('学校： '+Edit29.Text+#13+#10);
                GroupBox7.Caption:=ComBoBox16.Text+'读取成功';

            end;
        16 : begin
                if  length(recDataLst.Strings[0])<=30 then
                     begin
                     recDataLst.Clear();
                     exit;
                     end;
                tmpStr := '';
                tmpStr2:=copy(recDataLst.Strings[0],5,32);
                tmpStr := tmpStr + tmpStr2;
                tmpStr2:=copy(recDataLst.Strings[0],41,32);
                tmpStr := tmpStr + tmpStr2;
                tmpStr2:=copy(recDataLst.Strings[0],77,32);
                tmpStr := tmpStr + tmpStr2;
                tmpStr3:='';
                for ii:=1 to (length(tmpStr) div 2) do
                  begin
                    tmpStr1:=copy(tmpStr,ii*2-1,2);
                    tmpStr3:=tmpStr3+chr(strToint('$'+tmpStr1));
                  end;

                jj:=1;
                i:= integer(tmpStr3[jj]);
                Edit17.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('姓名：'+Edit17.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit18.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('性别：'+Edit18.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit19.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('职务：'+Edit19.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit20.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('学号：'+Edit20.Text);

                jj:=jj+i+1;
                i:= integer(tmpStr3[jj]);
                Edit29.Text:=copy(tmpStr3,jj+1,i);
                Memo4.Lines.Add('学校：'+Edit29.Text+#13+#10);

                recDataLst.Clear();
            end;
        17 : begin
               if (copy(recDataLst.Strings[0],3,2)<>'00') then
                    MessageBox(handle,'更改扇区失败','失败',MB_OK)
                  else
                    MessageBox(handle,'更改扇区成功','成功',MB_OK);
               curOperNo:=16;                            
             end;

    end;
end;

//系统初始化
procedure TfrmReader.FormShow(Sender: TObject);
begin

    comReader.StopComm(); //关闭串口
    orderLst:=TStringList.Create;
    recDataLst:=tStringList.Create;

    btnChComm.Caption := '打开串口';
    cbComName.Enabled := true;   //串口号波特率校验位  数据位 停止位下拉列表使能
    cbBaudRate.Enabled := true;
    cbParity.Enabled := true;
    cbByteSize.Enabled := true;
    cbStopBits.Enabled := true;
    ImageOn.Visible   := false; //串口打开或关闭图片显示设置
    ImageOff.Visible  := true;

    Button18.Enabled :=false;    //选择扇区按钮不使能（采集器设置栏）
    Label50.Caption :='多卡采集模式';// （多卡采集演示栏）
    label7.Caption :='说明：'+chr(13)+'1、如果下位机的晶振是11.0592MHz，那么波特率不支持38400'
    +'和115200；如果下位机的晶振是22.1184MHz，那么将支持左边所有的波特率设置。'+chr(13)
    +'2、下位机采集系统的波特率设置只能是左边列出来的这几种，其他的暂不支持！'
    +chr(13)+'3、"设置下位机波特率"将会把修改过的波特率写入到EEPROM，请牢记已经更改了的波特率!';     //(采集器设置栏)
    label51.Caption :='注意：'+chr(13)+'0扇区0块是只读的，在写入数据的时候要把它清空，否则，无法写入数据！';//（数据读写栏）
    label52.Caption :='注意：'+chr(13)+'1、0扇区0块是只读的，无法进行初始化、加值和减值操作！'+chr(13)
    +'2、在加值、减值操作之前要先进行初始化操作！'+chr(13) + '3、输入的数值都是十六进制！';; //(块值操作栏)
    label53.Caption :='注意：'+chr(13)+'在修改密码前要先对相应的扇区进行数据读出操作！';  //（修改密码栏）
    //+chr(13)表示回车+chr(10)表示换行
    //ShowMessage('正在设置系统');
    edtOpeValue.Text:='12345678'; //(操作值（块值操作栏）)
    ShowStatus;
end;
//释放系统资源
procedure TfrmReader.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    orderLst.Free();
    recDataLst.Free();
    comReader.StopComm();
end;

//扇区号变化
procedure TfrmReader.cbRWSecChange(Sender: TObject);   //扇区号发生变化的时候块值栏变为初始值   不用看
begin
    gbRWSector.Caption:=cbRWSec.Text;
    edtBlock0.Text:='';
    edtBlock1.Text:='';
    edtBlock2.Text:='';
    edtBlock3.Text:='';
end;

//测试读卡器.
procedure TfrmReader.btnTestReaderClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=0;      //  00成功10失败  //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('测试读卡器');
    orderLst.Add('020B0F');  //蜂鸣器启动表明测试读卡器按键被按下 以下都是一样的
    sendData();
end;
//寻卡
procedure TfrmReader.btnSeekCardClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=1;     //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('寻卡');
    orderLst.Add('020226'); //02为命令字，26为 卡系列号
    orderLst.Add('020B0F');
    sendData();
end;
//防冲突
procedure TfrmReader.btnCollisionClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=2;   //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('防冲突');
    orderLst.Add('0103'); //03为命令字
    orderLst.Add('020B0F');
    sendData();
end;
//选择卡
procedure TfrmReader.btnSelectClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=3;  //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('选择');
    orderLst.Add('0104');   //04为命令字即选择卡
    orderLst.Add('020B0F');
    sendData();
end;
//终止卡
procedure TfrmReader.btnTerminateClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=4;    //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('终止');
    orderLst.Add('0101');    //都是一样的   命令字  不得不佩服这个软件的编程者有很高的思维能力，写的程序一点都不乱
    orderLst.Add('020B0F');
    sendData();
end;
//密码下载
procedure TfrmReader.btnPwdDwnClick(Sender: TObject);
var
    i,j,allpwdflag : integer;
    nameStr,pwdStr,noStr,pwdOrg : string;
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=5;    //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    allpwdflag:=0;  //至少有一个密码不为空标志位
    memComSeRe.Lines.Add('密码下载');

    if rgSePwdOrg.ItemIndex=0 then
        pwdOrg:='60'          //60为IC卡密码的类型一个是密码A ,61为密码B
    else
        pwdOrg:='61';
    for i:=0 to ComponentCount-1 do
    begin
        if components[i] is TEdit then    //如果components[i]是TEdit类型的话就执行下面的语句
        begin
            nameStr:=components[i].Name;
            if copy(nameStr,1,9)='edtSecPwd' then
            begin
                noStr:=copy(nameStr,10,length(nameStr)-9);
                pwdStr:=(components[i] as TEdit).Text;
                 if pwdStr<>'' then
                 begin
                    allpwdflag:=1;
                    noStr:=intTohex(strToint(noStr),2);
                    if length(pwdStr)<12 then
                    begin
                        MessageBox(handle,PChar(noStr+' 扇区密码位数据错误'),'错误',MB_OK);
                        exit;
                    end;
                    for j:=1 to length(pwdStr) do
                        if  not (pwdStr[j] in ['0'..'9','A'..'F','a'..'f']) then   //如果超过十六进制的字符范围就警告
                        begin
                            MessageBox(handle,PChar(noStr+' 扇区密码含有非法数据'),'错误',MB_OK);
                            exit;
                        end;
                    orderLst.Add('0906'+pwdOrg+noStr+pwdStr);
                    //ShowMessage('0906'+pwdOrg+noStr+pwdStr);
                 end;
            end;
        end;
    end;
    if (allpwdflag=1) then
       begin
          orderLst.Add('020B0F');
          sendData();
       end
    else
       begin
       MessageBox(handle,'所有的密码都为空，请输入要下载的密码！','错误',MB_OK);
       //MessageBeep(10);
       end;
end;
//扇区内容读取
procedure TfrmReader.btnBlockRdClick(Sender: TObject);
var
    i : integer;
    curSectorNo : string;
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=6;     //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    curSectorNo:=intTohex(cbRWSec.ItemIndex,2);
    memComSeRe.Lines.Add(intTostr(cbRWSec.ItemIndex)+'扇区内容读取');
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+curSectorNO+intTohex(cbRWSec.ItemIndex*4,2));
    for i:=0 to 3 do
        orderLst.Add('0208'+intTohex(cbRWSec.ItemIndex*4+i,2));
    orderLst.Add('020B0F');
    sendData();
end;
//扇区数据写入
procedure TfrmReader.btnBlockWtClick(Sender: TObject);
var
    i : integer;
    blockCont : string;
    curSectorNo : string;
begin
    if (edtBlock0.Text<>'') or (edtBlock1.Text<>'') or (edtBlock2.Text<>'') then    //如果《数据读写》栏的块值0，1，2其中有一个不是空的
   else
        exit;
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=7;        //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    curSectorNo:=intTohex(cbRWSec.ItemIndex,2);
    //memComSeRe.Lines.Add(intTostr(cbRWSec.ItemIndex)+'扇区内容写入');
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+curSectorNO+intTohex(cbRWSec.ItemIndex*4,2));

    blockCont:=edtBlock0.Text;
    if blockCont<>'' then
    begin
        if length(blockCont)<>32 then
        begin
            MessageBox(Handle,'块0数据位数错误!','错误',MB_OK);
            exit;
        end;
        for i:=1 to 32 do
            if not (blockCont[i] in ['0'..'9','A'..'F','a'..'f']) then
            begin
                MessageBox(Handle,'块0数据含有非法内容!','错误',MB_OK);
                exit;
            end;
        orderLst.Add('1209'+intTohex(cbRWSec.ItemIndex*4,2)+blockCont);
    end;

    blockCont:=edtBlock1.Text;
    if blockCont<>'' then
    begin
        if Length(blockCont)<>32 then
        begin
            MessageBox(Handle,'块1数据位数错误!','错误',MB_OK);
            exit;
        end;
        for i:=1 to 32 do
            if not (blockCont[i] in ['0'..'9','A'..'F','a'..'f']) then
            begin
                MessageBox(Handle,'块1数据含有非法内容!','错误',MB_OK);
                exit;
            end;
        orderLst.Add('1209'+intTohex(cbRWSec.ItemIndex*4+1,2)+blockCont);
    end;


    blockCont:=edtBlock2.Text;
    if blockCont<>'' then
    begin
        if Length(blockCont)<>32 then
        begin
            MessageBox(Handle,'块2数据位数错误!','错误',MB_OK);
            exit;
        end;
        for i:=1 to 32 do
            if not (blockCont[i] in ['0'..'9','A'..'F','a'..'f']) then
            begin
                MessageBox(Handle,'块2数据含有非法内容!','错误',MB_OK);
                exit;
        end;
        orderLst.Add('1209'+intTohex(cbRWSec.ItemIndex*4+2,2)+blockCont);
    end;

    orderLst.Add('020B0F');
    sendData();
end;
//块值初始化
procedure TfrmReader.btnBlockInitClick(Sender: TObject);
var
    blockNo,sectorNo,i,tmpInt : integer;
    blockValue,tmpStr,iniValue : string;
begin
    if ((cbBSecSe.ItemIndex*4+cbBse.ItemIndex)=0) then   //如果绝对块号是0
      begin
         MessageBox(handle,'0扇区0块是只读的，无法进行初始化操作！','错误',MB_OK);
         exit;
      end;
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=8;     //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    sectorNo:=cbBSecSe.ItemIndex;  //cbBSecSe扇区号
    blockNo:=cbBSe.ItemIndex;      //cbBSe块号
    memComSeRe.Lines.Add(intTostr(cbRWSec.ItemIndex)+'块值初始化');

    blockValue:=edtOpeValue.Text;  //操作值
    if blockValue='' then
    begin
        MessageBox(handle,'操作值不能为空!','错误',MB_OK);
        exit;
    end;
    if length(blockValue)<>8 then
    begin
        MessageBox(handle,'操作值位数错误!','错误',MB_OK);
        exit;
    end;
    for i:=1 to 8 do
        if not (blockValue[i] in ['0'..'9','A'..'F','a'..'f']) then
        begin
            MessageBox(Handle,'操作数据含有非法内容!','错误',MB_OK);
            exit;
        end;

    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+intTohex(sectorNo,2)+intTohex(sectorNo*4,2));

    //ShowMessage(intTostr(sectorNo));
    tmpStr:='';
    for i:=3 downto 0 do
    begin
      tmpStr:=tmpStr + copy(blockValue,(i*2+1),2);
    end;
    blockValue:=tmpStr;
    //ShowMessage(blockValue);
    iniValue:='';
    //ABCD（4字节）＋ABCD的反码（4字节）＋ABCD（4字节）
    //＋add（1字节）+add的反码（1字节）＋add（1字节）＋add的反码（1字节） 注：其中add是绝对扇区号
    for i:=0 to 3 do
    begin
        tmpStr:=copy(blockValue,(i*2+1),2);
        tmpInt:=255-strToint('$'+tmpStr);
        //ShowMessage(tmpStr);
        iniValue:=iniValue+intTohex(tmpInt,2);
    end;
    iniValue:=blockValue+iniValue+blockValue;

    tmpInt:=255-(sectorNo*4+blockNo);
    tmpStr:=intTohex(sectorNo*4+blockNo,2)+intTohex(tmpInt,2);
    iniValue:=iniValue+tmpStr+tmpStr;
     //ShowMessage(iniValue);
    orderLst.Add('1209'+intTohex(sectorNo*4+blockNo,2)+iniValue);
    orderLst.Add('020B0F');
    sendData();
end;
//块值读取
procedure TfrmReader.btnBlockReadClick(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=9;     //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add(intTostr(cbBse.ItemIndex+cbBSecSe.ItemIndex)+'块值读取');
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+intTohex(cbBSecSe.ItemIndex,2)+intTohex(cbBSecSe.ItemIndex*4,2));
    orderLst.Add('0208'+intTohex(cbBSecSe.ItemIndex*4+cbBse.ItemIndex,2));
    orderLst.Add('020B0F');
    sendData();
end;
//块值加值
procedure TfrmReader.btnBlockAddClick(Sender: TObject);
var
    sectorNo,blockNo,i: integer;
    blockValue,tmpStr : string;
begin
    sectorNo:=cbBSecSe.ItemIndex*4+cbBse.ItemIndex;  //绝对块号
    if (sectorNo=0) then
      begin
         MessageBox(handle,'0扇区0块是只读的，无法进行加值操作！','错误',MB_OK);
         exit;
      end;  
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=10;   //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add(intTostr(cbBse.ItemIndex+cbBSecSe.ItemIndex)+'块值加值');

    blockValue:=edtOpeValue.Text;
    if blockValue='' then
    begin
        MessageBox(handle,'操作值不能为空!','错误',MB_OK);
        exit;
    end;
    if length(blockValue)<>8 then
    begin
        MessageBox(handle,'操作值位数错误!','错误',MB_OK);
        exit;
    end;
    for i:=1 to 8 do
        if not (blockValue[i] in ['0'..'9','A'..'F','a'..'f']) then
        begin
            MessageBox(Handle,'操作数据含有非法内容!','错误',MB_OK);
            exit;
        end;
     tmpStr:='';
    for i:=3 downto 0 do
    begin
      tmpStr:=tmpStr + copy(blockValue,(i*2+1),2);
    end;
    blockValue:=tmpStr;
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+intTohex(cbBSecSe.ItemIndex,2)+intTohex(cbBSecSe.ItemIndex*4,2));
    orderLst.Add('080AC1'+intTohex(cbBSecSe.ItemIndex*4+cbBse.ItemIndex,2)+blockValue+intTohex(cbBSecSe.ItemIndex*4+cbBse.ItemIndex,2));
    orderLst.Add('020B0F');
    sendData();
end;
//块值减值
procedure TfrmReader.btnBlockSubClick(Sender: TObject);
var
    sectorNo,blockNo,i: integer;
    blockValue,tmpStr : string;
begin
    sectorNo:=cbBSecSe.ItemIndex*4+cbBse.ItemIndex;  //绝对块号
    if (sectorNo=0) then
      begin
         MessageBox(handle,'0扇区0块是只读的，无法进行减值操作！','错误',MB_OK);
         exit;
      end;
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=11;     //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add(intTostr(cbBse.ItemIndex+cbBSecSe.ItemIndex)+'块值减值');

    blockValue:=edtOpeValue.Text;
    if blockValue='' then
    begin
        MessageBox(handle,'操作值不能为空!','错误',MB_OK);
        exit;
    end;
    if length(blockValue)<>8 then
    begin
        MessageBox(handle,'操作值位数错误!','错误',MB_OK);
        exit;
    end;
    for i:=1 to 8 do
        if not (blockValue[i] in ['0'..'9','A'..'F','a'..'f']) then
        begin
            MessageBox(Handle,'操作数据含有非法内容!','错误',MB_OK);
            exit;
        end;
    tmpStr:='';
    for i:=3 downto 0 do
    begin
      tmpStr:=tmpStr + copy(blockValue,(i*2+1),2);
    end;
    blockValue:=tmpStr;

    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+intTohex(cbBSecSe.ItemIndex,2)+intTohex(cbBSecSe.ItemIndex*4,2));
    orderLst.Add('080AC0'+intTohex(cbBSecSe.ItemIndex*4+cbBse.ItemIndex,2)+blockValue+intTohex(cbBSecSe.ItemIndex*4+cbBse.ItemIndex,2));
    orderLst.Add('020B0F');
    sendData();
end;
//扇区密码写入
procedure TfrmReader.btnChPwdClick(Sender: TObject);
var
    i : integer;
    pwdA,pwdB : string;
    curSectorNo,tmpStr : string;
begin
    if (edtPwdA.Text<>'') or (edtPwdB.Text<>'') then
    else
        exit;
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=12;   //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    curSectorNo:=intTohex(cbChPwdSec.ItemIndex,2);
    memComSeRe.Lines.Add(intTostr(cbChPwdSec.ItemIndex)+'扇区密码写入');
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+curSectorNo+intTohex(cbRWSec.ItemIndex*4,2));

    pwdA:=edtPwdA.Text;
    if pwdA<>'' then
    begin
        if Length(pwdA)<>12 then
        begin
            MessageBox(Handle,'密码A位数错误!','错误',MB_OK);
            exit;
        end;
        for i:=1 to 12 do
            if not (pwdA[i] in ['0'..'9','A'..'F','a'..'f']) then
            begin
                MessageBox(Handle,'密码A含有非法内容!','错误',MB_OK);
                exit;
            end;
    end;

    pwdB:=edtPwdB.Text;
    if pwdB<>'' then
    begin
        if Length(pwdB)<>12 then
        begin
            MessageBox(Handle,'密码B位数错误!','错误',MB_OK);
            exit;
        end;
        for i:=1 to 12 do
            if not (pwdB[i] in ['0'..'9','A'..'F','a'..'f']) then
            begin
                MessageBox(Handle,'密码B含有非法内容!','错误',MB_OK);
                exit;
            end;
    end;
    if pwdB='' then
        for i:=1 to 12 do
        begin
            tmpStr:=copy(pwdA,i,1);
            tmpStr:=intTostr(15-strToint('$'+tmpStr));
            pwdB:=pwdB+tmpStr;
        end;

    orderLst.Add('1209'+intTohex(cbChPwdSec.ItemIndex*4+3,2)+pwdA+'ff078069'+pwdB);

    orderLst.Add('020B0F');
    sendData();

end;
//设置下位机的波特率。
procedure TfrmReader.Button1Click(Sender: TObject);
 var
   tempstr : string;
begin
    case ComboBox2.ItemIndex of
        0 : tempstr:='00';
        1 : tempstr:='01';
        2 : tempstr:='02';
        3 : tempstr:='03';
        4 : tempstr:='04';
        5 : tempstr:='05';
        6 : tempstr:='06';
        else tempstr:='00';
    end;
    if  ((tempstr='04') or (tempstr='06')) then
      begin
      MessageBox(Handle,'下位机暂不支持该波特率！','非法波特率',MB_OK);   {提示信息}
      exit;
      end;
    orderLst.Clear();     //定义的私有成员
    recDataLst.Clear();   //定义的私有成员
    curOrderNo:=0;         //当前操作命令号
    curOperNo:=13;          //当前操作码类型//这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    memComSeRe.Lines.Add('设置下位机的波特率');
    orderLst.Add('020D'+tempstr);
      //ShowMessage('020D'+tempstr);
    sendData();
end;

procedure TfrmReader.btnChCommClick(Sender: TObject);       //（上机参数设置）
var
     tmpStr : array[1..3] of string;
begin
      if btnChComm.Caption = '打开串口' then
         begin
           tmpStr[1]:=cbComName.Text;  //把端口名赋给数组 1
           comReader.CommName:=tmpStr[1]; //吧数组1的内容送给COM插件的相关属性
           tmpStr[2]:=cbBaudRate.Text;    //波特率赋给数组2
           comReader.BaudRate:=strToint(tmpStr[2]); //吧数组2的内容送给COM插件的相关属性
           comReader.Parity:=tParity(cbParity.ItemIndex); // 奇偶校验位
           //memComSet.Lines.Add('检验位: '+cbParity.Text);
           { Even-表示偶校验     None-表示无校验     Odd-表示奇校验
           Mark-表示校验位为1  Space-表示校验位为0   }
           comReader.ByteSize:=TByteSize(cbByteSize.ItemIndex);  //数据位
           comReader.StopBits:=TStopBits(cbStopBits.ItemIndex);  //停止位
           comReader.StartComm;  //打开串口

           btnChComm.Caption := '关闭串口';
           cbComName.Enabled := false;  {这些都变成不使能}
           cbBaudRate.Enabled := false;
           cbParity.Enabled := false;
           cbByteSize.Enabled := false;
           cbStopBits.Enabled := false;
           ImageOff.Visible  := false;
           ImageOn.Visible   := true;     //“关闭”图片显示

           MessageBeep(10);     //调用系统声音
           memComSet.Lines.Add('串口为: '+tmpStr[1]);     //一下的都是（上位机参数设置栏）的 显示模块
           memComSet.Lines.Add('波特率: '+tmpStr[2]);
           memComSet.Lines.Add('检验位: '+cbParity.Text);
           memComSet.Lines.Add('数据位: '+cbByteSize.Text);
           memComSet.Lines.Add('停止位: '+cbStopBits.Text);
           memComSet.Lines.Add('串口参数设置成功');
           memComSet.Lines.Add('');
         end
      else //if Button1.Caption = '关闭串口' then
         begin
          comReader.StopComm;// 关闭串口
          btnChComm.Caption := '打开串口';
          cbComName.Enabled := true;
          cbBaudRate.Enabled := true;
          cbParity.Enabled := true;
          cbByteSize.Enabled := true;
          cbStopBits.Enabled := true;
          ImageOn.Visible   := false;
          ImageOff.Visible  := true;
        end;
  ShowStatus; //把当前的状态显示到（上位机参数设置栏）上的lebal中
end;
//清空低级操作TMemo内容
procedure TfrmReader.memLowReDblClick(Sender: TObject);
begin
    memLowRe.Text:='';        //(低级操作栏）双击清空内容
end;
//清空波特率设置TMemo内容
procedure TfrmReader.memComSetDblClick(Sender: TObject);
begin
    memComSet.Text:='';       //(上位机参数设置栏）双击清空内容
end;
//清空发送和接收TMemo内容
procedure TfrmReader.memComSeReDblClick(Sender: TObject);
begin
    memComSeRe.Text:='';     //(发送接收栏）双击清空内容
end;
//图书信息写入电子标签
procedure TfrmReader.Button11Click(Sender: TObject);
var
    i ,totalcount: integer;
    blockCont ,tempstr: string;
    curSectorNo : string;
begin
     if (Edit17.Text<>'') then
        else
          begin
           MessageBox(Handle,'图书编号不能为空!','错误',MB_OK);
           exit;
           end;
        orderLst.Clear();
        recDataLst.Clear();
        curOrderNo:=0;
        curOperNo:=14;   //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
        curSectorNo:=intTohex(ComBoBox16.ItemIndex,2);
        //memComSeRe.Lines.Add(intTostr(ComBoBox16.ItemIndex)+'扇区内容写入');
        orderLst.Add('020252');
        orderLst.Add('0103');
        orderLst.Add('0104');
        orderLst.Add('040560'+curSectorNO+intTohex(ComBoBox16.ItemIndex*4,2));
     //Edit17.Text:='1234';
    //Edit18.Text:='789-5';
    //Edit19.Text:='C语言教程';
    //Edit20.Text:='谭浩强';
    //Edit29.Text:='高等教育出版社';

    tempstr:='';
    //totalcount:=6+length(Edit17.Text)+length(Edit18.Text)+length(Edit19.Text)+length(Edit20.Text)+length(Edit29.Text);
    //tempstr:=inttohex(totalcount,2);

    //ShowMessage(inttostr(totalcount));
   
    tempstr:=tempstr + inttohex(length(Edit17.Text),2);

    //ShowMessage(inttostr(length(tempstr)));
        for i:=1 to length(Edit17.Text) do
         tempstr :=tempstr + inttohex(integer(edit17.Text[i]),2);

    tempstr:=tempstr + inttohex(length(Edit18.Text),2);
        for i:=1 to length(Edit18.Text) do
         tempstr :=tempstr + inttohex(integer(edit18.Text[i]),2);

     tempstr:=tempstr + inttohex(length(Edit19.Text),2);
        for i:=1 to length(Edit19.Text) do
         tempstr :=tempstr + inttohex(integer(edit19.Text[i]),2);

     tempstr:=tempstr + inttohex(length(Edit20.Text),2);
        for i:=1 to length(Edit20.Text) do
         tempstr :=tempstr + inttohex(integer(edit20.Text[i]),2);

     tempstr:=tempstr + inttohex(length(Edit29.Text),2);
        for i:=1 to length(Edit29.Text) do
         tempstr :=tempstr + inttohex(integer(edit29.Text[i]),2);

       for i:= length(tempstr)+1 to 96 do
            tempstr := tempstr + '0';

       //ShowMessage(tempstr);
       //Memo4.Text :=tempstr;
        for i:=0 to 2 do
           begin
             blockCont:=copy(tempstr,i*32+1,32);
             orderLst.Add('1209'+intTohex(ComBoBox16.ItemIndex*4+i,2)+blockCont);
            end;
           orderLst.Add('020B0F');
           sendData();
end;

procedure TfrmReader.Button10Click(Sender: TObject);
var
    i : integer;
    curSectorNo : string;
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=15;    //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    curSectorNo:=intTohex(ComBoBox16.ItemIndex,2);
    memComSeRe.Lines.Add(intTostr(ComBoBox16.ItemIndex)+'扇区内容读取');
    orderLst.Add('020252');
    orderLst.Add('0103');
    orderLst.Add('0104');
    orderLst.Add('040560'+curSectorNO+intTohex(ComBoBox16.ItemIndex*4,2));
    for i:=0 to 2 do
        orderLst.Add('0208'+intTohex(ComBoBox16.ItemIndex*4+i,2));
    orderLst.Add('020B0F');
    sendData();
end;

procedure TfrmReader.GroupBox7DblClick(Sender: TObject);
begin
    Edit17.Text:='';
    Edit18.Text:='';
    Edit19.Text:='';
    Edit20.Text:='';
    Edit29.Text:='';
end;

procedure TfrmReader.Edit17DblClick(Sender: TObject);
begin
    Edit17.Text:='';
end;

procedure TfrmReader.Edit18DblClick(Sender: TObject);
begin
    Edit18.Text:='';
end;

procedure TfrmReader.Edit19DblClick(Sender: TObject);
begin
   Edit19.Text:='';
end;

procedure TfrmReader.Edit20DblClick(Sender: TObject);
begin
     Edit20.Text:='';
end;

procedure TfrmReader.Edit29DblClick(Sender: TObject);
begin
     Edit29.Text:='';
end;

procedure TfrmReader.Memo4DblClick(Sender: TObject);
begin
     Memo4.Text:='';
end;

procedure TfrmReader.Button18Click(Sender: TObject);
begin
    orderLst.Clear();
    recDataLst.Clear();
    curOrderNo:=0;
    curOperNo:=17;    //这个是为了使检测的时候是应该检测那个具体请看procedure tfrmReader.checkOper();这个函数
    //memComSeRe.Lines.Add('设置下位机的存储图书信息的扇区号');
    orderLst.Add('020F'+intTohex(ComboBox20.ItemIndex,2));  
    //orderLst.Add('020B0F');
    sendData();
end; 
//

procedure TfrmReader.ShowStatus;
begin
  if btnChComm.Caption = '关闭串口' then   {如果检测到打开串口按钮被打开则}
  begin
    edStatus.Text := Format('当前串口状态: %s已打开  波特率%s   校验位%s   数据位%s   停止位%s  ', [cbComName.Text,
      {cbComName.Text,}IntToStr(comReader.BaudRate), cbParity.Text,
      cbByteSize.Text, cbStopBits.Text]);   {Format()函数用来将字符串按指定的格式输出%[<参数位置>:][-][<所占宽度>][.<小数位数>]<类型>
                                              说明：若缺省[<参数位置>:]，则从左到右依次分配各参数；"-"表示左对齐，若缺省则
                                              右对齐；<类型>为参数的类型     其中这里的 %后的S表示的是将结果转化为字符串型数据}
  end
  else
    edStatus.Text := ' 当前串口状态: '+cbComName.Text+'已关闭';
end;

 

procedure TfrmReader.cbBaudRateChange(Sender: TObject);  //波特率改变之后发生的状况
var
  BaudRate: Integer;
begin
  if cbBaudRate.Text = 'Custom' then
  begin
    cbBaudRate.Style := csDropDown; //csDropDown是由编辑框和列表框组合而成的组合框,列表框中的任一项都是高度相同的字符串
    cbBaudRate.SetFocus;    // 设置键盘焦点  (也就是键盘输入有效）)
    btnChComm.Enabled := false; //“打开串口”按钮不使能
  end
  else
  begin
    if cbBaudRate.ItemIndex > 0 then
      cbBaudRate.Style := csDropDownList; // csDropDownList只有列表框而没有编辑框,任一项是高度一致的字符串
      //下面是自定义波特率的
    if TryStrToInt(cbBaudRate.Text, BaudRate) then   //TryStrToInt：返回字符串S转换成整数Value是否成功
    begin
      comReader.BaudRate := BaudRate;   //吧选择的串口信息传递到COMreader的信息当中
      btnChComm.Enabled := true;         //“打开串口”按钮使能
    end
    else
      btnChComm.Enabled := false;
  end;
end;

procedure TfrmReader.edtSecPwd0DblClick(Sender: TObject);
begin
     edtSecPwd0.Text :='';                                   //双击使它变为空
end;

procedure TfrmReader.edtSecPwd1DblClick(Sender: TObject);
begin
     edtSecPwd1.Text :='';
end;

procedure TfrmReader.edtSecPwd2DblClick(Sender: TObject);
begin
        edtSecPwd2.Text :='';
end;

procedure TfrmReader.edtSecPwd3DblClick(Sender: TObject);
begin
      edtSecPwd3.Text :='';
end;

procedure TfrmReader.edtSecPwd4DblClick(Sender: TObject);
begin
   edtSecPwd4.Text :='';
end;

procedure TfrmReader.edtSecPwd5DblClick(Sender: TObject);
begin
     edtSecPwd5.Text :='';
end;

procedure TfrmReader.edtSecPwd6DblClick(Sender: TObject);
begin
     edtSecPwd6.Text :='';
end;

procedure TfrmReader.edtSecPwd7DblClick(Sender: TObject);
begin
    edtSecPwd7.Text :='';
end;

procedure TfrmReader.edtSecPwd8DblClick(Sender: TObject);
begin
    edtSecPwd8.Text :='';
end;

procedure TfrmReader.edtSecPwd9DblClick(Sender: TObject);
begin
   edtSecPwd9.Text :='';
end;

procedure TfrmReader.edtSecPwd10DblClick(Sender: TObject);
begin
    edtSecPwd10.Text :='';
end;

procedure TfrmReader.edtSecPwd11DblClick(Sender: TObject);
begin
    edtSecPwd11.Text :='';
end;

procedure TfrmReader.edtSecPwd12DblClick(Sender: TObject);
begin
     edtSecPwd12.Text :='';
end;

procedure TfrmReader.edtSecPwd13DblClick(Sender: TObject);
begin
   edtSecPwd13.Text :='';
end;

procedure TfrmReader.edtSecPwd14DblClick(Sender: TObject);
begin
     edtSecPwd14.Text :='';
end;

procedure TfrmReader.edtSecPwd15DblClick(Sender: TObject);
begin
     edtSecPwd15.Text :='';
end;

procedure TfrmReader.FormCreate(Sender: TObject);
begin

  EnumComPorts(cbComName.Items);    //得到串口列表
  EnumComPorts(ComboBox1.Items);    //得到串口列表
  if (copy(cbComName.Items[1],1,2)<>'') then    //如果有得到空闲的串口的信息那么就显示获取的串口的第一位
      begin
        cbComName.ItemIndex := 1;
        ComboBox1.ItemIndex := 1;
      end
    else
       begin
         cbComName.ItemIndex:=0;
         ComboBox1.ItemIndex:=0;
         end;
  comReader.CommName := cbComName.Text;  //把得到的串口的值付给COMM控件的相关属性
  cbBaudRate.ItemIndex := 4;  //波特率下拉框的默认值为第四位
  comReader.BaudRate := StrToInt(cbBaudRate.Text);    //COMM控件的波特率设置
  cbParity.ItemIndex := 0;
  comReader.Parity := None;   {以下的都为默认值不用管}
  cbByteSize.ItemIndex := 3;
  comReader.ByteSize := _8;
  cbStopBits.ItemIndex := 0;
  comReader.StopBits := _1;
end;

//得到串口列表
procedure TfrmReader.EnumComPorts(Ports: TStrings);//枚举串口列表（不用管它是怎样实现的。。底层的）
var
  KeyHandle: HKEY;
  ErrCode, Index: Integer;
  ValueName, Data: string;
  ValueLen, DataLen, ValueType: DWORD;
  TmpPorts: TStringList;
begin
  ErrCode := RegOpenKeyEx(
    HKEY_LOCAL_MACHINE,
    'HARDWARE\DEVICEMAP\SERIALCOMM',
    0,
    KEY_READ,
    KeyHandle);

  if ErrCode <> ERROR_SUCCESS then
    Exit;  // raise EComPort.Create(CError_RegError, ErrCode);

  TmpPorts := TStringList.Create;
  try
    Index := 0;
    repeat
      ValueLen := 256;
      DataLen := 256;
      SetLength(ValueName, ValueLen);
      SetLength(Data, DataLen);
      ErrCode := RegEnumValue(
        KeyHandle,
        Index,
        PChar(ValueName),
        Cardinal(ValueLen),
        nil,
        @ValueType,
        PByte(PChar(Data)),
        @DataLen);

      if ErrCode = ERROR_SUCCESS then
      begin
        SetLength(Data, DataLen);
        TmpPorts.Add(Data);
        Inc(Index);
      end
      else
        if ErrCode <> ERROR_NO_MORE_ITEMS then
          exit; //raise EComPort.Create(CError_RegError, ErrCode);

    until (ErrCode <> ERROR_SUCCESS) ;

    TmpPorts.Sort;
    Ports.Assign(TmpPorts);
  finally
    RegCloseKey(KeyHandle);
    TmpPorts.Free;
  end;

end;        //到这里都是串口枚举函数

procedure TfrmReader.Button19Click(Sender: TObject);
begin
    edtSecPwd0.Text :='';
    edtSecPwd1.Text :='';
    edtSecPwd2.Text :='';
    edtSecPwd3.Text :='';
    edtSecPwd4.Text :='';
    edtSecPwd5.Text :='';
    edtSecPwd6.Text :='';
    edtSecPwd7.Text :='';
    edtSecPwd8.Text :='';
    edtSecPwd9.Text :='';
    edtSecPwd10.Text :='';
    edtSecPwd11.Text :='';
    edtSecPwd12.Text :='';
    edtSecPwd13.Text :='';
    edtSecPwd14.Text :='';
    edtSecPwd15.Text :='';
end;

procedure TfrmReader.Button20Click(Sender: TObject);
begin
    edtSecPwd0.Text :='FFFFFFFFFFFF';
    edtSecPwd1.Text :='FFFFFFFFFFFF';
    edtSecPwd2.Text :='FFFFFFFFFFFF';
    edtSecPwd3.Text :='FFFFFFFFFFFF';
    edtSecPwd4.Text :='FFFFFFFFFFFF';
    edtSecPwd5.Text :='FFFFFFFFFFFF';
    edtSecPwd6.Text :='FFFFFFFFFFFF';
    edtSecPwd7.Text :='FFFFFFFFFFFF';
    edtSecPwd8.Text :='FFFFFFFFFFFF';
    edtSecPwd9.Text :='FFFFFFFFFFFF';
    edtSecPwd10.Text :='FFFFFFFFFFFF';
    edtSecPwd11.Text :='FFFFFFFFFFFF';
    edtSecPwd12.Text :='FFFFFFFFFFFF';
    edtSecPwd13.Text :='FFFFFFFFFFFF';
    edtSecPwd14.Text :='FFFFFFFFFFFF';
    edtSecPwd15.Text :='FFFFFFFFFFFF';
end;
end.