求串口通讯步骤
要编写个简单的串口通讯程序。
用cport套件
串口通讯第一次学,也第一次用。
我想写一个实时通讯的程序,一直发送数据,返回数据保存至变量(分析后保存至文件)。
在实时通讯时要下载些数据,怎么处理?
想知道做这个程序,具体实现的步骤应该是怎样的?
谢谢各位。
[解决办法]
spcomm很好用的,资料也很多
[解决办法]
简单做了下,希望能对你有所帮助:
一直发送:(Timer定时1000毫秒)
- Delphi(Pascal) code
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPortCtl, ExtCtrls, CPort;type TForm1 = class(TForm) ComPort1: TComPort; Timer1: TTimer; Edit_Data: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; Ts: Integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Ts:= 0; ComPort1.Open; Timer1.Enabled:= True; Button1.Enabled:= False;end;procedure TForm1.Timer1Timer(Sender: TObject);var Str: String;begin Str := Edit_Data.Text; ComPort1.WriteStr(Str); Inc(Ts); Self.Caption:= IntToStr(Ts);end;procedure TForm1.Button2Click(Sender: TObject);begin Timer1.Enabled:= False; ComPort1.Close; Button1.Enabled:= True;end;end.
[解决办法]
用spcomm,比Cport好。
[解决办法]
[解决办法]
[解决办法]
没用过CPORT,SPCOMM控件带有多线程处理功能。推荐使用。