注册 登录
编程论坛 Delphi论坛

[求助]使用SPCOMM实现串口通信的

pqiuf 发布于 2007-05-20 11:37, 1253 次点击

SPCOMM程序里面,我有一段没有读懂,是关于流控制的,程序如下:

dcb.Flags := 1; // Enable fBinary

if FParityCheck then
dcb.Flags := dcb.Flags or 2; // Enable parity check

// setup hardware flow control

if FOutx_CtsFlow then
dcb.Flags := dcb.Flags or 4;

if FOutx_DsrFlow then
dcb.Flags := dcb.Flags or 8;

if FDtrControl = DtrEnable then
dcb.Flags := dcb.Flags or $10
else if FDtrControl = DtrHandshake then
dcb.Flags := dcb.Flags or $20;

if FDsrSensitivity then
dcb.Flags := dcb.Flags or $40;

if FTxContinueOnXoff then
dcb.Flags := dcb.Flags or $80;

if FOutx_XonXoffFlow then
dcb.Flags := dcb.Flags or $100;

if FInx_XonXoffFlow then
dcb.Flags := dcb.Flags or $200;

if FReplaceWhenParityError then
dcb.Flags := dcb.Flags or $400;

if FIgnoreNullChar then
dcb.Flags := dcb.Flags or $800;

if FRtsControl = RtsEnable then
dcb.Flags := dcb.Flags or $1000
else if FRtsControl = RtsHandshake then
dcb.Flags := dcb.Flags or $2000
else if FRtsControl = RtsTransmissionAvailable then
dcb.Flags := dcb.Flags or $3000;
我找了很多帮助资料,但是都没说DCB结构里面有flags成员。不理解将flags与那些数或是怎么达到流控制的。
请高手一定要帮助下下啊,,,!!!

[此贴子已经被作者于2007-5-20 11:38:08编辑过]

1 回复
#2
刘香2007-07-20 19:45
楼主,有没有spcomm控件,发我一个。lvlihui133@126.com
谢谢啊
1