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

一、界面二、spcomm属性设置三、全部代码unit commmtest;interfaceuses 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: