forum.clarionlife.net

Здравствуйте!
Буду очень признателен тому кто на простом примере объяснит использование callback-функций. Попробую сначала описать задачу, для решения которой, как мне кажется, необходимо использовать именно такой механизм.

Есть modul.exe и modul.dll. Из modul.exe вызываем функцию func1(), которая находится в modul.dll. Функция func1() содержит какой-то цикл loop .. end. Необходимо прервать выполнение данного цикла, нажатием на button в modul.exe.

Не пинайте пожалуйста, если спрашиваю элементарное.

Не надо никаких callback функций. Функцию func1 запускаешь в отдельном thread, в другом окне посылаешь этому треду Event:CloseWindow. Единственное, не забыть в loop поставить оператор yield.
А, вообще, это всё неправильно. Нужно сделать, как в Process, или воспользоваться классом Process.

func1() запускаю по start'у, но это не оконная процедура, поэтому отправить ей event не получится. Можно было бы воспользоваться TerminateProcess, но как получить handle? Сам понимаю, что Process мне в помощь, но до конца еще не разобрался.

Если у DLL и EXE общий словарь, то объяви в нем переменную-флаг. Тред его должен видеть. В основном потоке, когда надо сбрасывай его в 0, а в треде проверка, если 0, то выход из цикла.

Проблема решилась вообще элементарно. В функции сделал еще один параметр указатель на long - func1(..., <*long brakecode>). И в цикле проверяю его значение. В главном процессе refbrakecode = 1 соответственно и в func1 brakecode = 1

Пара замечаний.
1. Loop без вывода информации о том, что происходит - не есть хорошо.
2. Как насчёт yield? По-моему без него не получится.