CompressMem

CompressMem

CompressMem( Buf_Dest , Buf_Sourse , SizeSourse, [level = 5)

Позволяет сжимать(архивировать) память. Возвращает результат сжатой памяти.

Buf_Dest - Адрес буфера приемника (может быть размером таким же как несжатый, все равно в функции выравнивается до нужного)

Buf_Sourse - Адрес исходного несжатого буфера

SizeSourse - Размер исходного несжатого буфера

level  - уровень сжатия (1-9).   1 самое быстрое, но и самое плохое сжатие.

Пример:

#Include "window9.bi"
Dim As Byte Ptr sourse=Allocate(10000005),Dest= Allocate(10000)
Dim As Integer sizeCompress
For a As Integer=1 To 10000000
 Poke  sourse+a, a
Next

sizeCompress=compressMem(dest,sourse,10000000)
? sizeCompress
? decompressMem(dest,sizeCompress,sourse)
Sleep
DeAllocate(sourse):DeAllocate(dest)

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator