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

Компрессия потоков.   Найти похожие ветки 

← →
qawsed ©   (2005-01-24 14:46) [0]

var fs: TFileStream; cs: TCompressionStream;  

 fs := TFileStream.Create(SourceFile, fmCreate);
 cs := TCompressionStream.Create(clMax, fs);
 Form1.DXImageList1.Items.SaveToStream(ts);
 Form1.DXWaveList1.Items.SaveToStream(ts);
 fs.Free;
 cs.Free;
 ts.Free;

Вызывает исключение Inbalid stream operation.
Что бы это значило.

---

← →
Poirot ©   (2005-01-24 15:11) [1]

А что есть "ts"?

---

← →
GuAV ©   (2005-01-24 15:46) [2]

Нельзя осуществлять некоторые операции с TCompressionStream и с TDecompressionStream. Скорее всего, прийдётся воспользоваться промежуточным TMemoryStream, при чём перед его записью в TCompressionStreamписать размер. Что именно не так - выполните тот же код при Use debug DCUs.

---

Страницы: 1 вся ветка

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



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