Как правельнно пользоватся 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]

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

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