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

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

Как правельнно пользоватся aplibu, как архивировать TMemoryStream [D6, D7]


NikNet ©   (2005-09-28 21:41:00) 

или что-то лучший по зжатию... (покажите пример).

Здравствуйте!

Мне надо зархивировать память точнее MS: TMemoryStream;
но я не знаю как  Пробывал разные библетеки например
aplibu но не чего не выходит помогите...

вот мой маленький кусок.

var

 B:TBitmap;
 p,sm,dm:Pointer;
 sl,dl:DWORD;

begin
  new(sm); new(dm);

  B:=TBitmap.Create;
  Screen(B);
  MS := TMemoryStream.Create;
  B.SaveToStream(MS);
  sm:=MS.Memory;

  sl:=_aP_Pack(sm,dm,sl,p,0);

  Caption:=IntToStr(dl div 1024);
  B.Free;
  MS.Free;

  Dispose(sm); Dispose(dm);



А также мне надо разархивировать! Тоже как?

Вот библиотека:
http://forum.sources.ru/index.php?act=Attach&type=post&id=869479


Eraser   (2005-09-28 23:38:00) [1]


> NikNet ©   (28.09.05 21:41)

ZLib + F1

также см. ZLib.pas, TCompressionStream и TDecompressionStream.


S@ska   (2005-09-28 22:10:00) [2]

Дамс... и ссылочка то - не работает ((( Злодеи, не любят "мимо проходящих" )))


S@ska   (2005-09-28 22:07:00) [3]

Э ... dl div 1024 ???


Наверх

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