使用spcomm控件进行串口通信的程序，包括数据的发送与接收，同时采用定时发送的方式，delphi语言编写。-spcomm used for serial communication control procedures, including data transmission and reception. Timing also adopted this approach, delphi language.

procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end

spcomm使用,经常来做项目的，与单片机通信很不错的