基于Delphi通s过pcomm控件实现串口数据读写.docxVIP

一、界面 二、spcomm属性设置 三、全部代码 unit commmtest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls; type TFCOMM = class(TForm) COMM1: TComm; btn1: TButton; memo1: TMemo; btn2: TButton; edt1: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure btn1Click(Sender: TObject); procedure senddata; procedure COMM1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FCOMM: TFCOMM; Viewstring:string; i:integer; sbuf:string; rbuf:array[1..20] of Byte; implementation {$R *.dfm} procedure TFCOMM.btn1Click(Sender: TObject); begin sbuf:=edt1.Text+#13#10; senddata(); end; procedure TFCOMM.btn2Click(Sender: TObject); begin comm1.StartComm; end; procedure TFCOMM.COMM1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var i:integer; begin viewstring:=; move(buffer^,pchar(@rbuf)^,bufferlength); for i:=1 to bufferlength do viewstring:=viewstring+inttohex(rbuf[i],2)+; //inttohex把一个整型数字转换成16进制形式的字符串 viewstring:=viewstring; memo1.lines.add(viewstring); memo1.lines.add(); end; procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction); begin comm1.StopComm; end; procedure TFCOMM.senddata; var i:integer; commflg:boolean; begin viewstring:=; commflg:=true; for i:=1 to Length(sbuf) do begin if not m1.writecommdata(@sbuf[i],1) then begin commflg:=false; break; end; sleep(2); {发送时字节间的延时} viewstring:=viewstring+sbuf[i]+; end; viewstring:=viewstring; fcomm.memo1.lines.add(viewstring); fcomm.memo1.lines.add(); if not commflg then messagedlg(发送失败!,mterror,[mbyes],0); end; end. 四、该程序实现编辑框中代码通过串口发送，接收串口数据，显示在memo1中