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

Delphi7串口通信（spcomm控件）实例最近在用delphi7做串口通信，网上找了很多例程，复制粘贴运行就没有能通过的，再次鄙视一下列位先行者，你们帮人倒是帮到底啊，没一个是拿过来能用的，太坑了，在N天的努力下（鄙人比较笨）终于通过串口接收到数据，希望给后来人予以帮助，程序如下：功能简介功能比较简单，只是从串口接收单片机发送的数据，给memo1unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Comm1: TComm; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); procedure Comm1ModemStateChange(Sender: TObject; ModemEvent: Cardinal); private Private declarations public Public declarations end;var Form1: TForm1; viewstring:string; i:integer; rbuf,sbuf:array1.16 of byte;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin Comm1.OnReceiveData:=Comm1ReceiveData; comm1.StartComm;end; /打开串口procedure TForm1.Button2Click(Sender: TObject);begin comm1.StopComm;end; /关闭串口procedure TForm1.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(rbufi,2)+ ; viewstring:=接收+ viewstring; memo1.lines.add(viewstring); memo1.lines.add(); end;/接收数据procedure TForm1.Comm1ModemStateChange(Sender: TObje