/*
Comm Base Library(WIN98/NT/2000) ver 1.1
Compile by： BC++ 5; C++ BUILDER 4, 5, 6, X; VC++ 5, 6; VC.NET; GCC;
copyright(c) 2004.5 - 2005.8 llbird wushaojian@21cn.com
*/ 
#ifndef _CN_COMM_H_
#define _CN_COMM_H_

#pragma warning(disable: 4530)
#pragma warning(disable: 4786)
#pragma warning(disable: 4800)

#include <assert.h>
#include <stdio.h>
#include <windows.h>

//送到窗口的消息 WPARAM 端口號
#define ON_COM_RECEIVE WM_USER + 618
#define ON_COM_CTS WM_USER + 619 //LPARAM 1 valid
#define ON_COM_DSR WM_USER + 621 //LPARAM 1 valid
#define ON_COM_RING WM_USER + 623
#define ON_COM_RLSD WM_USER + 624
#define ON_COM_BREAK WM_USER + 625
#define ON_COM_TXEMPTY WM_USER + 626
#define ON_COM_ERROR WM_USER + 627 //LPARAM save Error ID
#define DEFAULT_COM_MASK_EVENT EV_RXCHAR | EV_ERR | EV_CTS | EV_DSR | EV_BREAK | EV_TXEMPTY | EV_RING | EV_RLSD

