STM32

[原创]VB6.0串口控件mscomm32.ocx 破解版，支持大于16的串口号

2020-01-07 19:26发布

站内问答 / STM32/STM8
23553 68 68
本帖最后由 gtrajtr 于 2015-1-26 18:46 编辑

在坛子里看到有坛友抱怨VB6的串口控件mscomm32.ocx 不支持大于16的端口号，有时候使用不方便。
自己就顺手把它破了这个限制，端口号最高支持到255，一般情况应该足够用了。

另外，有坛友说mscomm32在64位系统下用不了，我没有遇到过这种情况。
mscomm32肯定是支持64位系统的，有些老项目的上位机软件是VB写的，一直在64位系统都用得好好的。

用VB写了个简单的测试程序，在win7 64bit下测试通过，串口是用CH340从USB转出来的串口，TX、RX断接，点TX，能正常收发数据。

截图，微软原版本的mscomm32.ocx，打开串口17出错
破解版mscomm32控件-254.png (34.9 KB, 下载次数: 0) 下载附件 2015-1-26 18:34 上传
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
68条回答
mon51
2020-01-15 03:33
PC机串口的操做使用mscomm32.ocx 控件，会带来很多问题。在WIN7-64,win8.1,win10下，几乎无法运行，用API直接调用WIN的底层库，兼容性，程序代码可读性非常好：
打开COM1
HANDLE hCom = CreateFile(TEXT("COM1"), GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if( hCom==INVALID_HANDLE_VALUE ) return false;

设置 波特率、奇偶校验、停止位 等等
DCB CommDCB;
GetCommState( hCom, &CommDCB );
CommDCB.BaudRate = BaudRate;
CommDCB.Parity = EVENPARITY;
CommDCB.StopBits = ONESTOPBIT;
CommDCB.ByteSize = 8;
CommDCB.fBinary = 1;
CommDCB.fParity = 1;
CommDCB.fOutxCtsFlow = 0;
CommDCB.fOutxDsrFlow = 0;
CommDCB.fDtrControl = 0;
CommDCB.fDsrSensitivity = 0;
CommDCB.fTXContinueOnXoff = 0;
CommDCB.fOutX = 0;
CommDCB.fInX = 0;
CommDCB.fErrorChar = 0;
CommDCB.fNull = 0;
CommDCB.fRtsControl = RTS_CONTROL_TOGGLE;
CommDCB.fAbortOnError = 0;
SetCommState( hCom, &CommDCB );

设置缓冲大小
SetupComm( hCom, 100, 100 );

设置超时时间
COMMTIMEOUTS CommTimeouts;
GetCommTimeouts( hCom, &CommTimeouts );
CommTimeouts.ReadIntervalTimeout = MAXDWORD;
CommTimeouts.ReadTotalTimeoutMultiplier = 0;
CommTimeouts.ReadTotalTimeoutConstant = 0;
SetCommTimeouts( hCom, &CommTimeouts );

/////////////// 这期间就是对COM进行读写了 ///////////////
COMSTAT ComStat; ClearCommError(hCom,&Errors,&ComStat); 后 ComStat.cbInQue 保存着一个数值，指明还有多少字节已经获得但没有用ReadFile取走。
读用 ReadFile，写用 WriteFile。
/////////////////////////////////////////////////////////

关闭COM
CloseHandle( hCom );

一周热门 更多>