自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

  • 博客(9)
  • 收藏
  • 关注

原创 检查RS232(串口)是否接有设备

在RS232中有4个脚位可用来回应讯号给电脑分別为CTS,DSR,RING,RLSD当未接上设备时,脚位的电太皆为低电压,讯号传回OFF,很多设备都利用此四个脚位与电脑沟通,所以检查脚位电压就知道改COM上是否有设备存在MS_CTS_ON,MS_DSR_ON,MS_RING_ON,MS_RLSD_ONprocedure TForm1.Button1Click(Sender: TObject);va

2005-02-18 18:36:00 2176 3

原创 Delphi读取本机存在的串口

uses  Registry;procedure TForm1.Button1Click(Sender: TObject); var   reg : TRegistry;   sl: TStrings;   i: integer; begin   reg := TRegistry.Create;   try    reg.RootKey := HKEY_LOCAL_MACHINE;     reg

2005-02-18 15:06:00 1606 1

转载 Delphi中MsComm控件的安装使用

  Delphi 具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者。但是在对串口通信的控制上Delphi的帮助文档和其他书籍中很少提及,这恰恰又是在开发应用系统时会经常遇到的问题。用过VB的程序员都知道 VB的MSComm通信控件具有丰富的与串口通信密切相关的属性及事件,提供了一系列标准通信命令的接口,可以用它创建全双工的、事件驱动的、高效实用的通信程序。在这

2005-02-17 23:30:00 1477

原创 在delphi7中利用mscomm控件编程

    Mscomm是微软一个强大的串口通讯的控件,其强大,简单的特点今我们不舍,在delphi中我们也可以使用它。下面这些代码是针对发送和接收为16进制处理的。var  senddata:array[1..10] of char;  reData:array of Variant;  sendstr:string;  restr:string;  i:longint;begin  mscomm1

2005-02-17 23:28:00 1618

转载 MSComm控件使用详解

     MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便,程序员不必去花时间去了解较为复杂的API函数,而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control(以下简称MSComm)是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件,它为应用程

2005-02-17 17:03:00 1226

转载 Spcomm串口控件的例程

//串口初始化procedure TForm1.BitBtn3Click(Sender: TObject);    begin        comm1.startcomm;    end;//关闭串口procedure TForm1.BitBtn4Click(Sender: TObject);    begin        comm1.StopComm;    end;//发送数据proced

2005-02-17 14:11:00 1668

转载 Delphi 中串口通讯的实现

        Delphi 是新一代可视化开发工具,它具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者,它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点,许多程序员选择Delphi作为开发工具编制各种应用程序。但是,令人惋惜的是Delphi没有自带串口通讯的控件,在它的帮助文档里也没有提及串口通讯,这就给编制通讯程序的开发人员带来

2005-02-17 14:05:00 2096 2

转载 Delphi中实现金额小写转化成大写

function NumToChar(const n: Real): string;   //可以到万亿,并且可以随便扩大范围const cnum:  array[0..9]  of string = (零,壹,贰,叁,肆,伍,陆,柒,捌,玖);      cunit: array[0..14] of string = (万,仟,佰,拾,亿

2005-02-16 22:27:00 654

原创 第一次写blog

这年头都流行什么来什么,Blog都出来好久了,早就想开个,但一直没时间,今天终于好了

2005-02-16 21:26:00 588

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除