DCB dcb;
COMMTIMEOUTS timeouts = {MAXDWORD,MAXDWORD,100,0,0};
hPort = CreateFile(comport,GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,0);
if (hPort == INVALID_HANDLE_VALUE)
{
Application->MessageBox("Can't open COM port", "COM port error", MB_OK | MB_ICONSTOP );
}
SetupComm(hPort,1024,1024);
SetCommTimeouts(hPort,&timeouts);
GetCommState(hPort,&dcb);
dcb.DCBlength = sizeof(dcb);
dcb.BaudRate= 115200;
dcb.fParity = FALSE;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.fBinary = TRUE;
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE;
dcb.fDtrControl = DTR_CONTROL_ENABLE;
dcb.fDsrSensitivity = FALSE;
dcb.fOutX = FALSE;
dcb.fInX = FALSE;
dcb.fNull = FALSE;
dcb.fRtsControl = RTS_CONTROL_DISABLE;
dcb.fAbortOnError = TRUE;
dcb.StopBits = ONESTOPBIT;
SetCommState(hPort,&dcb);
E-mail: info@telesys.ru