Compressing entirely in memory (VB example)
In This Topic
| Visual Basic |
 Copy Code |
Dim xComp As New XceedStreamingCompression
Call xComp.License( "your license key" )
Set xComp.CompressionFormat = New XceedStandardCompressionFormat
Dim vaSource As Variant
Dim vaDest As Variant
vaSource = "This is the data to compress compress compress"
On Error Resume Next
vaDest = xComp.Compress(vaSource, True)
If Err.Number <> 0 Then
Call MsgBox("Error 0x" & Hex(Err.Number) & " " & Err.Description)
Else
Call MsgBox("Data compressed successfully!")
End If
On Error Goto 0
Set xComp = Nothing |
