75146.htm

RS232串口通讯模块

              <TR>
                <TD align=middle bgColor=#003399 height=16><FONT 
                  color=#ffffff>出处</FONT></TD>
                <TD>&nbsp; <SPAN 
                  id=ArticleTitle1_ArticleTitle1_lblSource></SPAN></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD width=10></TD>
          <TD><SPAN id=ArticleContent1_ArticleContent1_lblContent>
            <P>应为工作需要自己编写的RS232通讯模块，该模块已经编写了蛮久，在实际使用中可能有没有考虑和不完善的地方。</P>
            <P>//=================================================================================</P>
            <P>//如果使用该模块请保留该注释，如果被修改或编辑请将修改后的代码发送一份给我</P>
            <P>//编写：戴琪英</P>
            <P>//E_Mail:[e-mail]</P>
            <P>//2000-09-01</P>
            <P>//=================================================================================</P>
            <P>unit R232Comm;</P>
            <P>interface<BR>uses<BR>&nbsp; Windows,SysUtils;<BR>const<BR>&nbsp; 
            INITR12COMM_SUCCESS=0;<BR>&nbsp; 
            INITR12COMM_FAILURE=-1;<BR>var<BR>&nbsp; 
            bSendFinish:boolean=True;//发送完标志<BR>&nbsp; 
            iRecvLen:DWORD=0;<BR>&nbsp; RecvBuff,TempBuff:PChar;<BR>&nbsp; 
            SendCommand,RecvCommand:String;//发送和接收到的命令<BR>&nbsp; 
            RecvFinish:BOOL=False;<BR>&nbsp; RecvBuffInit:BOOL=False;<BR>&nbsp; 
            SendCommandSuccess:BOOL; //切换台命令被成功发送标志</P>
            <P>function&nbsp; InitR12CommDev(comNo:PChar):String;&nbsp; 
            //初始化切换台串口，返回状态字符<BR>procedure 
            SwitchR12(WriteBuffer:PChar);//对切换台进行切换函数<BR>procedure 
            SwitchR12Byte(WriteBuffer:Byte);<BR>procedure 
            CommSendNotify;//串口接收到字符事件响应过程<BR>procedure CommRecvNotify; 
            //串口发送缓冲区空事件响应过程<BR>procedure CommWatchThread(var 
            lpdwParam:DWORD);//通信口监视线程<BR>function&nbsp; ConInfo :String;</P>
            <P>implementation<BR>var<BR>&nbsp; 
            //comMask,comBuf,ComState:Integer;<BR>&nbsp; dcb:_DCB; 
            //DCB结构用于配置串口，程序中涉及各域含义如下：<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD DCBlength 
            :DCB结构大小<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD BaudRate :&nbsp; 
            波特率<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD fBinary&nbsp; : 1 
            二进制模式<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD fParity&nbsp; : 1 
            进行奇偶校验<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //BYTE&nbsp; ByteSize: 字符位数 
            4~8<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //BYTE&nbsp; Parity:&nbsp;&nbsp; 奇偶校验位 
            0-4分别表示无、奇、偶、传号、空号校验<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //BYTE&nbsp; StopBits: 停止位数 0-2分别表示 
            1、1.5、2个停止位<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //WORD&nbsp; XonLim ：XON 
            阈值<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //WORD&nbsp; XoffLim&nbsp; XOFF 
            阈值<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //char&nbsp; XonChar： XON 
            字符<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //char&nbsp; XoffChar: XOFF 
            字符<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //char&nbsp; EvtChar:&nbsp; 事件字符<BR>&nbsp; comStat:_COMSTAT; 
            //COMSTAT结构用于存放有关通信设备的当前信息<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //程序中涉及各域含义如下：<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //cbInQue 
            :接收缓冲区中字符个数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //cbOutQue:发送缓冲区中字符个数<BR>&nbsp; dwErrorFlag:LongWord;<BR>&nbsp; 
            hCommDev,comThreadHwnd:Thandle;//通信串口句柄和通信监视线程句柄<BR>&nbsp; 
            comMask,comBuf,comState:BOOL;<BR>&nbsp; 
            read_os,write_os:_OVERLAPPED;&nbsp; //OVERLAPPED 
            结构，用于异步操作的Win32函数中<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //程序中涉及各域含义如下：<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD Interval 
            保留给操作系统使用<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DWORD IntervalHigh 
            保留给操作系统使用<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //DOWD&nbsp; hEvent 
            当I/O操作完成时被设置为有信号状态<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //的事件；当调用ReadFile和WriteFile函数之前，调<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //用进程设置该事件<BR>&nbsp; 
            postRecvEvent,postSendEvent:Thandle;//发送缓冲区空和接收到字符事件句柄<BR>&nbsp; 
            dwThreadID1:DWORD; //通信监视线程ID号</P>
            <P>///串口初始化函数<BR>//该函数主要完成串口初始化设置和通信线程的启动<BR>//入口参数：串口号<BR>//返回值；初始化是否成功的状态字符<BR>function&nbsp; 
            InitR12CommDev(comNo:PChar) :String;<BR>begin<BR>&nbsp;&nbsp; 
            ///打开串口<BR>&nbsp;&nbsp; hCommDev:=CreateFile(comNo,&nbsp;&nbsp; 
            //串口好<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            GENERIC_READ or 
            GENERIC_WRITE,//对串口以读写方式打开<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            0,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            nil,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            OPEN_EXISTING,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            FILE_ATTRIBUTE_NORMAL or 
            FILE_FLAG_OVERLAPPED,//允许重叠操作<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            );<BR>&nbsp;&nbsp; if hCommDev=INVALID_HANDLE_VALUE 
            then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化失败.'<BR>&nbsp;&nbsp; 
            else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化成功.';<BR>&nbsp;&nbsp; 
            comMask:=SetCommMask(hCommDev,EV_RXFLAG);//设置事件掩码<BR>&nbsp;&nbsp; 
            //comBuf:=SetupComm(hCommDev,4096,4096);//设置接收和发送缓冲区大小皆为4096字节<BR>&nbsp;&nbsp; 
            comBuf:=SetupComm(hCommDev,1,1);//设置接收和发送缓冲区大小皆为4096字节<BR>&nbsp;&nbsp; 
            if&nbsp; comBuf=False 
            then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化失败.'<BR>&nbsp;&nbsp; 
            else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化成功.';<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            //清空缓冲区<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            PurgeComm(hCommDev,PURGE_TXABORT or PURGE_RXABORT 
            or<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            PURGE_TXCLEAR or PURGE_RXCLEAR ) ;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            end;</P>
            <P>&nbsp;&nbsp; //以下对串口进行配置<BR>&nbsp;&nbsp; 
            dcb.DCBlength:=sizeof(_DCB);<BR>&nbsp;&nbsp; 
            comState:=GetCommState(hCOmmDev,dcb);&nbsp; //得到缺省设置<BR>&nbsp;&nbsp; 
            if&nbsp; comState=False 
            then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化失败.'<BR>&nbsp;&nbsp; 
            else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化成功.';<BR>&nbsp;&nbsp; 
            dcb.BaudRate:=9600;&nbsp; //波特率 9600<BR>&nbsp;&nbsp; 
            dcb.ByteSize:=8;//7;&nbsp; //数据长度7位<BR>&nbsp;&nbsp; 
            dcb.Parity:=NOPARITY;//ODDPARITY; //校验方式 奇校验<BR>&nbsp;&nbsp; 
            dcb.StopBits:=ONESTOPBIT; //停止位 1 位</P>
            <P>&nbsp;&nbsp; dcb.Flags := 
            0;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // Enable 
            fBinary<BR>&nbsp;&nbsp; dcb.Flags := dcb.Flags or 
            2;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // Enable 
            parity check<BR>&nbsp;&nbsp; dcb.XonChar:= chr($00) 
            ;<BR>&nbsp;&nbsp; dcb.XoffChar:= chr($00) ;<BR>&nbsp;&nbsp; 
            dcb.XonLim:= 100 ;<BR>&nbsp;&nbsp; dcb.XoffLim:= 100 
            ;<BR>&nbsp;&nbsp; dcb.EvtChar := Char($ff);</P>
            <P>&nbsp;&nbsp; comState:=SetCommState(hCommDev,dcb);&nbsp; 
            //设置串口<BR>&nbsp;&nbsp; if comState=False 
            then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化失败.'<BR>&nbsp;&nbsp; 
            else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='切换台通讯端口初始化成功.';<BR>&nbsp;&nbsp;&nbsp;&nbsp; 
            //设置通信接收到字符事件句柄<BR>&nbsp;&nbsp; 
            postRecvEvent:=CreateEvent(NIL,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE,//手工重置事件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE, 
            //初始化为有信号状态<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NIL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            );<BR>&nbsp;&nbsp; //设置读异步I/O操作事件句柄<BR>&nbsp;&nbsp; 
            read_os.hEvent:=CreateEvent(NIL,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE,//手工重置事件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            FALSE, 
            //初始化为无信号状态<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NIL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            );<BR>&nbsp;&nbsp; //设置发送缓冲区空事件句柄<BR>&nbsp;&nbsp; 
            postSendEvent:=CreateEvent(NIL,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE,//手工重置事件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE, 
            //初始化为有信号状态<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NIL);<BR>&nbsp;&nbsp; //设置写异步I/O操作事件句柄<BR>&nbsp;&nbsp; 
            write_os.hEvent:=CreateEvent(NIL,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            TRUE,//手工重置事件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            FALSE,//初始化为无信号状态<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NIL);<BR>&nbsp;&nbsp; //创建通信监视线程<BR>&nbsp;&nbsp; 
            comThreadHwnd:=CreateThread(NIL,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            0,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            @CommWatchThread, 
            //通信线程函数的地址<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            nil,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            0,&nbsp;&nbsp; 
            //创建后立即运行<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            dwThreadID1);//通信线程ID号<BR>&nbsp;&nbsp; if 
            comThreadHwnd=INVALID_HANDLE_VALUE&nbsp; 
            then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            InitR12CommDev:='INITR12COMM_FAILURE'<BR>&nbsp;&nbsp; 
            else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;