Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отображение прогресса при LoadFromFile и SaveToFile

leonidus © (2007-11-06 10:54:00)
Т.к. в процессе работы программы необходимо загружать и записывать довольно объемные графические файлы, то эти операции могут длится заметное время, в связи с чем вопрос как в ходе записи или загрузки файла отобразить прогресс, ведь например стандартная процедура 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;

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

clickmaker (2007-11-06 13:05:00) [1]

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

книжку купи.

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

leonidus (2007-11-06 12:50:00) [2]
Как перекрывать, я слабо разбираюсь в ООП.

Сергей М. (2007-11-06 12:34:00) [3]
Что не понятно ?

leonidus (2007-11-06 12:33:00) [4]
А можно примерчик?

Сергей М. (2007-11-06 11:10:00) [5]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »