知识大全 Delphi实现远程串口的数据采集[1]
Posted 函数
篇首语:走路不怕上高山,撑船不怕过险滩。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 Delphi实现远程串口的数据采集[1]相关的知识,希望对你有一定的参考价值。
Delphi实现远程串口的数据采集[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
摘要 本文介绍了在Windows平台下串口开发的方法 并给出一个使用Delphi设计的远程数据采集的实例 引言 在工业生产实践中 使用PC机对Inprise公司推出的Delphi是一种功能强大的高级编程语言 其具有可视化面向对象的特征 特别适合Windows平台下的图形界面和用户程序的编制 本文就介绍在Windows平台下用Delphi开发串口的方法和使用Delphi设计的一个实现远程串行数据采集的实例 串口工作原理及软件实现方法 串口进行通信的方式有两种 同步通信方式和异步通信方式 同步通信方式要求通信双方以相同的时钟频率进行 而且准确协调 通过共享一个单个时钟或定时脉冲源保证发送方和接收方的准确同步 效率较高 异步通信方式不要求双方同步 收发方可采用各自的时钟源 双方遵循异步的通信协议 以字符为数据传输单位 发送方传送字符的时间间隔不确定 发送效率比同步传送效率低 在Windows平台下 Win API支持同步和异步两种I/O操作 同步操作的方式的程序设计相对比较简单 但是I/O操作函数在I/O操作结束前不能返回 这将挂起调用线程 直到I/O操作结束 异步操作方式要相对复杂一些 但是可以让I/O操作在后台运行 而不会挂起调用线程 这在大数据量通信情况下对改善调用线程的响应速度是相当有效的 同时由于Win x和WinNT下对串行通信的处理不同 这就导致了在Win x下开发的同步方式串行通信程序在NT下会发生工作线程之间的协作阻塞 即当读线程在等待WaitCommEvent的时候 写线程不能正常工作 停在那里 整个程序处于瘫痪状态 这个问题是Windows的API函数处理串行通信的一个BUG 所以对于适应性强的程序都是选择异步方式 下面 本文对在Windows平台下对串口进行开发的方法进行介绍 . 汇编程序直接读写串口 汇编语言的编译效率和执行效率都很高 使用汇编语言直接对串口进行操作可以部分弥补串行通信速度较慢的缺陷 具体做法是 用汇编语言编写读 写串口的函数 在通信程序中直接调用 或者在Delphi中直接内嵌汇编程序进行对端口的读写 例如asm mov dx h mov ax eh int hend;
这样可以达到直接读到端口的效果 但是在WinNT和Win 下 系统使用了保护机制 不允许用户态的程序直接读取端口 所以在WinNT和Win 下 这种方法不能被允许执行 Ring 的用户态的程序要进入Ring 去读写端口必须先提供一个驱动(sys)程序 然后通过DLL导出函数供用户程序调用 显然 这种方法比较不容易实现 . 使用API函数进行串口编程 Windows系统通信一般都以WOSA(Windows Open Service Architecture 即Windows开放式服务体系)模型为基础 在此模型中位于上层的应用程序通过调用各种通信API(Application Programming Interfaces 即应用程序接口)与位于下层的设备驱动程序进行数据交换 在Windows平台下 Windows将设备看作是文件进行管理 对设备的操作也可以看作是对文件的操作 Win API提供了CreateFile() WriteFile() ReadFile() WaitForSingleObject() WaitForMultipleObjects() CreateEvent() CreateMutex() CreateSemaphore() CreateThread()等函数 其基本步骤如下 ( ) 利用CreateFile()函数打开串口 该函数有七个参数 其中dwCreationDistribution参数取OPEN_EXISTING 表明打开的串口对应于实际的物理串口 lpFileName参数是要打开的串口名称 如 DwFlagsAndAttributes参数决定对串口的操作是同步操作还是异步操作 DwDesiredAccess参数是访问方式 可取GENERIC_READ或GENERIC_WRITE DwShareMode参数是共享模式 对串口物理设备必须取 LpSecurityAttributes参数是安全属性 取值为NULL DwFlagsAndAttributes是文件属性和标识 一般取值为FILE_ATTRIBUTE_NORMAL 该函数返回串口操作的句柄 ( ) 对该串口句柄对应的设备进行配置 如波特率 数据位 停止位 是否奇偶校验等 这部分首先使用GetCommState()函数得到当前的串口配置信息 将这些信息存放在一个DCB结构中 然后对该DCB结构里面的内容进行重新按要求设置 最后调用SetCommState()函数使修改的设置生效 ( ) 配置串口事件 SetCommMask()函数可以设置多个串口信息事件 其串口的信息事件可以是以下任意的组合 EV_BREAK 在输入时Windows检测到中断 EV_CTS CTS信号改变状态 EV_DSR DSR信号改变状态 EV_ERR 发生线状态错误 EV_RING 检测到振铃指示 EV_RLSD 接收线信号探测状态发生改变 EV_RXCHAR 接收缓冲区里收到字符 EV_RXFLAG 收到事件字符 并放入接收缓冲区 EV_TXEMPTY 输出缓冲区空
( ) 创建串口监视线程监视串口事件 首先使用WaitForSingleObject() WaitForCommEvent() WaitForMultipleObjects()等等待函数对线程进行控制 当没有数据收发时 将线程阻塞 减少其CPU的资源占用 当有数据收发时 线程自动启动 完成数据的收发 最后调用CreateThread()函数启动线程 ( ) 串口使用结束 用CloseHandle()函数关闭串口 回收资源 由此可见 利用Win API函数编写串口通信程序比较复杂 需要掌握大量的系统和通信知识 其优点是实现的功能强大 应用面广泛 适合编写较为复杂的地层次应用程序 cha138/Article/program/Delphi/201311/24926 相关参考
公司开发的软件需要对串口进行操作每次打开软件后程序自动去打开串口寻找连接到串口上的设备但是如果用户不知道打开了两次那么第二次打开的程序是不能正常使用的因为对串口的操作时独占的第一个程序独占了串口的
知识大全 51单片机如何初始化成8-n-1(8数据位,无奇偶校验位,1停止位)波特率,是用串口的模式几
51单片机如何初始化成8-n-1(8数据位,无奇偶校验位,1停止位)波特率,是用串口的模式几?用串口的模式1,是10位异步通信方式。1起始位,8数据位,1停止位,没有奇偶校验位。这种模式就是:8-n-
Delphi中用ICMP探测远程主机是否存活 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!网络通讯
如何用Delphi6实现对计算机的远程控制 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! Win
单片机串口通信的波特率有什么用两个串口之间通讯的速率,两个串口的波特率设置成一样才能互相发送和接收数据单片机串口通信的波特率如何计算教材上都有计算公式的,还可以用波特率计算软件来计算STC单片机下载入
使用数据模块和远程数据模块 数据模块是包含了非可视化组件的特殊的窗体这些组件可以与那些可视化控件一起在普通的窗体中使用不过如果用户计划重新使用
我们有时候需要在本地数据库的存储过程中或者在其他SQL语句中要访问一个远程数据库我们可以这样做 在存储过程中连接远程数据库并进行操作 查看远程数据库的相关数据 SERVICE_NAME 两
使用PHP采集远程图片 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 当我们需要采集网络上的某个
首先将要复制的表导入到远程数据假设本地表名为hw在数据库也有一个名为hw的结构相同的表已经有了条数据 导入成功后会新增一个表hw 运行以下语句会复制一个表hw select*intohwfr
Oracle自动异地远程数据备份研究 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 当前随着行业