Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];
ВнизTCompressionStream Найти похожие ветки
← →
savyhinst © (2008-01-18 18:22) [0]Здраствуйте.
Подскажите пож. как использовать TCompressionStream?
Желательно на примере сохранения и загрузки туда чего-либо. Например картинки из TImage.
Спасибо за внимание.
← →
Palladin © (2008-01-18 18:27) [1]как обычный stream, только соответственно read работать не будет
лучше использовать процедуры ZCompressStream/ZDecompressStream
← →
Efir (2008-01-18 20:56) [2]Примерно так, запись:
var
cs:TCompressionStream;
f:TFileStream;
bmp:TBitmap;
f:=TFileStream.Create("куда сохраняем", fmWrite);
cs:=TCompressionStream.Create(clDefault, f);
bmp.SaveToStream(cs);
Считывание:
const
BuffSize = 16384;
var
f:TFileStream;
ms:TMemoryStream;
cs:TDecompressionStream;
BytesRead:integer;
bmp:TBitmap;
ms:=TMemoryStream.Create;
f:=TFileStream.Create(FileName, fmOpenRead);
cs:=TDecompressionStream.Create(f);
repeat
BytesRead:=cs.Read(Buffer, BuffSize);
ms.Write(Buffer, BytesRead);
until BytesRead<BuffSize;
bmp.ReadFromStream(ms);
Соответственно не забывая try-finaly и free.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.063 c