VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

PPMD String Compression

Demonstrates string compression using PPMD.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim compress As New Chilkat.Compression()

'  Any string argument automatically begins a 30-day trial.
Dim success As Boolean
success = compress.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("Compression component unlock failed")
    Exit Sub
End If


compress.Algorithm = "ppmd"

Dim strData As String
Dim i As Long

'  Create a long string to compress.
strData = "abcdefg1122334455667788"
strData = strData & vbCrLf
For i = 0 To 99
    strData = strData & "abcdefg1122334455667788"
    strData = strData & vbCrLf
Next

'  Depending on the programming language, the string
'  may be Unicode.  Tell the component to convert to
'  ansi (1-byte/char) prior to compression:
compress.Charset = "ansi"

'  Compressed data is binary, meaning that all byte values
'  from 0 to 255 are possible.  The result would not be
'  a printable string.  To receive a printable string (us-ascii),
'  the resultant compressed data should be encoded using
'  an encoding such as base64.  Set the EncodingMode
'  property to determine the output encoding:
'  (Valid choices are "base64", "hex", "url", and others)
compress.EncodingMode = "base64"

'  Note: Base64 encoding expands the compressed data by
'  4/3rds because each 3 bytes of binary data are represented
'  by 4 printable chars.  Hex, for example, doubles the output
'  size because each byte is represented by 2 printable chars.

'  PPMD compress the string:
Dim compressedStr As String
compressedStr = compress.CompressStringENC(strData)
If (compressedStr = vbNullString ) Then
    MsgBox(compress.LastErrorText)
    Exit Sub
End If


'  Display the compressed string.
'  The result will be:
'  ec8YZ5vk9za18d0plwuV7R65em9OZge9gJXht/QAAAAAAAAAABNOZQAAKw==
TextBox1.Text = TextBox1.Text & compressedStr & vbCrLf

'  Decompress back to the original:
Dim strOriginal As String
strOriginal = compress.DecompressStringENC(compressedStr)

'  Display the uncompressed original:
TextBox1.Text = TextBox1.Text & "--- Original ---" & vbCrLf
TextBox1.Text = TextBox1.Text & strOriginal & vbCrLf
 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser