Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как подать импульс 25 мс на линию Tx COM порта ?

Автор: mr_smit 21.10.2012, 16:16

В общем имеется вот такая картина:
user posted image

Необходимо в СОМ порт на линию Тх выдать низкий уровень на 25 мс, потом высокий на 25 мс, потом на скорости 10400 бит/сек послать запрос.

Сначала увеличиваем точность системного таймера:

Код


timeBeginPeriod(1);
sleep(25);
//  что то
timeEndPeriod(1);

А как перед sleep(25) выставить низкий уровень на линии???

Для работы с СОМ портом использую компонент AsyncFree 1.04

Автор: mr_smit 24.10.2012, 09:40

В общем вот так:

Код


timeBeginPeriod(1);

SetCommBreak(AfComPort1.Handle); 
Sleep(25); 
ClearCommBreak(AfComPort1.Handle);
Sleep(25); 

timeEndPeriod(1);