Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Компрессия потоков. [D7, WinXP]


qawsed ©   (2005-01-24 14:46:00) 

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.
Что бы это значило.


GuAV   (2005-01-24 15:46:00) [1]

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


Poirot   (2005-01-24 15:11:00) [2]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо