Как сделать так, чтобы программа не висла?

← →
.::D.e.M.o.N.i.X::. (2003-02-28 15:26) [0]

Например, я читаю файл с диска с помощью API, а файл плохо читается и API глохнет(программа не отвечает на системные запросы). Стандартно Application.processmessage не помагает. Как обойти зависание?

← →
Dms (2003-02-28 15:30) [1]

Используй потоки, должно помочь.

← →
Anatoly Podgoretsky (2003-02-28 15:37) [2]

Как и откуда читаешь?

← →
Serious Sam (2003-02-28 15:41) [3]

>Как обойти зависание?

Либо сделать нормальный кодинг, либо не запускать программу

← →
.::D.e.M.o.N.i.X::. (2003-02-28 15:42) [4]

Тупо делаю FileRead - на нем и виснет:(

← →
Smithson (2003-02-28 15:46) [5]

Код в студию!

← →
.::D.e.M.o.N.i.X::. (2003-02-28 15:51) [6]

Короче что-то около того
BytesCopied := FileRead(Source, CopyBuffer^, 512); if BytesCopied > 0 then FileWrite(Dest, CopyBuffer^, BytesCopied);
Если файл плохо читается, то на месте BytesCopied := FileRead(Source, CopyBuffer^, 512); наглухо виснет.

← →
Anatoly Podgoretsky (2003-02-28 16:05) [7]

Делай в отдельном потоке

← →
.::D.e.M.o.N.i.X::. (2003-02-28 16:08) [8]

> Делай в отдельном потоке

А по-конкретней... DLL что-ли для этого писать?

← →
Serious Sam (2003-02-28 16:22) [9]

Что значит "файл плохо читается"?

← →
BJValentine (2003-02-28 16:26) [10]

Попробуй секцию Try... Except;

← →
Переяслов Григорий (2003-02-28 16:28) [11]

Используй TThread bkb File/New -> Thread object

← →
.::D.e.M.o.N.i.X::. (2003-02-28 16:35) [12]

> Попробуй секцию Try... Except;

Это уже пройденный материал. Дело в том, что FileRead виснет например на сидюке, когда компашка дохлая(вся в царапинах). FileRead может выполнятся и 10 минут и 20 минут (у меня сидюк Asus50x еще до удешевления производтсва, так он все подрят жрет, даже компашки с поврежденной поверхностью, и что удивительно без ошибок). На других сидюках(Sony, Panasonic, Samsung) FileRead завершается быстро, но результат = 0.

← →
.::D.e.M.o.N.i.X::. (2003-02-28 16:37) [13]

> Используй TThread bkb File/New -> Thread object

Спасибо, только что прочитал статью на InfoCity.

← →
Serious Sam (2003-02-28 16:37) [14]

overlapped read пробовали?

Как сделать так, чтобы программа не висла? Найти похожие ветки