как остановить readfile??

← →
Alewa (2004-01-12 22:58) [0]

В программе использую процедуру readfile. Читаю большой файл.
В программе необходимо остановить выполнение данной процедуры по прошествии 3 сек. с начала запуска процедуры и продолжить дальнейшее выполнени программы.
Как это осуществить? Подскажите.
Желательно с листингом небольшим.

← →
Palladin (2004-01-12 23:08) [1]

можно при помощи потоков
пример использования потоков в %delphi%\demos\threads
а также
TThread + F1 (изучая внимательно методы и принципы разработки потоков и их контроля можно добится того что необходимо)

← →
Alewa (2004-01-12 23:10) [2]

А поподробнее можно?
С англиским не очень лады.
Я так и думал что с помощью потоков, мне уже намекали.

← →
panov (2004-01-13 00:10) [3]

>А поподробнее можно?
Несомненно.
Но, в любом случае, для правильного понимания надо, как минимум, статьи на этом сайте почитать.

← →
Alewa (2004-01-13 00:28) [4]

Так дайте прямую ссылку! А то тут один раздел http://www.delphimaster.ru/articles.html а там куча всего и не отсортировано.

← →
Slym (2004-01-13 08:35) [5]

Ты код чтения приведи... Удобней править.
1. Ты читаешь пачками размером в буфер! => а это не долго (меньше буфер меньше время) между этими пачками можешь
контролировать время выполнения!
псевдокод:
procedure Read; begin t:=GetTickCount;//засекли время while not file.EOF do begin ReadFile(file,@buf,count); if (GetTickCount-t)>timeout then break; end; end;

← →
Slym (2004-01-13 08:37) [6]

А про аглицки язык не брехай! На что тебе Промт или МагикГуди или сократ персональный на худой конец...

← →
panov (2004-01-13 09:50) [7]

http://delphimaster.net/view/4-1073572640/

как остановить readfile?? Найти похожие ветки