Spcomm串口控件的例程

2016-01-29 14:09 76 1 收藏

Spcomm串口控件的例程,Spcomm串口控件的例程

【 tulaoshi.com - Delphi 】

 
 //串口初始化

           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

来源:http://www.tulaoshi.com/n/20160129/1492636.html

延伸阅读
标签: Web开发
对于Web访问者而言, HyperLink、LinkButton控件是一样的, 但它们在功能方面仍然有较大的差异。 当用户点击控件时: HyperLink控件 会立即将用户“导航”到目标URL,表件不会回送到服务器上。 LinkButton控件 则首先将表件发回到服务器,然后将用户导航到目标URL。 如果在“到达”目标URL之前需要进行服务器...
自定义dialog肯定是用的很多了但是感觉每次做都是很乱 单纯完成任务而已,现在封装了一下 以后用到直接copy 先上图: 主activity 代码如下: package com.su.testcustomdialog; import com.su.testcustomdialog.MyDialog.Dialogcallback; import android.app.Activity; import android.os.Bundle; import android.view.View; import ...
标签: PHP
如何创建我们的第一个PHP页面呢?非常简单的!选择我们使用的一个最好的设计工具,当然你也可以 只使用记事本。创建之后记得要保存为扩展名为PHP的文件,然后传到我们的服务器上。 在编写PHP程序之前通常我们需要配置我们的环境,也就是说服务器要支持PHP才能行啊 一、PHP的基本结构: 使用Include函数 <Html...
'调用方法Text2=ChMoney(Val(Text1)) '名称:CCh '得到一位数字N1的汉字大写 '0返回"" PrivateFunctionCCh(N1)AsString SelectCaseN1 Case0 CCh="零" Case1 CCh="壹" Case2 CCh="贰" Case3 CCh="叁" Case4 CCh="肆" Case5 CCh="伍" Case6 CCh="陆...
标签: 电脑入门
电脑串口引脚定义 按序号说明: 1 载波检测(DCD) 2 接受数据(RXD) 3 发出数据(TXD) 4 数据终端准备好(DTR) 5 信号地线(SG) 6 数据准备好(DSR) 7 请求发送(RTS) 8 清除发送(CTS) 9 振铃指示(RI) 此上为计算机串中管脚定义说明。

经验教程

732

收藏

44
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部