Отображение прогресса при 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]

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

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

книжку купи.

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

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