Срабатывание датчика по таймеру

[RockForr]

Пишу программу для модуля подключенного к компу, все в моей программе работает, осталось обработать информацию с датчиков подключенных к модулю. ТАКИМ ОБРАЗОМ, ЧТОБЫ ПО ТАЙМЕРУ ПРОГРАММА ОПРАШИВАЛА ПОРТЫ ОТ МОДУЛЯ, НАПРИМЕР ЕСЛИ СРАБОТАЛ ДАТЧИК, ТО КАРТИНКА В ПРОГРАММЕ МЕНЯЛАСЬ.
ПОДСКАЖИТЕ ПОЖАЛУЙСТА, МОЙ КОД НЕ РАБОТАЕТ.

procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall;
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
buffer:= '$KE,RD,18,1' + Char(CRbyte) + Char(LFbyte);
WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);
Form2.Image19.Visible:=true;
Form2.Image20.Visible:=false;
end;

[mihali4]

А ваша процедура procedure FNTimeCallBack к какой форме привязана?
Если вы ее внесете в текст Unit2 и поставите
procedure Form2.FNTimeCallBack
то все будет работать...
При условии, конечно, что в Image19 и Image20 предварительно загружены какие-то изображения....\

[RockForr]

Я пробовал, не получается, может быть какую-нибудь другую процедуру посоветуете?
Или подскажите процедуру для КНОПОЧКИ НА МОДУЛЕ, чтобы при её нажатии, в программе отображалось, что она нажата.

Пользуйтесь кнопкой "Правка"!

[Zloy_Doomer]

Сообщение от RockForr

Или подскажите процедуру для КНОПОЧКИ НА МОДУЛЕ, чтобы при её нажатии, в программе отображалось, что она нажата.

Ну для етого тебе нада ждать от твоего модуля, который подключен к компу определенную команду, которая будет послана при нажатии на кнопку... Ну и дальше типа чето: If такая т окоманда Then Делать то то...

Ди и еще...По моему в вашей процедуре вы не опрашиваете ком порт а пытаетесь чето в него записать...Что противоречит вашим желаниям...Если вы хотите опросить датчик то нада использовать ReadFile а не WriteFile...

[RockForr]

С портом все нормально, эту часть я сделал. А вот процедуру на кнопку с модуля не могу, пробовал, не получается

procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall;
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
if V=1 then
buffer:= '$KE,RD,18,1' + Char(CRbyte) + Char(LFbyte);
ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
Form2.Image19.Visible:=true;
Form2.Image20.Visible:=false;
end;

[Zloy_Doomer]

Непанятно зачем присваивать переменной buffer какое то значение, в нее ведь будет считано то значение которое примется с устройства...Ну да лдно, в принципе вы идете по верному пути, после того как считали то что пришло с девайса проверяем на наличие нужного нам содержимого...Если да то делаем то то если нет другое...

[RockForr]

Подскажите какая процедура для кнопки на модуле, чтобы кнопка реагировала
Расшифруйте эту строку, это случайно не процедура для нажатия кнопки на модуле?
(StrLComp(BinBuf, PChar(Buffer), Length(Buffer)) = 1)

Еще раз - есть кнопка "Правка" !

[Zloy_Doomer]

Сообщение от RockForr

Подскажите какая процедура для кнопки на модуле, чтобы кнопка реагировала

Ну я не знаю какая там команда посылается при нажатии на кнопку(если вообще посылается какая нить) Ето вам лучше знать, точнее тому человеку который писал микропрограмму для вашего устройства...Узнайте что именно посылает в ком порт девайс при нажатии на кнопку и проверяйте в момент нажатия та ли инфа поступила или нет...В случае если же нету микропрограммы то читайте ман по ком портам и смотрите какой вывод куда смотрит...

А нащет StrlComp:

Функция StrlComp. Сравнивает строки. Заголовок:

Function StrlComp(Strl, Str2: PChar): PChar; .
Функция сравнивает строки, игнорируя возможную разницу в высоте букв. Возвращает такой же результат, как и StrComp. Замечу, что функция правильно работает лишь с латиницей. Для кириллицы ее нужно модифицировать

или

Функция StrLComp. Сравнивает строки. Заголовок:

Function StrLComp(Dest, Source: PChar; MaxLen: Word): PChar;

В отличие от StrComp сравнивает не более MaxLen символов строк. Возвращаемый результат такой же, как и у StrComp.

[RockForr]

Кто-нибудь подскажите команду, очень надо