QQ登录

只需要一步,快速开始

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

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

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 13:06 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>  </P>+ ]1 G- ~. ]. b6 g" F( @6 T
<>姜滨 </P>5 p! M) u& |; _; N. Q* r! f
<>  </P>
  q$ t* c- }4 A3 c<>  ·串口操纵的基本方法· </P>% y! l% B$ d/ |* U3 R
<>  </P>
% H+ {8 P6 H# p<>  </P>
7 k/ U! R! I8 d5 ~, n<>  在Win32下,对串口的操作就如同对文件一样打开或关闭,对串行数据的读 </P>. D, w8 g6 {6 H8 z# d
<>写可在用户定义的读写缓冲区中进行。具体使用的函数为: </P>  }/ _" `9 H0 `& k, I
<>  </P>
' a& F$ `8 R7 G$ S$ m<>  首先用CreateFile( )打开通信串口,其中参数lpFileName指向串口逻辑名 </P># e( K* U; S* `2 q7 b
<>,如“COM1”或“COM2”等,参数dwDesiredAccess定义文件的读写权限,一般 </P>( B1 V6 y, j' V, ?! \
<>设为GENERIC—READ|GENERIC—WRITE;参数dwShareMode定义资源共享方式,此 </P>
. v& z- C9 j& D3 H, v<>处必须设为0,为独占方式;lpSecurityAttributes定义安全属性,Win 95下为 </P>
9 U* o* V2 R, d; |<>NULL;dwCreationDistribution定义文件创建方式;dwFlagsAndAttributes定义 </P>6 w3 r% V" |1 a+ u$ y$ o
<>文件属性和标记,应设为FILE—FLAG—OVERLAPPED,表示异步通信方式; </P>) Q: |* C' f( O6 Z+ P4 s2 G0 M& ?2 n
<>hTemplateFile 指向一个模板文件的句柄,在 Windows 95下为NULL。 </P>
3 o* M9 e9 J. L5 w0 i; j1 N( J0 L<>  </P>% |1 }7 x0 n. K1 G
<>  然后用BuildCommDCB( )和SetCommState( )函数通过通信设备控制块DCB( </P>4 J/ l" p" s9 E' H0 C+ _$ o
<>Device Control Block)设置串口通信参数(如波特率、停止位、数据位、校验 </P>. d/ A: h# c0 g
<>位等),其中BuildCommDCB( )中的字符串参数lpDef 定义同DOS命令中MODE的参 </P>1 _1 Q( O2 R+ |* L* t
<>数格式,关于DCB更具体的设置需要根据用户对数据流定义、握手信号及通信控 </P>' y+ s9 q% |$ I& d
<>制要求具体定义,参见有关Windows技术资料。用GetCommState()可以得到当前 </P>
  ^( a9 j8 |1 g<>的DCB参数值。如果需要还可通过SetCommTimeouts()和GetCommTomeouts()重新 </P>
% M" @. b& e0 `% l<>设置读写的超时参数;读写缓冲区的设置使用SetupComm(),参数dwInQueue和 </P>
1 B) E' F" G4 _/ a& S; K<>dwOutQueue分别定义为输入和输出缓冲区的大小。 </P>
1 t  c/ a. d9 j$ O; w/ m<>  </P>& c# M9 G0 m( ?  I! a
<>  在串口初始化完毕后,还要建立与通信有关的事件对象。一般使用 </P>
7 G) B& l. r3 v# I<>CreateEvent()函数,它返回一事件句柄,其中参数lpEventAttributes指向安全 </P>
, v0 H! N3 l% o. G6 q<>属性结构地址,在Win 95(无安全属性)中为NULL;布尔参数bManualReset 定 </P>2 z. t' U" L4 L. `0 w* v; t2 l
<>义事件重置方式,true 表示手工重置,false表示自动重置(相关函数为 </P>
; Z% u* y! [" M$ J) v& N<P>SetEvent()和ResetEvent());参数bInitialState定义事件初始状态,true表 </P>7 A2 i# {# L( s  F, x1 E
<P>示发信号,否则为不发信号;lpName是为多进程设置的事件名,对于单进程定义 </P>
8 t, K5 j% c  \" N7 ]6 s<P>为NULL。然后用SetCommMask()定义用户程序可监视的通信事件类别。 </P>
0 u( @/ r$ J% B* }<P>  </P>
, e; o% r; @) L1 J$ g$ o& v' ]<P>  以上设置完成后,用户程序就可以等待通信事件的产生,一般调用函数 </P>
7 a; D  L  K3 S1 E7 H<P>WaitCommEvent()监视通信事件,其中参数lpEvtMask指向产生事件的掩码地址, </P>: `& s! G- t% r
<P>用于判断事件产生的性质,lpOverlapped指向重叠结构地址,可简单定义为 </P>
, f% C. g" p1 V- ?<P>NULL。对于串口事件的响应一般有四种方式:查询、同步I/O、异步I/O和事件驱 </P>
, ?, c- B$ r3 d0 V. L5 N, [5 \<P>动I/O,需要根据用户不同控制要求而定。查询方式占用较长的计算机时间,同 </P>+ D) X. C  K- x& r
<P>步I/O方式直到读取完指定的字节数或超时时才返回,容易造成线程阻塞,异步 </P>
" Q6 h" Z" e# r/ X5 H<P>I/O用于后台处理,事件驱动是由系统通知用户程序发生的事件并进行串口操作 </P>6 g9 e# z0 G5 Z. ?
<P>。 比较而言事件驱动I/O方式较灵活。 </P>) _; e6 f( `* {; Y; W
<P>  </P>
8 D4 O1 `! ~" P7 d* S* g1 o<P>  当有通信事件产生时,就可用函数ReadFile()和WriteFile()直接对串口缓 </P>
" r, A" N$ E6 F1 F6 k! {<P>冲区进行读写操作了。其中lpBuffer 指向读写缓冲区,nNumberOfBytes为要读 </P>
. v  L) o! \; e" W" q" o4 F3 n<P>写的字节数,lpNumberOfBytes为实际读写的字节数,lpOverlapped指定同步或 </P>
9 X2 |( a6 u/ `) Y) K<P>异步操作。通信结束后,调用函数CloseHandle()将串口关闭。 </P>
0 e$ H9 W2 R7 s6 X0 i<P>  </P>8 W# m& M: A+ r' j
<P>  ·应用实例说明· </P>
# |, V- ], Q1 p+ |% I$ _: v/ V& s<P>  </P>9 D! }% T% x; f% k5 j
<P>  </P># n. e1 j5 M$ t0 ]
<P>  使用以上的API函数,笔者给出了简化后的串口初始化的实例。图1为使用C </P>9 p+ Q4 Y: W& R. ^8 t5 U+ u
<P>++ Builder 组件生成的串口通信基本参数设置的界面实例。 </P>: p5 c9 m; M$ @, O* L' s% K
<P>  </P>
. B2 [+ Q' ^9 m  t/ n4 B: p<P>  HANDLE hcom; //定义句柄 </P>
& d4 G3 P' [* ]" R<P>  </P>; |' {, l% [5 h( g
<P>  DCB dcb; </P>
3 R9 A- C) y2 v: H<P>  </P>
) B; [& _  Z9 Z! i! ], N<P>  OVERLAPPED e; //定义重叠结构 </P>+ _8 `/ }" I# u
<P>  </P>
5 Y; r$ g( @& M% Y7 `5 X<P>  void —fastcall TForm1::OkBtnClick(TObject?Sender) </P>
3 B8 X/ ~) ~' U0 d4 J3 l<P>  </P>
) ]* X  R: g! ]; l% n<P>  { hcom=CreateFile("COM2",GENERIC—READ|GENERIC—WRITE,0,NULL,OPEN </P>7 x- e7 P, i3 c; i, J
<P>—EXISTING, </P>7 n0 f8 b: v( `
<P>FILE—ATTRIBUTE—NORMAL|FILE—FLAG—OVERLAPPED,NULL); //打开通讯口 </P>. x0 x( i. }* i
<P>  </P>
. w. ?* }* ^+ D: ?5 E4 @" t' A- ?<P>   BuildCommDCB("9600,O,8,1",&dcb); </P>
& t" \" ]- v$ E+ ]" R5 T( W* B+ }<P>  </P>
& X3 J$ \* z5 _) [! ~0 @<P>//第一个字符串参数实际使用时由图1选择后组合,这里仅简单说明其格式 </P>; j+ o4 C' h/ P$ p7 q) X* c6 @
<P>  </P># i7 T' O6 n3 j6 w6 W
<P>   SetCommState(hcom,&dcb); </P>( |- `( o. b7 a3 g4 l; R
<P>  </P>- f: M; |% p: o* Y: y& ~, v2 i0 r. Q
<P>   SetupComm(hcom,512,512);//设置读写缓冲区 </P>
% ?+ `8 ]" ~, b( o6 v( N, u' f1 A<P>  </P>7 T8 R" r  j9 K
<P>   e.hEvent=CreateEvent(NULL,false,false,NULL); //设置事件 </P>
; M+ F) D- v- q4 p; _<P>  </P>! a, R6 D+ S/ b
<P>   SetCommMask(hcom,EV—RXCHAR| EV—TXEMPTY); //设置事件掩码 </P>
( g: t2 u, X2 d6 ^' [<P>  </P>8 x4 \3 }5 }) c- a8 _. j6 N0 r* N
<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-7-17 19:23 , Processed in 0.335630 second(s), 86 queries .

回顶部