《2022年Spcomm串口控件的例程Delphi教程.docx》由会员分享,可在线阅读,更多相关《2022年Spcomm串口控件的例程Delphi教程.docx(3页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、2022年Spcomm串口控件的例程Delphi教程 /串口初始化 procedure TForm1.BitBtn3Click(Sender: TObject); begin comm1.startcomm; end; /关闭串口 procedure TForm1.BitBtn4Click(Sender: TObject); begin comm1.StopComm; end; /发送数据 procedure TForm1.BitBtn1Click(Sender: TObject);{var str:string; ch1:char; begin comm1.WriteCommDat
2、a(ch,1); end. /接收数据 procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); type ss=array1.500of char ; var str1:ss; i:integer; s:array0.15 of char ; n:integer; begin str1:=Buffer; /s=(0,1,2,3.E) for i:=0 to 9 do si:=chr(48+i); for i:=10 to 15 do si:=chr(55+i); for i:=1 to bufferlength do begin n:=ord(str1i); listbox1.Items.add( inttostr(listbox1.Items.Count+1) + - +sn div 16+sn mod 16); end; listbox1.Refresh; if listbox1.Items.count > strtoint(form2.edit1.text) then listbox1.Items.Clear; end;