Таймер в отдельном потоке.

[artkil]

Здравствуйте.
Есть поток, в процедуре Execute потока опрашивается устройство по TCP(на winsock реализовано, без всяких оберток), естественно если соединение не разорвано и устройство не посылает данные, то процедура может надолго зависнуть. И нужно чтобы через определенный интервал времени выполнялась одна процедура, которая будет проверять как давно последний раз приходили данные. До этого писал на Delphi, но понадобилась кроссплатформенность, и выбор пал на freepascal/lazarus. Как организовать работу таймера в отдельном потоке (т.е. в одном и том же потоке должно опрашиваться устройство и работать таймер)?

Может как-то сделать обработку системных сообщений? Наподобии:

Код: Выделить всё

while GetMessage(Msg, 0, 0, 0) do
begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;


Есть какое-нибудь кросплатформенное решение этого в freepascal?

[B4rr4cuda]

Имхо, проще всего запустить еще один поток. И, чтоб не извращаться, заюзать процедуру ( с циклом проверки и слипом) запущенную в потоке с помощью функции BeginThread.

[dr.miller]

А что есл в той самой процедуре, в момент получения данных запоминать текущее время, а в когда процедура ждет данные и не получает результата - замерять интервал между текущим (now) и тем что было заполнено ранее. При вырастании интервала до заданного критического размера - сделать бесконечное выполнение - невозможным. Величину интервала было бы неплохо сделать настраиваемым а не константным. ИМХО

[artkil]

Про запоминание это понятное дело, а вот если соединение существует, но данных нет поток подвиснет на процедуре recv. Про второй поток, который будет следить за остальными тоже думал.

Добавлено спустя 45 минут 18 секунд:
Проблема решилась.
Сделал так:

Код: Выделить всё

while not Terminated do
begin
  if (Now - FLastCheck) > (1 / 24 / 60) then
   ResetConnection;
  select(0, @s_read, nil, nil, @tv);
  if s_read.fd_count = 0 then
   continue;
  ret = recv(FSocket, buf, len, 0);
  FLastCheck := Now;
  Check(buf);
end;