利用SPCOMM控件或ActiveX控件MSComm32.ocx的读串行口数据过程
都可实现,以MSComm32.ocx为例:
1、Delphi3中的菜单Component/Import ActiveX Control安装控件
2、将TMSComm控件加入窗体,指定属性初始化:
MSComm1.CommPort := 1 ;
MSComm1.Settings := '9600,N,8,1' ;
MSComm1.InputLen := 0 ;
MSComm1.InputMode := 1 ;
MSComm1.PortOpen := True ;
然后用查询接收:
var InputBytes : variant ;
repeat
Application . ProcessMessages;
until MSComm1 . InBufferCount <= 0
InputBytes := MSComm1 . Input ;
Edit1 . Text := InputBytes ;
这不就OK啦
当然,同样也可利用中断接受数据,在此略。