delphi7串口通信(spcomm控件)实例.docxVIP

Delphi7串口通信（spcomm控件）实例 最近在用delphi?做串口通信，网上找\很多例程，复制粘 贴运行就没有能通过的，再次鄙视一下列位先行者，你们帮 人倒是帮到底啊，没一个是拿过来能用的，太坑了，在N天 的努力下（鄙人比较笨）终于通过串口接收到数据，希望给 后来人予以帮助，程序如下： 功能简介 功能比较简单，只是从串口接收单片机发送的数据，给 memol unit Unitl; interface uses Windows, Messages, SysUtiIs, Variants, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls; type TForml 二 class(TForm) Buttonl: TButton; Button2: TButton; Comml: TComm; Memo1: TMemo; procedure ButtonlClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure CommlReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); procedure CommlModemStateChange (Sender: TObject; ModemEvent: Cardinal); private { Private declarations } public { Public declarations } end; var Forml: TForml; viewstring:string; i:integer; rbuf,sbuf:array[1.. 16] of byte; implementation {$R *? dfm} procedure TForml. ButtonlClick(Sender: TObject); begin Comml. OnReceiveData:=CommlReceiveDat; comm1. StartComm; end; //打开串口 procedure TForml. Button2Click(Sender: TObject); begin comm1. StopComm; end; //关闭串口 procedure TForml. CommlReceiveDa(Sender: TObject; Buffer: Pointer;BufferLength: Word); var i:integer; begin viewstring:」; move(buffer, pchar(@rbuf) : buffer1ength); for i:=1 to bufferlength do views tring :riewstring+ int tohex(rbuf [i], 2)+J ; viewstring:」接收+ viewstring; memo1. lines, add(viewstring); memo 1. lines. add(J ); end; 〃接收数据 procedure TForml. CommlModemStateChange(Sender: TObject; ModemEvent: Cardinal); begin end; end. 运行测试，顺利通过，接收到单片机发送的数据，感谢百度 好友的帮助。 （注：可编辑下载，若有不当之处，请指正，谢谢!）