VPF::почему не срабатывает таймер? - Форум программистов

Dmitry_177

Дата 5.11.2007, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 418
Регистрация: 22.9.2006

Репутация: нет
Всего: нет

на самом деле как тогда удалять DataTimer? вот задам я таймер в той программе, в этой создастся DataTimer и установится таймер.. А потом в той программе удалю этот таймер.. то что будет с DataTimer? Как его удалять?

dumb

Дата 5.11.2007, 15:56 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Цитата(Dmitry_177 @ 5.11.2007, 14:02

)

на самом деле как тогда удалять DataTimer?

тебе надо вместо массива хэндлов hTimers сделать массив(или там TList) DataTimer'ов. в таймерном callback'е "шерстить" этот массива на предмет переданного DataTimer, и удалять его - и самого и из массива.

Dmitry_177

Дата 8.11.2007, 01:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 418
Регистрация: 22.9.2006

Репутация: нет
Всего: нет

Цитата

в таймерном callback'е "шерстить" этот массива на предмет переданного DataTimer, и удалять его - и самого и из массива.

сделал так.. и тут вот какая вещь получается.. при удалении в таймерном каллбеке например первого элемента такого массива, естественно я его сдвигаю на один элемент.. и получается так что в остальных таймерах ссылки на элементы массива сбиваются на один элемент.. т.е. второй сработавший каллбек от второго таймера ссылка которому была передана второго элемента уже считывается из того, который был на тот момент третьим(но в данный момент уже второй).. вообщем я не знаю, может немного и непонятно выразился, но как-то так оно и происходит.. Сбивается текст сообщения, выводится других таймеров и сами таймеры не те отключаются(те которые идут следующими по порядку в массиве)

Это сообщение отредактировал(а) Dmitry_177 - 8.11.2007, 02:12

dumb

Дата 8.11.2007, 02:55 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Цитата(Dmitry_177 @ 8.11.2007, 01:57

)

и получается так что в остальных таймерах ссылки на элементы массива сбиваются на один элемент..

э-э! я разве что-то говорил про передачу ссылки на элементы массива?! хотя согласен - немного неточно описал свою мысль. smile

имелось ввиду примерно следущее:

Код


var
  ...
  dta: TList;
//  hTimers: array of THandle;
...
procedure TimerAPCProc(lpArgToCompletionRoutine: PDataTimer; dwTimerLowValue: DWORD; dwTimerHighValue: DWORD); stdcall;
begin
  with TIniFile.Create(StrFilePath) do
    try
      if MessageBox(0, ...) = idYes then
        begin
          dta.Remove(lpArgToCompletionRoutine);
          CancelWaitableTimer(lpArgToCompletionRoutine.hTimer);
          CloseHandle(lpArgToCompletionRoutine.hTimer);
          EraseSection(lpArgToCompletionRoutine.StrDateTime);
          Dispose(lpArgToCompletionRoutine);
        end;
    finally
      Free;
    end;
end;
procedure InstallTimers;
var
  iTimer: integer;
  sysTime: SYSTEMTIME;
  fTime: FILETIME;
  DataTimer: PDataTimer;
begin
  with TIniFile.Create(StrFilePath) do
    try
      ReadSections(Sections);
      if Sections.Count > 0 then
        begin
          for iTimer := 0 to Sections.Count - 1 do
            begin
              New(DataTimer);
              DataTimer.hTimer := CreateWaitableTimer(nil, false, nil);
              DateTimeToSystemTime(StrToDateTime(Sections[iTimer]), sysTime);
              SystemTimeToFileTime(sysTime, fTime);
              LocalFileTimeToFileTime(fTime, fTime);
              DataTimer.StrDateTime := PChar(Sections[iTimer]);
              SetWaitableTimer(DataTimer.hTimer, TLargeInteger(fTime),
                               Round(Frac(StrToDateTime(ReadString(Sections[iTimer], 'Period', '0'))) * 86400) * 1000,
                               @TimerAPCProc, DataTimer, false);
              dta.Add(DataTimer);
            end;
        end;
    finally
      Free;
    end;
end;
procedure UninstallTimers;
var
  iTimer: integer;
  hTimer: THandle;
begin
  for iTimer := 0 to dta.Count - 1 do
    begin
      hTimer := PDataTimer(dta.Items[iTimer]).hTimer;
      CancelWaitableTimer(hTimer);
      CloseHandle(hTimer);
      Dispose(dta.Items[iTimer]);
    end;
  dta.Clear;
  Sections.Clear;
end;

...

begin
  dta := TList.Create;
  StrFilePath := GetStrFilePath;
...
  Sections.Free;
  dta.Free;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »