明天还要早起去加班,所以说得简单点 :-)
使用API
1、EscapeCommFunction(fHandle,SETDTR) //将串口DTR(4)脚电位置高
2、GetCommModemStatus(fHandle, ModemStat)
ModemStat and MS_DSR_ON <> 0 then
//检测串口DSR(6)脚电位为高
.......
创建一线程,按需要的间隔重复1和2,来判断4脚和6脚是否短路,还有使用1和2时要先打开串口 如下:
fHandle:=CreateFile( Pchar(COM1), GENERIC_READ Or GENERIC_WRITE, 0, // open port
Nil, OPEN_EXISTING, 0, 0);
//FILE_FLAG_OVERLAPPED
如果有控件可以实现1和2的功能也可以一样使用
楼主好用了记得给分啊,:——)