QQ登录

只需要一步,快速开始

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

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

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 13:06 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>  </P>' r6 M% x1 N7 x6 e0 s1 t" z' [/ E
<>姜滨 </P>; F; e" ?" A( E/ T, e
<>  </P>) u) U* C( Y, H3 a
<>  ·串口操纵的基本方法· </P>6 I5 y* Z' n& V, q1 P8 S
<>  </P>% ]' |3 H4 z# u# }" A2 B7 ^+ D
<>  </P>2 s7 ~1 ~; d/ o& }  P
<>  在Win32下,对串口的操作就如同对文件一样打开或关闭,对串行数据的读 </P>
- s9 ~$ ]7 n7 n) q& y6 |# v<>写可在用户定义的读写缓冲区中进行。具体使用的函数为: </P>6 l, z+ g& [/ ^& d( S
<>  </P>
; f* a; Y% ?9 H( ^& `, G( R7 _<>  首先用CreateFile( )打开通信串口,其中参数lpFileName指向串口逻辑名 </P>
9 r* B1 \' a2 Q+ u: \1 [: s<>,如“COM1”或“COM2”等,参数dwDesiredAccess定义文件的读写权限,一般 </P>* \; D6 n7 n6 r, Q
<>设为GENERIC—READ|GENERIC—WRITE;参数dwShareMode定义资源共享方式,此 </P>
2 i( J+ M0 h- g9 c3 x& o<>处必须设为0,为独占方式;lpSecurityAttributes定义安全属性,Win 95下为 </P>$ u, w8 e& i" `
<>NULL;dwCreationDistribution定义文件创建方式;dwFlagsAndAttributes定义 </P>
- O+ d! g8 ?! }$ |7 r<>文件属性和标记,应设为FILE—FLAG—OVERLAPPED,表示异步通信方式; </P># `8 m/ Y' Q  K0 t. }! u4 M
<>hTemplateFile 指向一个模板文件的句柄,在 Windows 95下为NULL。 </P>
/ M5 Q; |! y% o. B<>  </P>
8 v5 Y9 z. N- F& Z<>  然后用BuildCommDCB( )和SetCommState( )函数通过通信设备控制块DCB( </P>% G& ^2 |/ k0 I. m- W
<>Device Control Block)设置串口通信参数(如波特率、停止位、数据位、校验 </P>- \  V3 M+ S- a. Z
<>位等),其中BuildCommDCB( )中的字符串参数lpDef 定义同DOS命令中MODE的参 </P>+ B7 ?0 T: c' h* Q0 b# N- S
<>数格式,关于DCB更具体的设置需要根据用户对数据流定义、握手信号及通信控 </P>
# A7 X  A5 C. H7 ]' Q<>制要求具体定义,参见有关Windows技术资料。用GetCommState()可以得到当前 </P>
& w9 c' D2 b3 [$ D$ @9 p<>的DCB参数值。如果需要还可通过SetCommTimeouts()和GetCommTomeouts()重新 </P>1 D4 P/ w3 P9 _. f, x2 \* q9 _9 s
<>设置读写的超时参数;读写缓冲区的设置使用SetupComm(),参数dwInQueue和 </P>3 z% w& X( T$ j( X1 ^4 h
<>dwOutQueue分别定义为输入和输出缓冲区的大小。 </P>
/ \: J0 c* u3 h8 j: l<>  </P>/ p" Z. u3 `/ _9 h
<>  在串口初始化完毕后,还要建立与通信有关的事件对象。一般使用 </P>
; m3 ?+ n6 s) R' m  W$ i. w3 ?<>CreateEvent()函数,它返回一事件句柄,其中参数lpEventAttributes指向安全 </P>
( I0 Y4 q& t* c) h<>属性结构地址,在Win 95(无安全属性)中为NULL;布尔参数bManualReset 定 </P>
9 T0 K. c. K+ S5 `4 g! @<>义事件重置方式,true 表示手工重置,false表示自动重置(相关函数为 </P>6 ^$ _( ~- i( K
<P>SetEvent()和ResetEvent());参数bInitialState定义事件初始状态,true表 </P>
8 D5 m; a: C: D" O, W* F+ w<P>示发信号,否则为不发信号;lpName是为多进程设置的事件名,对于单进程定义 </P>
! @+ D+ y! f4 \9 w/ I) T<P>为NULL。然后用SetCommMask()定义用户程序可监视的通信事件类别。 </P>
2 E1 U3 k' ?; Q, n# D+ Z+ u<P>  </P>" I0 r3 R5 b* o, g
<P>  以上设置完成后,用户程序就可以等待通信事件的产生,一般调用函数 </P>" S: f- {7 v3 ~1 U2 j7 V, T" @
<P>WaitCommEvent()监视通信事件,其中参数lpEvtMask指向产生事件的掩码地址, </P>" E/ b5 i3 C/ S2 Z1 p
<P>用于判断事件产生的性质,lpOverlapped指向重叠结构地址,可简单定义为 </P>; g6 [; i: m6 K; k
<P>NULL。对于串口事件的响应一般有四种方式:查询、同步I/O、异步I/O和事件驱 </P>
9 s. K9 T0 G( E3 }<P>动I/O,需要根据用户不同控制要求而定。查询方式占用较长的计算机时间,同 </P>
. B4 Z6 L" o- B, @9 I+ i+ N<P>步I/O方式直到读取完指定的字节数或超时时才返回,容易造成线程阻塞,异步 </P>; b/ d9 M7 O1 U2 U! b" r
<P>I/O用于后台处理,事件驱动是由系统通知用户程序发生的事件并进行串口操作 </P>) H& Y" }3 Z; W( u
<P>。 比较而言事件驱动I/O方式较灵活。 </P>! Z7 P2 n" x* G7 @, M1 X
<P>  </P>) {4 m7 h; _& t2 Z
<P>  当有通信事件产生时,就可用函数ReadFile()和WriteFile()直接对串口缓 </P>
6 _+ B  y$ E% T: ?<P>冲区进行读写操作了。其中lpBuffer 指向读写缓冲区,nNumberOfBytes为要读 </P>
' {% L6 s$ |6 _3 N4 E<P>写的字节数,lpNumberOfBytes为实际读写的字节数,lpOverlapped指定同步或 </P>. Y  ~% g2 {" b* `: V! \
<P>异步操作。通信结束后,调用函数CloseHandle()将串口关闭。 </P>4 H! K+ I* W1 H
<P>  </P>  I- f' I( a6 l5 S: n2 m. {3 Q# y
<P>  ·应用实例说明· </P>, p) n' x, U5 r' {- L- J/ |
<P>  </P>( T& k3 Q! E7 Y. {( D1 m8 }
<P>  </P>
  U# z* |2 {% ?0 Q6 M. e. m<P>  使用以上的API函数,笔者给出了简化后的串口初始化的实例。图1为使用C </P>3 Q, t7 K' ^, P+ d3 i! s4 U
<P>++ Builder 组件生成的串口通信基本参数设置的界面实例。 </P>
; b3 j1 E) \1 i/ ~- A: J<P>  </P>
/ q" Z5 J: b& \. r3 m+ N<P>  HANDLE hcom; //定义句柄 </P>
5 {9 _7 J" A! x, m9 o3 G' ?6 [<P>  </P>
) y4 h! I; }) }3 P2 J% ]<P>  DCB dcb; </P>: [( F% a2 R+ R* D: p; F
<P>  </P>& }/ P0 n2 v3 \  J- _! h9 P1 x
<P>  OVERLAPPED e; //定义重叠结构 </P>+ C$ j/ Y" w! |1 G! O& W7 c, m
<P>  </P>% H6 r) @9 u$ ]( `# I8 P
<P>  void —fastcall TForm1::OkBtnClick(TObject?Sender) </P>. Q/ e. P( p0 q8 e# i
<P>  </P>" L  G$ K! X1 [- {; x
<P>  { hcom=CreateFile("COM2",GENERIC—READ|GENERIC—WRITE,0,NULL,OPEN </P>
! J4 z- ^7 V* n* @2 c2 q( Q; b* `<P>—EXISTING, </P>: ]" v- i* e7 U. ~
<P>FILE—ATTRIBUTE—NORMAL|FILE—FLAG—OVERLAPPED,NULL); //打开通讯口 </P>. K; d. ~: V/ m1 ]- m: G) \2 \; O
<P>  </P>+ t5 R, S: }% J3 [; J3 a! }* G7 `
<P>   BuildCommDCB("9600,O,8,1",&dcb); </P>
5 U' y6 J. B2 C$ N<P>  </P>' p7 K) ?3 c3 g
<P>//第一个字符串参数实际使用时由图1选择后组合,这里仅简单说明其格式 </P>
. u+ l% v+ q6 u# R* I<P>  </P>
  H+ u2 ~7 p" P$ V* H5 x$ z, j! `. a<P>   SetCommState(hcom,&dcb); </P>2 P( d+ u* i; i+ Q3 i2 v. L
<P>  </P>
5 Q% f- S( q' W5 a' _8 @+ |8 z* ~<P>   SetupComm(hcom,512,512);//设置读写缓冲区 </P>  }! e. }4 I4 ~9 s* G; P
<P>  </P>" ~, ~: o* r; q7 @# o7 n
<P>   e.hEvent=CreateEvent(NULL,false,false,NULL); //设置事件 </P>& P* D: l3 V8 Z
<P>  </P>
7 {. _2 ~/ @0 S  ]/ |4 r<P>   SetCommMask(hcom,EV—RXCHAR| EV—TXEMPTY); //设置事件掩码 </P>
! v% Q" H& `9 R' v2 f3 ?<P>  </P>
& c3 v( ]% J5 V/ q: K& s<P>   OkBtn-〉Enabled=false;} </P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
cjplove        

0

主题

0

听众

50

积分

升级  47.37%

该用户从未签到

新人进步奖

回复

使用道具 举报

cjplove        

0

主题

0

听众

50

积分

升级  47.37%

该用户从未签到

新人进步奖

回复

使用道具 举报

xtmlj        

0

主题

2

听众

95

积分

升级  94.74%

该用户从未签到

新人进步奖

回复

使用道具 举报

lhc_mike        

0

主题

2

听众

52

积分

升级  49.47%

该用户从未签到

新人进步奖

回复

使用道具 举报

ai8815 实名认证       

0

主题

3

听众

26

积分

升级  22.11%

该用户从未签到

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

使用道具 举报

ai8815 实名认证       

0

主题

3

听众

26

积分

升级  22.11%

该用户从未签到

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

使用道具 举报

8#
无效楼层,该帖已经被删除
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

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

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

蒙公网安备 15010502000194号

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

GMT+8, 2026-5-26 00:41 , Processed in 0.507921 second(s), 91 queries .

回顶部