Как прервать выполнение функции?

[Glyckmen]

Во время выполнении функции от DLL мне надо в некоторых случаях досрочно завершить выполнение этой функции и закрыть форму с которой она вызывалась, могу во время выполнения этой функции обрабатывать события формы и кнопок на ней, но при простом закрытии формы Unload Me функция все равно продолжает выполняться и подвешивает основную часть программы (пока функция не завершиться).

Можно-ли не создавая потоков и фиберов (потоки и фиберы пока сложноваты для меня, не тот уровень) остановить выполнение функции?

[tyomitch]

См. http://bbs.vbstreets.ru/viewtopic.php?t=25514 и далее по ссылкам.

[Glyckmen]

Я в первом посте вопрос поставил по другому!

[Viper]

В данной формулировке при условии, что функция в DLL остается неизменной проблема похоже не решаема.

[Glyckmen]

!Viper!А вообще существует ли возможность чтобы после вызова, во время выполнения функции DLL, передать ей еще параметры , например на прекращение работы. Просто у меня есть связь с автором этой библиотеки и если такая возможность существует то как ее лутше реализовать, что-бы я потом смог это объяснить как это можно сделать автору библиотеки.

[GSerg]

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

function   (..., byref stop as boolean) as long

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

dim f as boolean

call Function( ... , f)

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

f = true

[Viper]

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

[Glyckmen]

GSerg Если я правильно понял то:

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

function   (..., byref stop as boolean) as long

относится к библиотеке и должно там находиться (я думаю что автор сможет перевести это на DELPHI).

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

dim f as boolean
call Function( ... , f)

с этим все понятно

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

f = true

а эту переменную в моей программе функция сможет отслеживать, если она изменится в программе, то она так-же изменится и во время выполнения функции (остается в функцию включить периодическую проверку и If stop=True Then Exit Function).
Если все правильно то спасибо!

[tyomitch]

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

[GSerg]

Из

могу во время выполнения этой функции обрабатывать события формы и кнопок на ней

следует, что так оно и есть.

[tyomitch]

Вообще-то нет: вдруг она свой message pump гоняет?
Но, пожалуй, этого достаточно.

[Glyckmen]

Я в другой теме писал об этой DLL и там у меня была проблема об извлечении данных из lParam (решенная с Вашей помощью), я просто перехватываю сообщения от DLL для организации ProgressBar и для вывода на форму другой служебной информации (прошедшее время, оставшееся время, сколько обработано), так-же поэксперементировал с кнопкой на форме и ее события так-же обрабатываются, в это время и можно поменять значение переменной-флага (но для этого как я уже говорил мне пришлось использовать SetWindowLong) поэтому я не знаю использует эта DLL потоки или нет но одназначно при ее простом выполнении (без перехватов) она программу замораживает. Вот поэтому и спрашиваю при таком способе (обработка переменной-флага для завершения работы функции) все сработает или нет.

[Glyckmen]

Почему-то идея с переменной флагом не сработала (а может что-то не так сделали). Автор библиотеки любезно согласился ее подправить и ввел еще один параметр который то-же задается по сылке (вроде как аналог ByRef),и проверку организовал (перед отправкой сообщения), но не работает. Я свое значение меняю, на форме отображаю, но функция своей работы не прекращает. Объясните по подробней что передает ByRef в DLL адрес переменной или что-то другое?
Как можно получить физический адрес переменной?

[tyomitch]

Да, адрес. Но не физический.
Физический адрес переменной ты никак не получишь, а если бы и получил, то что бы делал с ним дальше?

[Glyckmen]

tyomitchЗасунул бы его в переменную и отправил бы в функцию при вызове, а в функции уже бы по этому физ. адресу бралось его значение. Может между VB и DELPHI нет согласия и они исползуют разные адреса(если такое вообще возможно).
PS. Еще имеются соображения что здесь идет несогласованность в типе Boolean на DELPHI False=0, True=1 и в VB6 где False=0, а True=(по моему -1). Чему равно True в VB6?

[tyomitch]

Физические адреса не используются ни в VB, ни в делфях.

ByRef передаёт именно тот адрес, который дельфийская прога рассчитывает получить.

True = -1

[Glyckmen]

Наверно в этом типе Boolean и идет несогласованность.
Если будут еще вопросы то обращусь.
Спасибо!

[Glyckmen]

Вопросы дальше!
У нас с автором библиотеки все равно не получается, наверно это с его стороны траблы (при изменении переменной-флага библиотека продолжает работать и в конце зависает, если флаг не изменять то все завершается по окончании штатно). Вопрос в другом, есть функция VarPtr (Ptr as Any) которая возвращает указатель на адрес переменной, а можно-ли получить по этому указателю значение. т.е. я не знаю ни имени переменной ни значение,но знаю что тип Long и имею указатель который мне передали, как по этому указателю взять значение?

[tyomitch]

так ведь ты передаёшь указатель, а не получаешь?

[Хакер]

tyomitch, человку имхо просто интересно как это сделать.

Наверное CopyMemory где src as any указать byval lPtr as long

поправьте если что не так.

[Glyckmen]

Хакер Опять эта CopyMemory прям без нее никуда.
Все отлично работает, спасибо.

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

[tyomitch]

Glyckmen, дельфисту CopyMemory ни к чему -- там указатели есть в языке.