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.

TCompressionStream Найти похожие ветки