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

Как правельнно пользоватся aplibu, как архивировать TMemoryStream   Найти похожие ветки 

← →
NikNet ©   (2005-09-28 21:41) [0]

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

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

Мне надо зархивировать память точнее 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

---

← →
S@ska   (2005-09-28 22:07) [1]

Э ... dl div 1024 ???

---

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

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

---

← →
Eraser ©   (2005-09-28 23:38) [3]

> NikNet ©   (28.09.05 21:41)

ZLib + F1

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

---

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

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



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