QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 11069|回复: 6
打印 上一主题 下一主题

用C++Builder4.0编写Win 95下的串行异步通信程序

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 13:06 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>  </P>  |  E: L" V: t  W
<>姜滨 </P>' _* ]3 B0 f! M3 k
<>  </P>
* s# B5 ?6 |  C# C: Y/ G<>  ·串口操纵的基本方法· </P>
9 b* b- Y5 L- H<>  </P>9 ~6 [( N( N. {+ B. r% i
<>  </P>
4 I8 {0 K' Z2 `) t# x# h7 F& N% Z<>  在Win32下,对串口的操作就如同对文件一样打开或关闭,对串行数据的读 </P>3 x. @/ k6 V- i3 C5 g
<>写可在用户定义的读写缓冲区中进行。具体使用的函数为: </P>
4 p4 h% B. G* w& B<>  </P>3 j8 g% b5 x* U; o! Q7 E# U
<>  首先用CreateFile( )打开通信串口,其中参数lpFileName指向串口逻辑名 </P>" a* R  E. b# g! E) f! t+ V) L# r
<>,如“COM1”或“COM2”等,参数dwDesiredAccess定义文件的读写权限,一般 </P>
+ T9 L6 P5 L% K5 g<>设为GENERIC—READ|GENERIC—WRITE;参数dwShareMode定义资源共享方式,此 </P>
" S7 Y: q% f  {* Z& T0 g* D<>处必须设为0,为独占方式;lpSecurityAttributes定义安全属性,Win 95下为 </P>! r' h* H. ]: a
<>NULL;dwCreationDistribution定义文件创建方式;dwFlagsAndAttributes定义 </P>
# W) f8 j! C$ l<>文件属性和标记,应设为FILE—FLAG—OVERLAPPED,表示异步通信方式; </P>
! d$ Z5 Y  r  |9 {( B* p<>hTemplateFile 指向一个模板文件的句柄,在 Windows 95下为NULL。 </P>
+ V) b: _/ H+ ], y, I6 q9 ?) j8 D9 z<>  </P>
( {! ?- t1 p2 n: ~# u) z<>  然后用BuildCommDCB( )和SetCommState( )函数通过通信设备控制块DCB( </P>; m* l/ I# Z2 A" _2 j, z
<>Device Control Block)设置串口通信参数(如波特率、停止位、数据位、校验 </P>
4 K' J* ~6 B$ q<>位等),其中BuildCommDCB( )中的字符串参数lpDef 定义同DOS命令中MODE的参 </P>
7 r# c6 {9 I" J: e# t<>数格式,关于DCB更具体的设置需要根据用户对数据流定义、握手信号及通信控 </P>
" Z8 z9 I: I# l<>制要求具体定义,参见有关Windows技术资料。用GetCommState()可以得到当前 </P>
+ ]7 I' _; _- E# ^* {7 Q7 i) G/ B<>的DCB参数值。如果需要还可通过SetCommTimeouts()和GetCommTomeouts()重新 </P>8 v! T- P" d) K: v) W& @" L
<>设置读写的超时参数;读写缓冲区的设置使用SetupComm(),参数dwInQueue和 </P>5 K! }  _7 E' b  R! k4 I
<>dwOutQueue分别定义为输入和输出缓冲区的大小。 </P>6 ]# j" k! L1 r) ]3 l5 o9 {
<>  </P>. \- }' C- F7 y6 _: x- i- p% E
<>  在串口初始化完毕后,还要建立与通信有关的事件对象。一般使用 </P>
$ Q" m' d$ b5 I4 c4 ^  ~<>CreateEvent()函数,它返回一事件句柄,其中参数lpEventAttributes指向安全 </P>
/ e; q' d( S/ n2 z<>属性结构地址,在Win 95(无安全属性)中为NULL;布尔参数bManualReset 定 </P>
. B7 j% v6 @, w: e. T; u<>义事件重置方式,true 表示手工重置,false表示自动重置(相关函数为 </P>5 q1 u* z7 y" `* X, ]
<P>SetEvent()和ResetEvent());参数bInitialState定义事件初始状态,true表 </P>
" p3 S# j3 z* n" `  @5 P, I7 Z<P>示发信号,否则为不发信号;lpName是为多进程设置的事件名,对于单进程定义 </P>
# d# A& Z* w2 [; N- J<P>为NULL。然后用SetCommMask()定义用户程序可监视的通信事件类别。 </P>
0 ^* w8 c* R6 M, a+ ?% w4 S( v7 r<P>  </P>
; v2 V6 U7 G7 F4 V( h! s<P>  以上设置完成后,用户程序就可以等待通信事件的产生,一般调用函数 </P>. F4 [% l( b- L, ]; r' R3 }' r9 T
<P>WaitCommEvent()监视通信事件,其中参数lpEvtMask指向产生事件的掩码地址, </P>
1 j4 V& t* C: R4 ~<P>用于判断事件产生的性质,lpOverlapped指向重叠结构地址,可简单定义为 </P>% v' K  H' W; `* R/ y
<P>NULL。对于串口事件的响应一般有四种方式:查询、同步I/O、异步I/O和事件驱 </P>( o3 o1 z- v6 x4 Y" U2 N
<P>动I/O,需要根据用户不同控制要求而定。查询方式占用较长的计算机时间,同 </P>
' W7 i3 k1 d5 B/ j$ V<P>步I/O方式直到读取完指定的字节数或超时时才返回,容易造成线程阻塞,异步 </P>
1 r% `5 m  G* h6 U' n0 n<P>I/O用于后台处理,事件驱动是由系统通知用户程序发生的事件并进行串口操作 </P>" o4 }* [6 n; S8 S
<P>。 比较而言事件驱动I/O方式较灵活。 </P>1 ?% }$ q: q* d9 a
<P>  </P>
) E9 g- \+ x9 k. |$ Z<P>  当有通信事件产生时,就可用函数ReadFile()和WriteFile()直接对串口缓 </P>/ g& J. I/ h! H4 b2 ^
<P>冲区进行读写操作了。其中lpBuffer 指向读写缓冲区,nNumberOfBytes为要读 </P>
/ ^/ F% s* ~( K3 ^0 s. d+ ^1 [3 U<P>写的字节数,lpNumberOfBytes为实际读写的字节数,lpOverlapped指定同步或 </P>
  Q8 k9 K) C$ v, M% }: D<P>异步操作。通信结束后,调用函数CloseHandle()将串口关闭。 </P>
8 K$ j" c& z' P; p( E% W5 c+ M<P>  </P>+ [; z  w5 ^& C1 E
<P>  ·应用实例说明· </P>( x0 S7 A% O; m
<P>  </P>
3 j6 [) w# W1 ~3 X# v* H% R<P>  </P>9 ~- ^& T0 O' e- |9 V
<P>  使用以上的API函数,笔者给出了简化后的串口初始化的实例。图1为使用C </P>- \' W, g2 J1 v/ R) i
<P>++ Builder 组件生成的串口通信基本参数设置的界面实例。 </P>
6 s: N1 H$ F0 |' ^; Q9 u<P>  </P>
% [2 z! F- j( R  F' @. g<P>  HANDLE hcom; //定义句柄 </P>
4 e! t# J' n; ?, P4 C1 O6 s3 G/ U<P>  </P>
3 I5 [" I7 u7 _5 M9 q<P>  DCB dcb; </P>
% `; i6 H& W: n7 `7 I<P>  </P>
6 Y* ]5 d) C7 N, f1 ~& Q<P>  OVERLAPPED e; //定义重叠结构 </P>
2 }7 ^( [7 m8 x* A% a1 |0 i<P>  </P>
) D) X/ d3 d9 o# X/ ], s<P>  void —fastcall TForm1::OkBtnClick(TObject?Sender) </P>
" g$ ?: i9 S8 |! m<P>  </P>9 t* E; W: g1 d% U& N. C
<P>  { hcom=CreateFile("COM2",GENERIC—READ|GENERIC—WRITE,0,NULL,OPEN </P>% @! l: `) h$ T# }* S
<P>—EXISTING, </P>
) u# o" T9 x% _( R3 J* F# b! i<P>FILE—ATTRIBUTE—NORMAL|FILE—FLAG—OVERLAPPED,NULL); //打开通讯口 </P>
7 R6 u! t. \& x: A. N0 P5 g<P>  </P>
9 E0 k" X, v9 K# E$ J  c8 y% J<P>   BuildCommDCB("9600,O,8,1",&dcb); </P>
# j/ l3 t! @; n- m<P>  </P>
) [" l7 K# M3 ?' [<P>//第一个字符串参数实际使用时由图1选择后组合,这里仅简单说明其格式 </P>: m9 Q  z# _: s. Q
<P>  </P>
8 s0 a, T8 k" e7 t, w<P>   SetCommState(hcom,&dcb); </P>  H: a8 A+ ?# B- S5 n& I2 j- @
<P>  </P>$ r  e7 N; E+ N4 L
<P>   SetupComm(hcom,512,512);//设置读写缓冲区 </P>: R4 h1 ?% l& ~. |: i: t' r
<P>  </P>
! S) Q: C! v: j  {+ M+ w% a<P>   e.hEvent=CreateEvent(NULL,false,false,NULL); //设置事件 </P>
; l1 C( P* x/ c3 V3 O2 g<P>  </P>* }: m, r0 Q6 V8 g* i" g: N
<P>   SetCommMask(hcom,EV—RXCHAR| EV—TXEMPTY); //设置事件掩码 </P>
4 L2 v% i% _- }& V<P>  </P>2 {1 W' t0 Q6 @
<P>   OkBtn-〉Enabled=false;} </P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
cjplove        

0

主题

0

听众

50

积分

升级  47.37%

该用户从未签到

新人进步奖

回复

使用道具 举报

cjplove        

0

主题

0

听众

50

积分

升级  47.37%

该用户从未签到

新人进步奖

回复

使用道具 举报

lhc_mike        

0

主题

2

听众

52

积分

升级  49.47%

该用户从未签到

新人进步奖

回复

使用道具 举报

xtmlj        

0

主题

2

听众

95

积分

升级  94.74%

该用户从未签到

新人进步奖

回复

使用道具 举报

ai8815 实名认证       

0

主题

3

听众

26

积分

升级  22.11%

该用户从未签到

自我介绍
呵呵 大家多多交流呀!!
回复

使用道具 举报

ai8815 实名认证       

0

主题

3

听众

26

积分

升级  22.11%

该用户从未签到

自我介绍
呵呵 大家多多交流呀!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-9-2 04:08 , Processed in 0.390963 second(s), 85 queries .

回顶部