class cnComm
{
　public:

　//------------------------------Construction-----------------------------------
　//第1個參數為是否在打開串口時啟動監視線程， 第2個參數為IO方式 阻塞方式（0）/ 異步重疊方式（默認）
　cnComm(bool fAutoBeginThread = true, DWORD dwIOMode =
FILE_FLAG_OVERLAPPED): _dwIOMode(dwIOMode), _fAutoBeginThread(fAutoBeginThread)
　{
　　Init();
　}

　virtual ~cnComm()
　{
　　Close();
　　UnInit();
　}

　//----------------------------------Attributes----------------------------------
　//判斷串口是否打開
　inline bool IsOpen()
　{
　　return _hCommHandle != INVALID_HANDLE_VALUE;
　}
　//判斷串口是否打開
　operator bool()
　{
　　return _hCommHandle != INVALID_HANDLE_VALUE;
　}
　//獲得串口句炳
　inline HANDLE GetHandle()
　{
　　return _hCommHandle;
　}
　//獲得串口句炳
　operator HANDLE()
　{
　　return _hCommHandle;
　}
　//獲得串口參數 DCB
　DCB *GetState()
　{
　　return IsOpen() && ::GetCommState(_hCommHandle, &_DCB) == TRUE ?
　　&_DCB: NULL;
　}
　//設置串口參數 DCB
　bool SetState(DCB *pdcb = NULL)
　{
　　return IsOpen() ? ::SetCommState(_hCommHandle, pdcb == NULL ? &_DCB:pdcb) == TRUE: false;
　}
　//設置串口參數：波特率，停止位，等 支持設置字符串 "9600, 8, n, 1"
　bool SetState(char *szSetStr)
　{
　　if (IsOpen())
　　{
　　　if (::GetCommState(_hCommHandle, &_DCB) != TRUE)
　　　　return false;
　　　if (::BuildCommDCB(szSetStr, &_DCB) != TRUE)
　　　　return false;
　　　return ::SetCommState(_hCommHandle, &_DCB) == TRUE;
　　}
　　return false;
　}
　//設置串口參數：波特率，停止位，等
　bool SetState(DWORD dwBaudRate, DWORD dwByteSize = 8, DWORD dwParity =
NOPARITY, DWORD dwStopBits = ONESTOPBIT)
　{
　　if (IsOpen())
　　{
　　　if (::GetCommState(_hCommHandle, &_DCB) != TRUE)
　　　　return false;
　　　_DCB.BaudRate = dwBaudRate;
　　　_DCB.ByteSize = (unsigned char)dwByteSize;
　　　_DCB.Parity = (unsigned char)dwParity;
　　　_DCB.StopBits = (unsigned char)dwStopBits;
　　　return ::SetCommState(_hCommHandle, &_DCB) == TRUE;
　　}
　　return false;
　}
　//獲得超時結構
　LPCOMMTIMEOUTS GetTimeouts(void)
　{
　　return IsOpen() && ::GetCommTimeouts(_hCommHandle, &_CO) == TRUE ?
&_CO: NULL;
　}
　//設置超時
　bool SetTimeouts(LPCOMMTIMEOUTS lpCO)
　{
　　return IsOpen() ? ::SetCommTimeouts(_hCommHandle, lpCO) == TRUE:false;
　}
　//設置串口的I/O緩沖區大小
　bool SetBufferSize(DWORD dwInputSize, DWORD dwOutputSize)
　{
　　return IsOpen() ? ::SetupComm(_hCommHandle, dwInputSize, dwOutputSize)== TRUE: false;
　}
　//關聯消息的窗口句柄
　inline void SetWnd(HWND hWnd)
　{
　　assert(::IsWindow(hWnd));
　　_hNotifyWnd = hWnd;
　}
　//設定發送通知, 接受字符最小值
　inline void SetNotifyNum(DWORD dwNum)
　{
　　_dwNotifyNum = dwNum;
　}
　//線程是否運行
　inline bool IsThreadRunning()
　{
　　return _hThreadHandle != NULL;
　}
　//獲得線程句柄
　inline HANDLE GetThread()
　{
　　return _hThreadHandle;
　}
　//設置要監視的事件， 打開前設置有效
　void SetMaskEvent(DWORD dwEvent = DEFAULT_COM_MASK_EVENT)
　{
　　_dwMaskEvent = dwEvent;
　}
　//獲得讀緩沖區的字符數
　int GetInputSize()
　{
　　COMSTAT Stat;
　　DWORD dwError;

　　return ::ClearCommError(_hCommHandle, &dwError, &Stat) == TRUE ? Stat.cbInQue : (DWORD) - 1L;
　}

　//----------------------------------Operations----------------------------------
　//打開串口 缺省 9600, 8, n, 1
　bool Open(DWORD dwPort)
　{
　　return Open(dwPort, 9600);
　}
　//打開串口 缺省 baud_rate, 8, n, 1
　bool Open(DWORD dwPort, DWORD dwBaudRate)
　{
　　if (dwPort < 1 || dwPort > 1024)
　　　return false;
　　BindCommPort(dwPort);

　　if (!OpenCommPort())
　　　return false;

　　if (!SetupPort())
　　　return false;

　　return SetState(dwBaudRate);
　}
　//打開串口, 使用類似"9600, 8, n, 1"的設置字符串設置串口
　bool Open(DWORD dwPort, char *szSetStr)
　{
　　if (dwPort < 1 || dwPort > 1024)
　　　return false;

　　BindCommPort(dwPort);

　　if (!OpenCommPort())
　　　return false;

　　if (!SetupPort())
　　　return false;

　　return SetState(szSetStr);
　}
　//讀取串口 dwBufferLength個字符到 Buffer 返回實際讀到的字符數 可讀任意數據
　DWORD Read(LPVOID Buffer, DWORD dwBufferLength, DWORD dwWaitTime = 10)
　{
　　if (!IsOpen())
　　　return 0;

　　COMSTAT Stat;
　　DWORD dwError;

　　if (::ClearCommError(_hCommHandle, &dwError, &Stat) && dwError > 0)
　　{
　　　::PurgeComm(_hCommHandle,PURGE_RXABORT | PURGE_RXCLEAR);
　　　return 0;
　　}　
　　if (!Stat.cbInQue)
　　　// 緩沖區無數據
　　　return 0;

　　unsigned long uReadLength = 0;

　　dwBufferLength = dwBufferLength > Stat.cbInQue ? Stat.cbInQue :dwBufferLength;

　　if (!::ReadFile(_hCommHandle, Buffer, dwBufferLength, &uReadLength,&_ReadOverlapped))
　　{
　　　if (::GetLastError() == ERROR_IO_PENDING)
　　　{
　　　　WaitForSingleObject(_ReadOverlapped.hEvent, dwWaitTime);
　　　　// 結束異步I/O
　　　　if (!::GetOverlappedResult(_hCommHandle, &_ReadOverlapped,&uReadLength, false))
　　　　{
　　　　　if (::GetLastError() != ERROR_IO_INCOMPLETE)
　　　　　　uReadLength = 0;
　　　　}
　　　}
　　　else
　　　　uReadLength = 0;
　　}

　　return uReadLength;
　}
　//讀取串口 dwBufferLength - 1 個字符到 szBuffer 返回ANSI C 模式字符串指針 適合一般字符通訊

　char *ReadString(char *szBuffer, DWORD dwBufferLength, DWORD dwWaitTime =20)
　{
　　unsigned long uReadLength = Read(szBuffer, dwBufferLength - 1,dwWaitTime);
　　szBuffer[uReadLength] = '\0';
　　return szBuffer;
　}
　//寫串口 可寫任意數據 "abcd" or "\x0\x1\x2"
　DWORD Write(LPVOID Buffer, DWORD dwBufferLength)
　{
　　if (!IsOpen())
　　　return 0;

　　DWORD dwError;

　　if (::ClearCommError(_hCommHandle, &dwError, NULL) && dwError > 0)
　　　::PurgeComm(_hCommHandle, PURGE_TXABORT | PURGE_TXCLEAR);

　　unsigned long uWriteLength = 0;

　　if (!::WriteFile(_hCommHandle, Buffer, dwBufferLength, &uWriteLength,&_WriteOverlapped))
　　　if (::GetLastError() != ERROR_IO_PENDING)
　　　　uWriteLength = 0;

　　　return uWriteLength;
　　}
　　//寫串口 寫ANSI C 模式字符串指針 
　　DWORD Write(const char *szBuffer)
　　{
　　　assert(szBuffer);

　　　return Write((void*)szBuffer, strlen(szBuffer));
　　}
　　//讀串口 同步應用
　　DWORD ReadSync(LPVOID Buffer, DWORD dwBufferLength)
　　{
　　　if (!IsOpen())
　　　　return 0;

　　　DWORD dwError;
　　　if (::ClearCommError(_hCommHandle, &dwError, NULL) && dwError > 0)
　　　{
　　　　::PurgeComm(_hCommHandle,PURGE_RXABORT | PURGE_RXCLEAR);
　　　　return 0;
　　　}

　　　DWORD uReadLength = 0;
　　　::ReadFile(_hCommHandle, Buffer, dwBufferLength, &uReadLength, NULL);
　　　return uReadLength;
　　}
　　//寫串口 同步應用
　　DWORD WriteSync(LPVOID Buffer, DWORD dwBufferLength)
　　{
　　　if (!IsOpen())
　　　　return 0;

　　　DWORD dwError;
　　　if (::ClearCommError(_hCommHandle, &dwError, NULL) && dwError > 0)
　　　　::PurgeComm(_hCommHandle, PURGE_TXABORT | PURGE_TXCLEAR);

　　　unsigned long uWriteLength = 0;
　　　::WriteFile(_hCommHandle, Buffer, dwBufferLength, &uWriteLength, NULL);
　　　return uWriteLength;
　　}
　　//寫串口 szBuffer 可以輸出格式字符串 包含緩沖區長度
　　DWORD Write(char *szBuffer, DWORD dwBufferLength, char *szFormat, ...)
　　{
　　　if (!IsOpen())
　　　　return 0;

　　　va_list va;
　　　va_start(va, szFormat);
　　　_vsnprintf(szBuffer, dwBufferLength, szFormat, va);
　　　va_end(va);

　　　return Write(szBuffer);
　　}
　　//寫串口 szBuffer 可以輸出格式字符串 不檢查緩沖區長度 小心溢出
　　DWORD Write(char *szBuffer, char *szFormat, ...)
　　{
　　　if (!IsOpen())
　　　　return 0;

　　　va_list va;
　　　va_start(va, szFormat);
　　　vsprintf(szBuffer, szFormat, va);
　　　va_end(va);

　　　return Write(szBuffer);
　　}
　　//關閉串口 同時也關閉關聯線程
　　virtual void Close()
　　{
　　　if (IsOpen())