Private Declare Function LzmaCompress Lib "LZMA.dll" (Dest As Any, destLen As _
  Long, Src As Any, SrcLen As Long, _
 outProps As Any, outPropsSize As Long, Level As Long, dictSize As Long, lc As _
 Long, lp As Long, pb As Long, _
 fb As Long, numThreads As Long) As Long
 
sub TestLZMA()
Dim ret As Long
Dim sFile1 As String, sFile2 As String
Dim iFn1 As Integer, iFn2 As Integer
Dim bIn() As Byte, bOut() As Byte
Dim iLenIn As Long, iBufLen As Long
Dim bAny() As Byte
 
sFile1 = "In.txt"
sFile2 = "Out.txt"
 
iFn1 = FreeFile
 
Open sFile1 For Binary Access Read Lock Write As iFn1
 
iFn2 = FreeFile
 
Open sFile2 For Binary As iFn2
 
ReDim bIn(LOF(iFn1))
Get #iFn1, , bIn()
 
iLenIn = UBound(bIn) + 1
iBufLen = iLenIn + (iLenIn * 0.01) + 600
 
ReDim bOut(iBufLen)
ReDim bAny(iBufLen)
 
ret = LzmaCompress(bOut(0), iBufLen, bIn(0), iLenIn, bAny(0), 5, 5, 0, 3, 0, 2, _
  32, 2)
 
Put #iFn2, , bOut()
 
End Sub

Attribute VB_Name = "LZMA_Module"
'RAM requirements for LZMA:
'  for compression:   (dictSize * 11.5 + 6 MB) + state_size
'  for decompression: dictSize + state_size
'    state_size = (4 + (1.5 << (lc + lp))) KB
'    by default (lc=3, lp=0), state_size = 16 KB.
'
'LZMA properties (5 bytes) format
'    Offset Size  Description
'      0     1    lc, lp and pb in encoded form.
'      1     4    dictSize (little endian).
'½±°Ô  ÀÎÄÚµùÆû | »çÀü Å©±â (¸®Æ² ¿£µð¾È)
'      00         00 00 00 01
'*/
'
'/*
'LzmaCompress
'------------
'
'outPropsSize -
'     In:  the pointer to the size of outProps buffer; *outPropsSize = 
LZMA_PROPS_SIZE = 5.
'     Out: the pointer to the size of written properties in outProps buffer; 
*outPropsSize = LZMA_PROPS_SIZE = 5.
'
'  LZMA Encoder will use defult values for any parameter, if it is
'  -1  for any from: level, loc, lp, pb, fb, numThreads
'   0  for dictSize
'  algo = 0 means fast method
'  algo = 1 means normal method
'
'dictSize - The dictionary size in bytes. The maximum value is
'        128 MB = (1 << 27) bytes for 32-bit version
'          1 GB = (1 << 30) bytes for 64-bit version
'     The default value is 16 MB = (1 << 24) bytes.
'     It 's recommended to use the dictionary that is larger than 4 KB and
'     that can be calculated as (1 << N) or (3 << N) sizes.
'
'lc - The number of literal context bits (high bits of previous literal).
'     It can be in the range from 0 to 8. The default value is 3.
'     Sometimes lc=4 gives the gain for big files.
'
'lp - The number of literal pos bits (low bits of current position for 
literals).
'     It can be in the range from 0 to 4. The default value is 0.
'     The lp switch is intended for periodical data when the period is equal 
to 2^lp.
'     For example, for 32-bit (4 bytes) periodical data you can use lp=2. 
Often it's
'     better to set lc=0, if you change lp switch.
'
'pb - The number of pos bits (low bits of current position).
'     It can be in the range from 0 to 4. The default value is 2.
'     The pb switch is intended for periodical data when the period is equal 
2^pb.
'
'fb - Word size (the number of fast bytes).
'     It can be in the range from 5 to 273. The default value is 32.
'     Usually, a big number gives a little bit better compression ratio and
'     slower compression process.
'
'numThreads - The number of thereads. 1 or 2. The default value is 2.
'     Fast mode (algo = 0) can use only 1 thread.
 
Public Declare Function LzmaCompress Lib "LZMA.dll" (ByVal dest As Long, 
ByRef destLen As Long, ByVal src As Long, ByVal srcLen As Long, ByVal 
outProps As Long, ByRef outPropsSize As Long, _
  Optional ByVal level As Long = 5, _
  Optional ByVal dictSize As Long = 16777216, _
  Optional ByVal lc As Long = 3, _
  Optional ByVal lp As Long = 0, _
  Optional ByVal pb As Long = 2, _
  Optional ByVal fb As Long = 32, _
  Optional ByVal numThreads As Long = 2) As Long
 
