Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c