铜矿收购串口通信

【文件属性】：

文件名称：铜矿收购串口通信

文件大小：1.15MB

文件格式：RAR

更新时间：2019-03-29 06:31:09

delphi 串口通信

实现磅秤与计算机的串口通信。 while(Receive) do begin dwEvtMask:=0; // 等待通讯事件发生 if not WaitCommEvent(hNewCommFile,dwEvtMask,@Os) then begin if ERROR_IO_PENDING=GetLastError then GetOverLappedResult(hNewCommFile,Os,dwTranser,True); end; if ((dwEvtMask and EV_RXCHAR)=EV_RXCHAR) then begin // 等待允许传递WM_COMMNOTIFY通讯消息 WaitForSingleObject(Post_event,INFINITE); // 处理WM_COMMNOTIFY消息时不再发送WM_COMMNOTIFY消息 ResetEvent(Post_Event); // 传递WM_COMMNOTIFY通讯消息 Ok:=PostMessage(Comm.Handle,WM_COMMNOTIFY,hNewCommFile,0); if (not Ok) then begin MessageBox(0,'PostMessage Error !','Notice',MB_OK); Exit; end; end; end; CloseHandle(Os.hEvent); // 关闭重叠读事件对象