Public Declare Function LzmaUncompress Lib "LZMA.dll" (ByVal dest As Long, 
ByRef destLen As Long, ByVal src As Long, ByRef srcLen As Long, ByVal 
outProps As Long, ByVal outPropsSize As Long) As Long
'outPropsSize=5
 
'/*
'LzmaUncompress
'--------------
'In:
'  dest     - output data
'  destLen  - output data size
'  src      - input data
'  srcLen   - input data size
'Out:
'  destLen  - processed output size
'  srcLen   - processed input size
'Returns:
'  SZ_OK -OK
'  SZ_ERROR_DATA        - Data error
'  SZ_ERROR_MEM         - Memory allocation arror
'  SZ_ERROR_UNSUPPORTED - Unsupported properties
'  SZ_ERROR_INPUT_EOF   - it needs more bytes in input buffer (src)
'*/
 
Public Function VB_LzmaCompress(ByRef dest() As Byte, ByRef src() As Byte, 
ByRef Props() As Byte, Optional ByVal level As Long = 5&, _
  Optional ByVal dictSize As Long = 16777216, _
  Optional ByVal lc As Long = 3&, _
  Optional ByVal lp As Long = 0&, _
  Optional ByVal pb As Long = 2&, _
  Optional ByVal fb As Long = 32&, _
  Optional ByVal numThreads As Long = 2&) As Long
Call LzmaCompress(VarPtr(dest(0)), VB_LzmaCompress, VarPtr(src(0)), 
UBound(src), VarPtr(Props(0)), 5&, level, dictSize, lc, lp, pb, fb, 
numThreads)
End Function
 
Public Function VB_LzmaUnCompress(ByRef dest() As Byte, ByRef src() As Byte, 
ByRef Props() As Byte) As Long
VB_LzmaUnCompress = LzmaUncompress(VarPtr(dest(0)), UBound(dest), 
VarPtr(src(0)), UBound(src), VarPtr(Props(0)), 5)
End Function

'LzmaCompress
'------------
'
'outPropsSize -
'     In:  the pointer to the size of outProps buffer; *outPropsSize = 
LZMA_PROPS_SIZE = 5.
'     Out: the pointer to the size of written properties in outProps buffer; 
*outPropsSize = LZMA_PROPS_SIZE = 5.
'
'  LZMA Encoder will use defult values for any parameter, if it is
'  -1  for any from: level, loc, lp, pb, fb, numThreads
'   0  for dictSize
'
'level - compression level: 0 <= level <= 9;
'
'  level dictSize algo  fb
'    0:    16 KB   0    32
'    1:    64 KB   0    32
'    2:   256 KB   0    32
'    3:     1 MB   0    32
'    4:     4 MB   0    32
'    5:    16 MB   1    32
'    6:    32 MB   1    32
'    7+:   64 MB   1    64
'
'  The default value for "level" is 5.
'
'  algo = 0 means fast method
'  algo = 1 means normal method
'
'dictSize - The dictionary size in bytes. The maximum value is
'        128 MB = (1 << 27) bytes for 32-bit version
'          1 GB = (1 << 30) bytes for 64-bit version
'     The default value is 16 MB = (1 << 24) bytes.
'     It 's recommended to use the dictionary that is larger than 4 KB and
'     that can be calculated as (1 << N) or (3 << N) sizes.
'
'lc - The number of literal context bits (high bits of previous literal).
'     It can be in the range from 0 to 8. The default value is 3.
'     Sometimes lc=4 gives the gain for big files.
'
'lp - The number of literal pos bits (low bits of current position for 
literals).
'     It can be in the range from 0 to 4. The default value is 0.
'     The lp switch is intended for periodical data when the period is equal 
to 2^lp.
'     For example, for 32-bit (4 bytes) periodical data you can use lp=2. 
Often it's
'     better to set lc=0, if you change lp switch.
'
'pb - The number of pos bits (low bits of current position).
'     It can be in the range from 0 to 4. The default value is 2.
'     The pb switch is intended for periodical data when the period is equal 
2^pb.
'
'fb - Word size (the number of fast bytes).
'     It can be in the range from 5 to 273. The default value is 32.
'     Usually, a big number gives a little bit better compression ratio and
'     slower compression process.
'
'numThreads - The number of thereads. 1 or 2. The default value is 2.
'     Fast mode (algo = 0) can use only 1 thread.