Как определить, сколько времени юзер читал текст

[belkeandrey]

Сообщение от Человек_Борща

Пипл, тут проблема толще чем кажется. А читает ли юзер текст вообще? Или уже минут ...дцать сидит на кухне и чай пьёт?

И да, все проще =)
Принцип маятника:

глобальные переменные: 
bControl:Boolean = False;
iTStart,iTEnd:DWORD;

Обработчик перехода из раздела в раздел:
begin
    if bControl then
    begin
      iTEnd:=GetTickCount-iTStart;
      ShowMessage('Я твой текст '+IntToStr(iTEnd div 1000)+' секунд шатал...!');
      iTEnd:=0;
      iTStart:=0;
      bControl:=False;
    end;
  iTStart:=GetTickCount;
  bControl:=True; 
end;

А можете поподробнее разъяснить что к чему

[Serge_Bliznykov]

а Вы прочитайте про GetTickCount...

суть в том, что при при первом входе переменная bControl равна false (означает, что ни один раздел ещё не был загружен).
тогда мы запоминаем текущее время в переменную iTStart
и ставим признак bControl := true , что чтение началось..

когда раздел будем менять (сработает обработчик перехода из раздела в раздел)
сработает код, но т.к. переменная bControl уже равна true, тогда находим разницу в milliseconds между текущим временем (GetTickCount) и запомненным (iTStart)
это и есть то время, которое был открыт сменяемый раздел. (а уж читал его пользователь или в окно глядел - сие неведомо...)


p.s. а таймер в этой задаче действительно никоим боком не нужен!

[belkeandrey]

С этим разобрался, сделал через onchange richedit. А как сделать, чтобы новый текст в ричэдите автоматически перематывался на начало? Вставлять пробел перед загрузкой текста нельзя, чтобы лишний раз не срабатывал onchange.

[Алексей_2012]

т.е чтобы текст загружался из файла, и показывал не конец текста а начало?

[belkeandrey]

Ага. Вроде получилось RichEdit.SelStart:=0.

[s-andriano]

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

После загрузки текста запускать таймер и делать inc(i), нажатие на кнопку сбрасывает таймер и записывает значение i в любую другую переменную. Как-то так?

Ужас!

Вы, наверное, и два числа складываете так:

  a := 1000;
  b := 1000;
...
  c := a;  // с := a + b;
  counter := b;
  while counter > 0 do begin
    inc(c);
    dec(counter);
  end;

Не нужно никаких таймеров: нужно два раза прочитать состояние часов (например, GetTickCount - измеряет в мс) - в начале и в конце, и вычесть одно из другого.

[noname_06]

s-andriano, признаю, идея не самая лучшая) Про GetTickCount совершенно не подумал. А вот Ваша идея с суммированием 2х чисел мне понравилась, возьму на вооружение)

[s-andriano]

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

А вот Ваша идея с суммированием 2х чисел мне понравилась, возьму на вооружение)

Рад за Вас.
Очевидно, пришла очередь идей, как отличить юзера, читающего, от юзера, смотрящего в окно.

[Arigato]

Сообщение от Человек_Борща

Пипл, тут проблема толще чем кажется. А читает ли юзер текст вообще? Или уже минут ...дцать сидит на кухне и чай пьёт?

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

[s-andriano]

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

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

Ну, скринсейвер, пожалуй, ненадежно (нет, если скринсейвер включился, то юзер, если что и читает, явно не текст с экрана) - сейчас их уже мало кто использует в силу бесполезности этого занятия.
Переключение на другие окна - стоит ли овчинка выделки? Ведь если если юзер читает текст с экрана, то активное окно - именно программа с текстом, а не пасьянс.
А вот отслеживание интервала между двумя последовательными сообщениями от органов управления окну с текстом, думаю, достаточно надежный критерий: если юзер не предпринимает никаких действий в окне в течение времени достаточного для 3-5-кратного прочтения текста, скорее всего, он занят чем-то другим, и этот интервал нужно вычитать из времени чтения.