Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];
Вниз
Отображение прогресса при 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.064 c
