Счетчик импульсов через ком-порт

[z-wer]

Собственно проблема такова.

К ком-порту подключено нестандартное уст-во. Мотор. Там есть геркончик. Мотором управляю через линии dtr, rts.
На cts подвешен геркон.
Если не дергать окно программы все ок.
Начинаешь минимизировать-раскрывать пропускает импульсы с геркона.
Пытался делать на разных компонентах.
SerialNg - в отдельном потоке так и не запустил подсчет.
RomanComPort - даже если в отдельном потоке, тот же эффект.

[Swarog]

cts ты опрашиваешь программно, поэтому как только твою программу обделяют вниманием процессора она начинает пропускать, программно здесь ни чем не поможешь, можно конечно просвоить процессу приоритет realtime но тогда все будет жутко висеть, (пробовал как то). пробуй изменить аппаратную часть, что ,s счет ввелся вне компа, хотя тут думаю нужно будет контроллером каким нить обзовестись.

[z-wer]

Я не особо матерый в программировании, но мне казалось что можно как то и на програмном уровне все решить.
А нельзя чего нить типа апликатион процессмессаге на кнопку "минимизировать" приклеить?
И еще вопрос чем можно заменить WaitCommEvent...

Собственно там то идет около 500 импульсов в минуту, не так уж и много.
Железо уже спаяно, не особо и охота переделывать.
В схеме стоит ftdi 232rl, дальше все на ключах и опторазвязка.

[Smitt&Wesson]

Можно попробоат через прерывания обработку сделать.
Сам не пробовал, но как-то можно.

[z-wer]

Swarog, по барабану приоритет потока. Систему сильно не грузит, хотя и выставил реал тайм. А как прозёвывало импульсы так и продолжает. Но мне полюбому чего-то надо думать про замену waitcommevent. Ужасающая функция...

[Swarog]

Про прерывания забудьте, если только не пишети под дос или нехотите создать свои драйвера.
z-wer можете выложить код потока где состояние считывается?

[z-wer]

Swarog, я тож уже подумал про прерывания.
Что все это на уровне драйвера. Ну оно то можно че нить замутить, но стоит ли. Хотя я думаю что к ftdi они вроде как на офф сайте есть и наверное исходники фришные.
Код потока чуть позже выложу, проект некоммерческий, под себя делаю.
Могу и схему управления выложить, тож ничего секретного. Стандартная схема включения(по даташиту) через усби.

[Smitt&Wesson]

Сообщение от z-wer

Могу и схему управления выложить, тож ничего секретного. Стандартная схема включения(по даташиту) через усби.

Выложи, я гляну. Возможно проще будет туда пару счётчиков впихнуть и не париться с прогой.

[z-wer]

Пример кода потока.
Используется только для проверки на корректность счета импульсов в отдельном потоке. Прошу сильно не бить, особенно по лицу.
Маска события задана в свойствах компонента порта.

procedure TSensor.Execute;
var
dwMask: DWORD;
begin
repeat
WaitCommEvent(Form1.RomanComPort1.C omHandle, dwMask, nil);
inc(Count);
Synchronize(UpdateCount);
until Terminated;
end;

procedure TSensor.UpdateCount;
// индикатор положения
begin
Form1.LCDLine1.Text := IntToStr(Count);
end;

Схема во вложении.

[z-wer]

Если впихивать счетчик - пойдет под переделку всё железо.
Кроме релюх, оптопар и еще пары деталей все смд - раздраконить можно, но это уже второй вопрос.

Плюс к этому придется еще как минимум rx задействовать.
Написать код для какой нить атитини - это уже не для меня задача.