Вниз
Скачать: CL | DM;

как остановить 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/



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c
1-72756
alextov
2004-01-13 14:48
2004.01.23
В Win2000 при ошибке программа закрывается без сообщения о ошибке


8-72847
Jonson
2003-09-20 10:03
2004.01.23
OpenGL в Delphi


6-72864
Novenkij
2003-11-20 21:29
2004.01.23
Пересылка файлов


4-72970
zhil
2003-11-15 04:12
2004.01.23
ScreenShot для невидимого компонента


7-72959
qwe
2003-11-06 10:32
2004.01.23
Как можно получить информацию о жестком диске




   Наверх