Цитата:
Сообщение от NLObP
Стоит изменить процедуру OnTimer1 так:
Код:
procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('19 92 F1 10 40 00 00 00 00');
SendToServer; //отсылаем пакет на сервер
Timer01.enabled:=false; //останавливаем таймер
end;
|
да забыл отослать
и таймер остоновить
поправил
Добавлено через 4 минуты
Цитата:
Сообщение от ruslan
не запускается пишет ошбка BEGIN на
Timer01: TTimer;
rocedure OnTimer01(Sender: TObject);
begin
|
нету ошибки !!!
скопировал полностью ?
впечетление нехватает var в начале
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 13.08.2009 в 17:39.
Причина: Добавлено сообщение
|