用Delphi 7.0 和 Mscomm控件实现和arduino 通信控制.doc

用Delphi 7.0 和 Mscomm控件实现和arduino 通信控制大家知道一般控制arduino是用USB模拟的串口通信。通过Delphi对串口编程虽然有很多方法,比如直接用api 操作IO端口、spcomm控件等。但是经过本人摸索，最好用的还是用微软的OCX控件Mscomm。以下用一个实例来说明：arduino UNO单片机程序是一个6LED灯控制程序27脚输出，接受USB模拟的串口的命令控制。接到字符27表示单独点亮相应脚上的LED灯接到字符A或a 表示点亮所有6个LED灯。接收字符C或c表示熄灭所有LED灯。接收字符表示逐个点亮27脚上的LED灯，然后熄灭如此循环。接收字符#表示执行一个跑马灯循环。arduino UNO单片机接受到字符命令并执行后，向上位机返回接受命令并成功执行的回应。int BASE = 2;int NUM = 6;char iword;char loop_stat = ;int out_led;void low_all()/灯全灭过程 for (int i = BASE; i BASE + NUM; i +) digitalWrite(i,LOW); void setup() for (int i = BASE; i 0) /判断串口缓冲器是否有数据装入 iword = Serial.read(); /读取串口 if (iword=2) & (iword=7) low_all(); out_led=byte(iword)-48; digitalWrite(out_led,HIGH); Serial.print(OK ); Serial.println(out_led); iword= ; loop_stat= ; else if (iword=c) | (iword=C) ) low_all(); Serial.print(OK ); Serial.println(CLEAR!); iword= ; loop_stat= ; else if (iword=a) | (iword=A) for (int i = BASE; i ); else if (iword=#) loop_stat=#; Serial.println(OK # -); if (loop_stat != ) if (loop_stat=) low_all(); delay(100); for (int i = BASE; i BASE + NUM; i +) digitalWrite(i,HIGH); delay(100); if (loop_stat=#) low_all(); delay(100); for (int i = BASE; i 2) digitalWrite(i-1,LOW); digitalWrite(i,HIGH); delay(100); Delphi上位机的程序：unit UnitComm;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls, Menus;type TForm1 = class(TForm) MSComm1: TMSComm; Edit1: TEdit; Button1: TButton; Memo1: TMemo; Edit2: TEdit; Label2: TLabel; Button2: TButton; Memo2: TMemo; Label3: TLabel; Label4: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure MSComm1Comm(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.DFMprocedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin if mscomm1.PortOpen=true then mscomm1.PortOpen:=false; /关闭串口end;procedure TForm1.Button1Click(Sender: TObject);var i:integer; t:DWORD;begin memo1.lines.Clear; if mscomm1.PortOpen=true then mscomm1.PortOpen:=false; /关闭串口 mscomm1.CommPort:=strtoint(edit2.text); mscomm1.PortOpen:=true; /打开串口end;procedure TForm1.MSComm1Comm(Sender: TObject);/处理端口触发的事件。读、写或发生错误等事件时，此函数被自动调用。var s:string;begin if mscomm1.CommEvent=comEvReceive then /如果是接收数据事件 begin s:=MSComm1.Input; /读串口 memo1.Lines.Text:=memo1.Lines.Text+s; /显示 memo1.SelStart:=memo1.MaxLength; memo1.SelLength:=1; end;end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key=chr(13) then begin mscomm1.Output:=edit1.text+chr(13); /向传输缓冲区写数据流 While mscomm1.OutBufferCount 0 do application.ProcessMessages; /如果写操作没有完成，则等待 memo2.Lines.Add(edit1.Text); edit1.Clear; end;end;procedure TForm1.Button2Click(Sender: TObject);begin if msc