繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Spcomm串口控件的例程
- Delphi
- Delphi开发经验四则
- Delphi应用程序的应用（一）
- Delphi应用程序的应用（二）
- 异常处理与程序调试（一）
- 异常处理与程序调试（二）
- 异常处理与程序调试（三）
- Delphi开发数据库应用程序概述（一）
- Delphi开发数据库应用程序概述（二）
- 简单数据库应用的创建及MASTAPP介绍（一）
- 简单数据库应用的创建及MASTAPP介绍（二）
- 简单数据库应用的创建及MASTAPP介绍（三）
- 数据访问部件的应用及编程（一）
- 数据访问部件的应用及编程（二）
- 数据访问部件的应用及编程（三）
- 数据浏览部件的应用及编程（一）
- 数据浏览部件的应用及编程（二）
- SQL编程（一）
- SQL编程（二）
- Delphi客户服务器应用开发（一）
- Delphi客户服务器应用开发（二）
Delphi 中的 Spcomm串口控件的例程
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 163 ::
收藏到网摘: n/a
//串口初始化
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
comm1.startcomm;
end;
//关闭串口
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
comm1.StopComm;
end;
//发送数据
procedure TForm1.BitBtn1Click(Sender: TObject);{var str:string;
ch1:char;
begin
comm1.WriteCommData(ch,1);
end.
//接收数据
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
type ss=array[1..500]of char ;
var str1:^ss;
i:integer;
s:array[0..15] of char ;
n:integer;
begin
str1:=Buffer;
//s[]=('0','1','2','3'...'E')
for i:=0 to 9 do
s[i]:=chr(48+i);
for i:=10 to 15 do
s[i]:=chr(55+i);
for i:=1 to bufferlength do
begin
n:=ord(str1^[i]);
listbox1.Items.add(
inttostr(listbox1.Items.Count+1)
&n
评论 (0) All
