Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

прерывание выполнения большой функции   Найти похожие ветки 

 
td   (2004-10-19 21:35) [0]

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

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

Хочу сделать кнопку "Прервать". С помощью чего это можно организовать?


 
Constantin   (2004-10-19 21:39) [1]

Прерывание подобное Ctrl-Alt-Delete вообще какое -либо прерывание с высоким приоритетом наверно надо сделать


 
SergP ©   (2004-10-19 21:52) [2]

Если ничего хорошего не подскажут, то попробуй так:
Делаешь переменную boolean, в самом начале своей функции пишешь туда например false, а в обработчике нажатия кнопки "Прервать" присваиваешь этой переменной true.

В самой функции постоянно проверяешь значение этой переменной и если вдруг что то выходишь...
Естественно такое лучще делать если твоя функция представляет из себя в основном цикл. Только если функция работает не в отдельном потоке,  придется вставить туда Application.ProcessMessages

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


 
Piter ©   (2004-10-19 23:18) [3]

Самое грамотное решение будет таковым:

делать функцию экспорта в отдельном потоке, при нажатии "Прервать" потоку просто делается Terminate.
В самой функции экспорта небось есть какой-то цикл, который выводит серию данных, так в этом цикле при каждой итерации проверять значение переменной Terminated (или как там ее). Если она True - значит, закругляемся.



Страницы: 1 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.054 c
14-1097344110
maxz
2004-10-09 21:48
2004.10.31
глюки Delphi 8


14-1097582942
Суслик
2004-10-12 16:09
2004.10.31
Спам роботы


14-1097244081
twilight
2004-10-08 18:01
2004.10.31
Про Worms Armageddon


1-1097735375
Руслана
2004-10-14 10:29
2004.10.31
Подскажите в чем ошибка...


14-1097258049
GanibalLector
2004-10-08 21:54
2004.10.31
ГИМН КАЗАНТИПА





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский