• Delphi TCP服务端监听端口获取客户端RFID网络读卡器上传的刷卡数据

    本示例使用设备介绍：液显WIFI无线网络HTTP协议RFID云读卡器可编程实时可控开关TTS语-淘宝网 (taobao.com) 

    1. unit Unit1;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, ComCtrls, ScktComp, StdCtrls, ScktComp7, ExtCtrls,Clipbrd;
    8.  
    9. type
    10.   TForm1 = class(TForm)
    11.     ServerSocket1: TServerSocket;
    12.     Button1: TButton;
    13.     Button2: TButton;
    14.     Edit1: TEdit;
    15.     Edit2: TEdit;
    16.     Label1: TLabel;
    17.     ListBox1: TListBox;
    18.     ListBox2: TListBox;
    19.     Button3: TButton;
    20.     CheckBox1: TCheckBox;
    21.     Panel1: TPanel;
    22.     RadioButton1: TRadioButton;
    23.     RadioButton2: TRadioButton;
    24.     RadioButton3: TRadioButton;
    25.     RadioButton4: TRadioButton;
    26.     Label6: TLabel;
    27.     Label2: TLabel;
    28.     Edit3: TEdit;
    29.     Button4: TButton;
    30.     Button5: TButton;
    31.     Button6: TButton;
    32.     Button7: TButton;
    33.     RichEdit10: TRichEdit;
    34.     UpDown7: TUpDown;
    35.     ComboBox1: TComboBox;
    36.     ComboBox3: TComboBox;
    37.     RichEdit1: TRichEdit;
    38.     UpDown1: TUpDown;
    39.     RichEdit2: TRichEdit;
    40.     UpDown2: TUpDown;
    41.     Label3: TLabel;
    42.     Label5: TLabel;
    43.     Label7: TLabel;
    44.     RadioButton5: TRadioButton;
    45.     RadioButton6: TRadioButton;
    46.     Label8: TLabel;
    47.     Label9: TLabel;
    48.     Label10: TLabel;
    49.     CheckBox2: TCheckBox;
    50.     Label4: TLabel;
    51.     Button8: TButton;
    52.     Button9: TButton;
    53.     procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    54.     procedure ServerSocket1ClientDisconnect(Sender: TObject;Socket: TCustomWinSocket);
    55.     procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    56.     procedure Button1Click(Sender: TObject);
    57.     procedure FormActivate(Sender: TObject);
    58.     procedure Button2Click(Sender: TObject);
    59.     procedure Button3Click(Sender: TObject);
    60.     procedure Button6Click(Sender: TObject);
    61.     procedure Button5Click(Sender: TObject);
    62.     procedure Button4Click(Sender: TObject);
    63.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    64.     procedure Button7Click(Sender: TObject);
    65.     procedure Button8Click(Sender: TObject);
    66.     procedure Button9Click(Sender: TObject);
    67.     procedure CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
    68.       Shift: TShiftState; X, Y: Integer);
    69.   private
    70.     { Private declarations }
    71.     procedure Responsedata();
    72.     procedure GetSenddata(respcode:integer);
    73.     procedure ButtonSend(sendcode:integer);
    74.   public
    75.     { Public declarations }
    76.  
    77.     ResponseBuff:Array of Byte;
    78.   end;
    79.  
    80. var
    81.   Form1: TForm1;
    82.  
    83. implementation
    84.  
    85. {$R *.dfm}
    86.  
    87. procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;  Socket: TCustomWinSocket);
    88. begin
    89.   Button3.Click();
    90. end;
    91.  
    92. procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;  Socket: TCustomWinSocket);
    93. begin
    94.    Button3.Click();
    95. end;
    96.  
    97. procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    98. var
    99.   RemotAddPort,DispStr,HexStr:String;
    100.   i,GetDataLen:integer;
    101.   GetBuff:Array of Byte;
    102.   SendBuff:Array of Byte;
    103.   respcode:integer;
    104. begin
    105.   try
    106.       RemotAddPort:=Socket.RemoteAddress+':'+inttostr(Socket.RemotePort);
    107.       GetDataLen:= Socket.ReceiveLength;
    108.       SetLength(GetBuff, GetDataLen);
    109.       Socket.ReceiveBuf(GetBuff[0],GetDataLen);   //Socket.ReceiveText;
    110.       DispStr:='';
    111.       for i:=0 to GetDataLen-1 do
    112.       begin
    113.          DispStr:=DispStr+inttohex(GetBuff[i],2)+' ';
    114.       end;
    115.       if ListBox2.Count >100 then ListBox2.Clear();
    116.       ListBox2.Items.Add('Get Data From  '+RemotAddPort+' : '+DispStr);
    117.  
    118.       case GetBuff[0] of
    119.            $C1,$CF:
    120.            begin
    121.                 if GetBuff[0]= $C1 then
    122.                     DispStr:='数据解析：IC读卡器上传卡号，'
    123.                 else
    124.                     DispStr:='数据解析：IC卡离开读卡器，';
    125.  
    126.                 DispStr := DispStr+'设备IP['+IntToStr(GetBuff[1]) + '.' + IntToStr(GetBuff[2]) + '.' + IntToStr(GetBuff[3]) + '.' + IntToStr(GetBuff[4])+']，';
    127.                 DispStr := DispStr+'机号['+IntToStr(GetBuff[5] + GetBuff[6]*256)+']，';
    128.                 DispStr := DispStr+'数据包号['+IntToStr(GetBuff[7] + GetBuff[8]*256)+']，';
    129.                 DispStr := DispStr+'卡号长度['+IntToStr(GetBuff[9])+']，';
    130.                 HexStr:='';
    131.                 for i:=10 to 10+GetBuff[9]-1 do
    132.                     HexStr:=HexStr+inttohex(GetBuff[i],2);
    133.                 DispStr := DispStr+'16进制卡号['+HexStr+']，';
    134.  
    135.                 HexStr:='';
    136.                 for i:=10+GetBuff[9] to GetDataLen-1 do
    137.                     HexStr:=HexStr+inttohex(GetBuff[i],2);
    138.                 DispStr := DispStr+'唯一硬件序号['+HexStr+']';
    139.  
    140.                 ListBox2.Items.Add(DispStr);
    141.                 ListBox2.Items.Add('');
    142.                 listbox2.ItemIndex :=listbox2.Items.Count-1;
    143.  
    144.                 if CheckBox1.Checked then
    145.                 begin
    146.                     Responsedata() ;
    147.                     Socket.SendBuf(ResponseBuff[0],Length(ResponseBuff));
    148.                     DispStr:='Send Data To  '+RemotAddPort+' : ';
    149.                     for i:=0 to Length(ResponseBuff)-1 do
    150.                         DispStr:=DispStr+inttohex(ResponseBuff[i],2)+' ';
    151.                     ListBox2.Items.Add(DispStr);
    152.                     ListBox2.Items.Add('');
    153.                     listbox2.ItemIndex :=listbox2.Items.Count-1;
    154.                 end;
    155.            end;
    156.  
    157.            $D1,$DF:
    158.            begin
    159.                 if GetBuff[0]= $D1 then
    160.                     DispStr:='数据解析：ID读卡器上传卡号，'
    161.                 else
    162.                     DispStr:='数据解析：ID卡离开读卡器，';
    163.  
    164.                 DispStr := DispStr+'设备IP['+IntToStr(GetBuff[1]) + '.' + IntToStr(GetBuff[2]) + '.' + IntToStr(GetBuff[3]) + '.' + IntToStr(GetBuff[4])+']，';
    165.                 DispStr := DispStr+'机号['+IntToStr(GetBuff[5] + GetBuff[6]*256)+']，';
    166.                 DispStr := DispStr+'数据包号['+IntToStr(GetBuff[7] + GetBuff[8]*256)+']，';
    167.                 HexStr:='';
    168.                 for i:=9 to 13 do
    169.                     HexStr:=HexStr+inttohex(GetBuff[i],2);
    170.                 DispStr := DispStr+'16进制卡号['+HexStr+']，';
    171.  
    172.                 HexStr:='';
    173.                 for i:=14 to GetDataLen-1 do
    174.                     HexStr:=HexStr+inttohex(GetBuff[i],2);
    175.                 DispStr := DispStr+'唯一硬件序号['+HexStr+']';
    176.  
    177.                 ListBox2.Items.Add(DispStr);
    178.                 ListBox2.Items.Add('');
    179.                 listbox2.ItemIndex :=listbox2.Items.Count-1;
    180.  
    181.                 if CheckBox1.Checked then
    182.                 begin
    183.                     Responsedata() ;
    184.                     Socket.SendBuf(ResponseBuff[0],Length(ResponseBuff));
    185.                     DispStr:='Send Data To  '+RemotAddPort+' : ';
    186.                     for i:=0 to Length(ResponseBuff)-1 do
    187.                         DispStr:=DispStr+inttohex(ResponseBuff[i],2)+' ';
    188.                     ListBox2.Items.Add(DispStr);
    189.                     ListBox2.Items.Add('');
    190.                     listbox2.ItemIndex :=listbox2.Items.Count-1;
    191.                 end;
    192.            end;
    193.  
    194.            $F3:
    195.            begin
    196.                 DispStr:='数据解析：读卡器心跳包，';
    197.                 DispStr := DispStr+'设备IP['+IntToStr(GetBuff[1]) + '.' + IntToStr(GetBuff[2]) + '.' + IntToStr(GetBuff[3]) + '.' + IntToStr(GetBuff[4])+']，';
    198.                 DispStr := DispStr+'机号['+IntToStr(GetBuff[5] + GetBuff[6]*256)+']，';
    199.                 DispStr := DispStr+'数据包号['+IntToStr(GetBuff[7] + GetBuff[8]*256)+']，';
    200.                 DispStr := DispStr+'心跳包标识['+inttohex(GetBuff[9],2)+']，';
    201.                 DispStr := DispStr+'长度['+IntToStr(GetBuff[10])+']，';
    202.                 DispStr := DispStr+'继电器状态['+inttohex(GetBuff[11],2)+']，';
    203.                 DispStr := DispStr+'输入口状态['+inttohex(GetBuff[12],2)+']，';
    204.                 DispStr := DispStr+'随机校验码['+inttohex(GetBuff[13],2)+inttohex(GetBuff[14],2)+inttohex(GetBuff[15],2)+inttohex(GetBuff[16],2)+']，';
    205.                 HexStr:='';
    206.                 HexStr:='';
    207.                 for i:=17 to GetDataLen-1 do
    208.                     HexStr:=HexStr+inttohex(GetBuff[i],2);
    209.                 DispStr := DispStr+'唯一硬件序号['+HexStr+']';
    210.  
    211.                 ListBox2.Items.Add(DispStr);
    212.                 ListBox2.Items.Add('');
    213.                 listbox2.ItemIndex :=listbox2.Items.Count-1;  
    214.            end;
    215.       end;
    216.    except
    217.  
    218.    end;
    219. end;
    220.  
    221. procedure TForm1.Responsedata();           //根据选择的回应方式生成回应数据缓冲
    222. begin
    223.   if RadioButton1.Checked then
    224.        GetSenddata(0)
    225.   else
    226.       if RadioButton2.Checked then
    227.           GetSenddata(1)
    228.       else
    229.           if RadioButton3.Checked then
    230.                 GetSenddata(2)
    231.           else
    232.                 GetSenddata(3);
    233. end;
    234.  
    235. procedure TForm1.GetSenddata(respcode:integer);         //根据发送方式生成发送数据缓冲
    236. var
    237. delaytime,i,voicelen,displen:integer;
    238. strls,voicestr:string;
    239. begin
    240.   case respcode of
    241.       0:
    242.       begin
    243.            SetLength(ResponseBuff, 39);
    244.            ResponseBuff[0]:=$5A;   //命令字：驱动显示文字+蜂鸣器响声
    245.            ResponseBuff[1]:=$00;   //机号低
    246.            ResponseBuff[2]:=$00;   //机号高，0000表示任意机号
    247.            if(CheckBox2.Checked) then
    248.            begin
    249.                ResponseBuff[3]:=ComboBox1.ItemIndex;   //蜂鸣器响声代码
    250.                if RadioButton6.Checked then  ResponseBuff[3]:=ResponseBuff[3] xor 128; //背光灯状态不改变
    251.            end
    252.            else
    253.            begin
    254.                ResponseBuff[3]:=$ff;          //不响声
    255.                if RadioButton6.Checked then  ResponseBuff[3]:=ResponseBuff[3] xor 127; //背光灯状态不改变
    256.            end;
    257.            delaytime:=StrToInt(RichEdit10.Lines[0]);
    258.            ResponseBuff[4] := delaytime mod 256;    //显示时长
    259.            strls := Edit1.Text + '                                        ';
    260.            for i := 1 to 34 do
    261.                ResponseBuff[4+i] := Byte(strls[i]);
    262.       end;
    263.  
    264.       1:
    265.       begin
    266.            voicestr:='[v'+ trim(RichEdit2.Lines[0])+']';   //本次播报TTS语音的音量大小，取值范围v0 到 v16
    267.            voicestr:= voicestr+trim(edit3.Text);
    268.            voicelen:=length(voicestr); //语音长度
    269.  
    270.            displen:=34;             //满屏显示长度
    271.  
    272.            SetLength(ResponseBuff, 11+displen+voicelen+4);
    273.            ResponseBuff[0]:=$5C;   //命令字：驱动显示文字+蜂鸣器响声+开启继电器+播报TTS语音
    274.            ResponseBuff[1]:=$00;   //机号低
    275.            ResponseBuff[2]:=$00;   //机号高，0000表示任意机号
    276.            if(CheckBox2.Checked) then
    277.            begin
    278.                ResponseBuff[3]:=ComboBox1.ItemIndex;   //蜂鸣器响声代码
    279.                if RadioButton6.Checked then  ResponseBuff[3]:=ResponseBuff[3] xor 128; //背光灯状态不改变
    280.            end
    281.            else
    282.            begin
    283.                ResponseBuff[3]:=$ff;          //不响声
    284.                if RadioButton6.Checked then  ResponseBuff[3]:=ResponseBuff[3] xor 127; //背光灯状态不改变
    285.            end;
    286.  
    287.            case ComboBox3.ItemIndex of       //开启的继电器号
    288.                  1: ResponseBuff[4]:=$f1;
    289.                  2: ResponseBuff[4]:=$f2;
    290.                  3: ResponseBuff[4]:=$f3;
    291.                  4: ResponseBuff[4]:=$f4;
    292.                  5: ResponseBuff[4]:=$f5;
    293.                  6: ResponseBuff[4]:=$f6;
    294.                  7: ResponseBuff[4]:=$f7;
    295.                  8: ResponseBuff[4]:=$f8;
    296.                  else ResponseBuff[4]:=$f0;
    297.            end;
    298.            delaytime:=StrToInt(RichEdit1.Lines[0]);
    299.            ResponseBuff[5] := delaytime mod 256;
    300.            ResponseBuff[6] := (delaytime div 256) mod 256;
    301.  
    302.            delaytime:=StrToInt(RichEdit10.Lines[0]);
    303.            ResponseBuff[7] := delaytime mod 256;    //显示时长
    304.            ResponseBuff[8] :=0;
    305.            ResponseBuff[9] :=displen;
    306.            ResponseBuff[10] :=voicelen;
    307.  
    308.            strls := Edit1.Text + '                                        ';
    309.            for i := 1 to displen do
    310.                ResponseBuff[10+i] := Byte(strls[i]);
    311.  
    312.            for i := 1 to voicelen do
    313.                ResponseBuff[10+displen+i] := Byte(voicestr[i]);
    314.  
    315.            ResponseBuff[10+displen+voicelen+1]:=$55; //防干扰固定后缀
    316.            ResponseBuff[10+displen+voicelen+2]:=$aa;
    317.            ResponseBuff[10+displen+voicelen+3]:=$66;
    318.            ResponseBuff[10+displen+voicelen+4]:=$99;
    319.       end;
    320.  
    321.       2:
    322.       begin
    323.             SetLength(ResponseBuff, 4);
    324.             ResponseBuff[0]:=$96;   //命令字：驱动蜂鸣器响
    325.             ResponseBuff[1]:=$00;   //机号低
    326.             ResponseBuff[2]:=$00;   //机号高，0000表示任意机号
    327.             ResponseBuff[3]:=ComboBox1.ItemIndex;   //蜂鸣器响声代码
    328.       end;
    329.  
    330.       3:
    331.       begin
    332.             SetLength(ResponseBuff, 6);
    333.             ResponseBuff[0]:=$78;   //命令字：驱动开启继电器
    334.             ResponseBuff[1]:=$00;   //机号低
    335.             ResponseBuff[2]:=$00;   //机号高，0000表示任意机号
    336.             case ComboBox3.ItemIndex of       //开启的继电器号
    337.                  1: ResponseBuff[3]:=$f1;
    338.                  2: ResponseBuff[3]:=$f2;
    339.                  3: ResponseBuff[3]:=$f3;
    340.                  4: ResponseBuff[3]:=$f4;
    341.                  5: ResponseBuff[3]:=$f5;
    342.                  6: ResponseBuff[3]:=$f6;
    343.                  7: ResponseBuff[3]:=$f7;
    344.                  8: ResponseBuff[3]:=$f8;
    345.                  else ResponseBuff[3]:=$f0;
    346.             end;
    347.             delaytime:=StrToInt(RichEdit1.Lines[0]);
    348.             ResponseBuff[4] := delaytime mod 256;
    349.             ResponseBuff[5] := (delaytime div 256) mod 256;
    350.       end;
    351.       4:
    352.       begin
    353.             SetLength(ResponseBuff, 6);
    354.             ResponseBuff[0]:=$78;   //命令字：驱动关闭已开启继电器
    355.             ResponseBuff[1]:=$00;   //机号低
    356.             ResponseBuff[2]:=$00;   //机号高，0000表示任意机号
    357.             case ComboBox3.ItemIndex of       //继电器号
    358.                  1: ResponseBuff[3]:=$e1;
    359.                  2: ResponseBuff[3]:=$e2;
    360.                  3: ResponseBuff[3]:=$e3;
    361.                  4: ResponseBuff[3]:=$e4;
    362.                  5: ResponseBuff[3]:=$e5;
    363.                  6: ResponseBuff[3]:=$e6;
    364.                  7: ResponseBuff[3]:=$e7;
    365.                  8: ResponseBuff[3]:=$e8;
    366.                  else ResponseBuff[3]:=$e0;
    367.             end;
    368.             delaytime:=StrToInt(RichEdit1.Lines[0]);
    369.             ResponseBuff[4] := delaytime mod 256;
    370.             ResponseBuff[5] := (delaytime div 256) mod 256;
    371.       end;
    372.   end;
    373. end;
    374.  
    375. procedure TForm1.ButtonSend(sendcode:integer);
    376. var
    377. i:integer;
    378. RemotAddPort,DispStr:string;
    379. begin
    380.    if ServerSocket1.Active then
    381.    begin
    382.       i:=ListBox1.ItemIndex ;
    383.       if i>=0 then
    384.       begin
    385.           try
    386.               GetSenddata(sendcode);
    387.               ServerSocket1.Socket.Connections[i].SendBuf(ResponseBuff[0],Length(ResponseBuff));
    388.               RemotAddPort:= ServerSocket1.Socket.Connections[i].RemoteAddress+':'+inttostr(ServerSocket1.Socket.Connections[i].RemotePort);
    389.               DispStr:='Send Data To  '+RemotAddPort+' : ';
    390.               for i:=0 to Length(ResponseBuff)-1 do
    391.                   DispStr:=DispStr+inttohex(ResponseBuff[i],2)+' ';
    392.               ListBox2.Items.Add(DispStr);
    393.               ListBox2.Items.Add('');
    394.               listbox2.ItemIndex :=listbox2.Items.Count-1;
    395.           except
    396.           end;
    397.       end
    398.       else
    399.           Application.MessageBox('请先选择要向其发送指令的在线客户端！', '警告', MB_OK+MB_ICONSTOP);
    400.    end
    401.    else
    402.           Application.MessageBox('请先启动TCP服务监听！', '警告', MB_OK+MB_ICONSTOP);
    403. end;
    404.  
    405. procedure TForm1.Button1Click(Sender: TObject);
    406. begin
    407.   ButtonSend(0);
    408. end;
    409.  
    410. procedure TForm1.FormActivate(Sender: TObject);
    411. begin
    412. if ServerSocket1.Active then
    413.   begin
    414.     Button2.Caption := '停止';
    415.   end
    416. else
    417.   begin
    418.     Button2.Click();
    419.   end;
    420. end;
    421.  
    422. procedure TForm1.Button2Click(Sender: TObject);
    423. begin
    424. if not ServerSocket1.Active then
    425.   begin
    426.     try
    427.         ServerSocket1.Port := StrToInt(Edit2.Text);
    428.         ServerSocket1.Active := True;
    429.         Button2.Caption := '停止';
    430.         Edit2.Enabled := False;
    431.      except
    432.          Application.MessageBox('启动TCP服务监听失败！可能端口已被其他应用占用。', '警告', MB_OK+MB_ICONSTOP);
    433.      end;
    434.   end
    435.   else
    436.   begin
    437.     ServerSocket1.Active := False;
    438.     Button2.Caption := '启动TCP服务监听';
    439.     Edit2.Enabled := True;
    440.     ListBox1.Items.Clear();
    441.     ListBox2.Items.Clear();
    442.   end;
    443.  
    444. end;
    445.  
    446. procedure TForm1.Button3Click(Sender: TObject);
    447. var
    448.   i,links:integer;
    449. begin
    450.   ListBox1.Items.Clear();
    451.   links:=ServerSocket1.Socket.ActiveConnections;
    452.   for i:=0 to links-1 do
    453.   begin
    454.     ListBox1.Items.Add(inttostr(i)+'|'+ServerSocket1.Socket.Connections[i].RemoteAddress+':'+inttostr(ServerSocket1.Socket.Connections[i].RemotePort));
    455.   end;
    456. end;
    457.  
    458. procedure TForm1.Button6Click(Sender: TObject);
    459. begin
    460.   ButtonSend(3);
    461. end;
    462.  
    463. procedure TForm1.Button5Click(Sender: TObject);
    464. begin
    465.   ButtonSend(2);
    466. end;
    467.  
    468. procedure TForm1.Button4Click(Sender: TObject);
    469. begin
    470.   ButtonSend(1);
    471. end;
    472.  
    473. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    474. begin
    475. if ServerSocket1.Active  then ServerSocket1.Active := False;
    476. end;
    477.  
    478. procedure TForm1.Button7Click(Sender: TObject);
    479. begin
    480.   ButtonSend(4);
    481. end;
    482.  
    483. procedure TForm1.Button8Click(Sender: TObject);
    484. var
    485.  liststr:string;
    486.  i:integer;
    487. begin
    488.   if listbox2.Count <1 then exit;
    489.  
    490.   liststr:='';
    491.   for i:=0 to ListBox2.Count-1 do
    492.   begin
    493.       ListBox2.ItemIndex:=i;
    494.       liststr:=liststr+ListBox2.Items.Strings[ListBox2.ItemIndex]+#13#10;
    495.   end;
    496.   Clipboard.SetTextBuf(PChar(liststr));
    497.   Application.MessageBox('TCP通讯报文日志已拷贝！', '提示', MB_OK+MB_ICONASTERISK );
    498. end;
    499.  
    500. procedure TForm1.Button9Click(Sender: TObject);
    501. begin
    502.   ListBox2.Clear();
    503. end;
    504.  
    505. procedure TForm1.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
    506.   Shift: TShiftState; X, Y: Integer);
    507. begin
    508.   if checkbox1.Checked then Panel1.Visible :=true else Panel1.Visible :=false;
    509. end;
    510.  
    511. end.

  • 相关阅读:
    数据库.创建表
    页面初始化要做的操作
    高速DSP系统设计参考指南（五）印制电路板或PCB布局
    字字珠玑，GitHub 爆赞的网络协议手册，被华为指定内部必学？
    【Redis】如何保证Redis缓存与数据库的一致性？
    业务需求不用等！低代码开发平台随需响应、快速搭建
    【附源码】计算机毕业设计JAVA互联网保险网站
    Java 基于 SpringBoot 的学生考勤系统
    JAVA环境下使用DATAX(不使用python调用：也是个人记录一下)
    1+X 职业技能考核平台
  • 原文地址：https://blog.csdn.net/zhangjin7422/article/details/134331956