求串口通信例子

Question

打开串口,发数据包,收数据包

Answer 1

CreateFile(CommPortConv(FCommPort),GENERIC_READ
         or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);WriteFile(hComm,PChar(s)^,Length(s),lrc,nil);ReadFile(hComm,inBuff,cs.cbInQue,nBytesRead,nil);

Answer 2

到www.tomore.com中去找吧，多得是。前一段时间做手机群发的要用到串口，里边找手机群发，其中就有串口通讯的例子。效果也不错。