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

[ShevlyakoV]

Доброго всем времени суток!

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

Мне надо определить что изначальное значение равное нулю изменилось и снова стало нулем.

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

[Stilet]

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

[Alex11223]

Вот прям возьмет и само себя внезапно изменит?

Сделайте метод изменения числа (и заодно можно его сделать private полем) и изменяйте только через него. Ну и в нем определяйте что вам надо, генерируйте события и т.п.

[ShevlyakoV]

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

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

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

Нет, события происходят не в таймере, а в теле цикла с постусловием, а целое число которое надо проверять, берется из функции, которая обращается к памяти другого приложения и считывает численное значение.

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

Вот прям возьмет и само себя внезапно изменит? Сделайте метод изменения числа (и заодно можно его сделать private полем) и изменяйте только через него. Ну и в нем определяйте что вам надо, генерируйте события и т.п.

В общем, все происходит вот так, на примере простого чтения:

function Value: Integer;
var
  Identifier, Handle: Cardinal;
  Bytes: DWORD;
  Value: Integer;
begin
  Result := 0;
  GetWindowThreadProcessId(GameScreen, @ProcessIdentifier);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessIdentifier);
  ReadProcessMemory(ProcessHandle, Ptr($1FFB5A6), @Value, SizeOf(Value), BytesRead);
  if not (Value = 0) then
  begin
    Result := Value;
  end;
end;

procedure ExecutiveProcedure;
begin
  while (True) do
  begin
    WriteLn('Value: ' + IntToStr(Value));
  end;
end;

Из выше указанного примера видно что есть функция которая обращается к памяти другого приложения и считывает от туда некое числовое значение, а потом, выводит его как целое число в исполнительной процедуре.

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

[Krasiosoft]

Может не совсем правильно понял, но нельзя ли просто запоминать предыдущее значение переменной, и в случае если оно было не 0, а новое значение 0, тогда выполнять нужные Вам действия?

[Stilet]

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

Ну закатай цикл в TThread, и пусть крутит свое считывание )

[ShevlyakoV]

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

Ну закатай цикл в TThread, и пусть крутит свое считывание )

Честно говоря, я не совсем понял ход ваших мыслей...

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

Может не совсем правильно понял, но нельзя ли просто запоминать предыдущее значение переменной, и в случае если оно было не 0, а новое значение 0, тогда выполнять нужные Вам действия?

Возможно что вы правы! Действительно, такой вариант вполне неплохо сработал.

Вот реализованный мною пример программного кода:

// function Value: Integer;  //Напомню что начение для переменной Value берется из этой функции
 
var
  Previous, Difference: Integer;

procedure ExecutiveProcedure;
begin
  while (True) do
  begin
    Difference := Value - Previous;
    Previous := Value;
    if (Difference <> Previous) then
    begin
      if (Previous = 0) then
      begin
        Windows.Beep(2000, 10);
      end;
    end;
  end;
end;

Проверка проходит в теле цикла с постусловием, добавлены две переменные:
- 1-я для предыдущего значения;
- 2-я для текущего значения.
В случаи если текущее изначальное значение равно нулю, то нечего не происходит, но если значение изменилось и вновь стало равно предыдущему, в этом случаи прозвучит сигнальный звук из системного динамика.

Теперь, у меня только один вопрос:
- Всели правильно я сделал или есть более рациональный/лучший способ?

[Alex11223]

Ну в том и была мысль Стилета, про поток (TThread) это только если вам надо не блокировать основной поток (например UI) этим циклом.

[Krasiosoft]

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

Честно говоря, я не совсем понял

А у Вас этот код выполняется не в отдельном потоке?

Но тут может быть еще одна проблема. Считывание через ReadProcessMemory переменной не гарантирует, что мы сможем отследить все ее изменения, даже если такое считывание будет происходить в цикле без всяких задержек.

[ShevlyakoV]

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

Ну в том и была мысль Стилета, про поток (TThread) это только если вам надо не блокировать основной поток (например UI) этим циклом.

Оу! Теперь, понял!

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

А у Вас этот код выполняется не в отдельном потоке? Но тут может быть еще одна проблема. Считывание через ReadProcessMemory переменной не гарантирует, что мы сможем отследить все ее изменения, даже если такое считывание будет происходить в цикле без всяких задержек.

На самом деле в теле цикла есть небольшая задержка, она равна 40 миллисекунд. Данного отрезка времени вполне хватает что бы цикл выполнялся не поглощая при этом все ресурсы системы и успевал обрабатывает функцию чтения. Просто, я забыл указать это в своих предыдущих сообщениях, за что и приношу свои извинения.