![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правельнно пользоватся 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 ???