Delphi Spcomm串口控件的例程


本文整理自网络,侵删。

 

Spcomm串口控件的例程 

//串口初始化

 procedureTForm1.BitBtn3Click(Sender: TObject);

 begin

    comm1.startcomm;

 end;

   //关闭串口

 procedureTForm1.BitBtn4Click(Sender: TObject);

 begin

    comm1.StopComm;

 end;

 //发送数据

 procedureTForm1.BitBtn1Click(Sender: TObject);{var str:string;ch1:char;}

 begin

 comm1.WriteCommData(ch,1);

 end.

 //接收数据

 procedureTForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);

 type   ss=array[1..500]of char ;

 var    str1:^ss;

        i:integer;

        s:array[0..15] ofchar ;

        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 15do

        s[i]:=chr(55+i);

        for i:=1 tobufferlength do

        begin

        n:=ord(str1^[i]);

        listbox1.Items.add(inttostr(listbox1.Items.Count+1)+'- '+s[n div 16]+s[n mod 16]);

        end;

        listbox1.Refresh;

       iflistbox1.Items.count > strtoint(form2.edit1.text)

       thenlistbox1.Items.Clear;

 end;


相关阅读 >>

Delphi研究之驱动开发篇(五)--使用后备列表

Delphi richedit文字背景色的处理

Delphi 定时鼠标模拟点击

Delphi编辑环境

Delphi 文件crc和md5校验

Delphi ttask无法传递参数的一个解决方案

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi splitter 控件属性及作用

Delphi 中的颜色常量及效果图

Delphi调用外部程序并等待其运行结束

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...