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

Отображение прогресса при LoadFromFile и SaveToFile   Найти похожие ветки 

← →
leonidus   (2007-11-06 10:54) [0]

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

procedure TGraphic.LoadFromFile(const Filename: string);
var
 Stream: TStream;
begin
 Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
 try
   LoadFromStream(Stream);
 finally
   Stream.Free;
 end;
end;

никаких циклов тут нет, так к чему же привязать прогресс?

---

← →
Сергей М. ©   (2007-11-06 11:10) [1]

> к чему же привязать прогресс?


К вирт.методу Read, перекрытому в своем наследнике класса TFileStream

---

← →
leonidus   (2007-11-06 12:33) [2]

А можно примерчик?

---

← →
Сергей М. ©   (2007-11-06 12:34) [3]

Что не понятно ?

---

← →
leonidus   (2007-11-06 12:50) [4]

Как перекрывать, я слабо разбираюсь в ООП.

---

← →
clickmaker ©   (2007-11-06 13:05) [5]

> я слабо разбираюсь в ООП

книжку купи.

type
 TMyFileStream = class(TFileStream)
 protected
    function Read(var Buffer; Count: Longint): Longint; override;

---

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

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



Память: 0.46 MB
Время: 0.014 c