Basic] LZMA.dll : Encode, Decode Module

Download LZMA VB6 Module
LZMA_Module.bas

Get LZMA source code : http://www.7-zip.org/

VB_LzmaCompress
VB_LzmaUnCompress

VB6 전용 LZMA 패킹/언팩 모듈 입니다.
간단히 압축 과 압축 해제를 할 수 있고,
최고의 압축률을 자랑 합니다.

Dim Encode() as Byte, DecodeOut() as Byte
ret = VB_LzmaCompress((ByteArray-Out)Encode, (ByteArray-In)StrConv("LZMA Compress Test", vbFromUnicode), Props)
'ret = 압축된 크기
ret = VB_LzmaUnCompress((ByteArray-Out)DecodeOut, (ByteArray-In)Encode, Props)
MsgBox StrConv(DecodeOut,vbUniCode) ' LZMA Compress Test