Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Краеведы , подскажите как сделать независимый таймер? [D7, WinXP]

JTAG © (2005-11-14 13:03:00)
Задача такая вращаюсь в цикле принимаю данные с порта если нет данных в течении 1s вывалиаюсь по тайм ауту.
Пытался сделать так, конфигурирую компонент таймер на закладке system стандартной панели компонентов. Через каждые 50ms происходит событие и прибавляется единичка к переменной
Обработчик события выглядит так.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
curcount:=curcount+1;
end;
Процедура приема данных выглядит так :
function readsymbol(l:integer):byte;
var ret:integer;
label exitwhile;
begin
ret:=-1;
form1.timer1.interval:=50;
form1.timer1.Enabled:=true; запускаю таймер
curcount:=0;
while (ret<0) do
begin
ret := sio_getch(1); // Принимаю данные
form1.Memo1.Lines.Append('ret ='+Inttostr(ret)+' ');
form1.Memo1.Lines.Append('curcount ='+Inttostr(curcount)+' ');
sleep(10);
if(curcount>20) then //Если данных нет 1s вываливаюсь из цикла
begin
showmessage ('Data transfer error!');
form1.timer1.enabled:=false;
goto exitwhile;
end;
end;

Проблема в том что пока работает цикл таймер не считает, похоже что он не явлеется независимым процессом.
Как бы сделать чтобы он считал независимо от основного процесса? Или я не тот таймер взял.

Erik1 (2005-11-14 14:48:00) [1]
Если принимаеш данные из порта, то лучше установить timeout и производить обработку в отдельном потоке.

Leonid Troyanovsky (2005-11-14 13:42:00) [2]

> JTAG (14.11.05 13:03)

> Проблема в том что пока работает цикл таймер не считает

RTFM: Application.ProcessMessages

--
Regards, LVT.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »