Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Delphi"   >>>
Alex_V [2006-02-09 23:00:42]
Остановить выполнение функции
Читаю файл в FileStream
FOut.CopyFrom(FIn,1024);
файл читается с CD, а CD может быть поцарапан и чтение очень сильно замедляется.
Мне нужно, если чтение блока задерживается дольше 10 секунд - прекратить выполнение этой функции. Только не могу понять как. не понял

Trailer [2006-02-11 23:28:44]    [1]
Можно сделать отдельный поток, в котором и будет выполняться эта функция. Его и прерывать.
А можно создать глобальную переменную - флаг - в цикле CopyFrom выставь проверку на ее значение и прерывай, когда нужно. Указатель на переменную можно передавать вместе с остальными параметрами.
Ну и Application.ProcessMessages не забудь. супер


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



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


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru