Отправлено mikola 10 марта 2003 г. 16:58 В ответ на: Питание от COM порта отправлено DragonS 10 марта 2003 г. 16:44

Инициализация:

DCB dcblock;
GetCommState(COMDevice, &dcblock);
dcblock.DCBlength = sizeof(DCB);

DWORD Bauds[9] =
{1200, 2400, 4800, 9600, 14400, 19200, 38400, 57600, 115200};
dcblock.BaudRate = Bauds[SelectBaud->ItemIndex];
dcblock.ByteSize = SelectNumberBits->ItemIndex + 4;
dcblock.StopBits = SelectStopBit->ItemIndex;
dcblock.Parity = SelectParity->ItemIndex;
dcblock.fRtsControl = RTS_CONTROL_ENABLE;
dcblock.fDtrControl = DTR_CONTROL_ENABLE;

SetCommState(COMDevice, &dcblock);

Кнопка Вкл/Выкл DTR:

void __fastcall TMainForm::SpeedButton_DTRClick(TObject *Sender)
{ if (SpeedButton_DTR->Down)
{ EscapeCommFunction(COMDevice, SETDTR);
SpeedButton_DTR->Caption = "DTR SET (+12)";
}
else
{ EscapeCommFunction(COMDevice, CLRDTR);
SpeedButton_DTR->Caption = "DTR CLR (-12)";
}
}

RTS так же