VB.NET Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML to XML
HTTP
IMAP
Encryption
MHT / HTML Email
PFX
RSA Encryption
S/MIME
Socket
Spider
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Byte Array
VB.NET FTPS
System.IO

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

Create and Open In-Memory Zip

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

VB.NET Code to Create and Open In-Memory Zip

' Create and open Zip files in-memory.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim zip As New Chilkat.Zip()

        ' Anything begins the 30-day trial
        Dim unlocked As Boolean
        unlocked = zip.UnlockComponent("30-day trial")
        If (Not unlocked) Then
            MsgBox(zip.LastErrorText)
            Exit Sub
        End If

        zip.NewZip("test.zip")

        ' Generate some data for Zipping.
        Dim s As String
        Dim i As Integer
        For i = 1 To 10
            s = s + "This is a test " + Str(i) + vbCrLf
        Next

        ' Append the string to the in-memory Zip.
        Dim dataBytes() As Byte
        dataBytes = System.Text.Encoding.ASCII.GetBytes(s.ToCharArray)
        zip.AppendData("data.txt", dataBytes)

        ' Write the Zip to memory.
        Dim zipImage() As Byte
        zipImage = zip.WriteToMemory()

        ' Open the in-memory Zip
        Dim zip2 As New Chilkat.Zip()

        Dim success As Boolean
        success = zip2.OpenFromMemory(zipImage)
        If (Not success) Then
            MsgBox(zip2.LastErrorText)
            Exit Sub
        End If

        ' Get the first entry.
        Dim entry As Chilkat.ZipEntry
        entry = zip2.GetEntryByIndex(0)

        ' Inflate the entry's data.
        MsgBox(entry.InflateToString2())

    End Sub


Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp

 

Need a specific example? Send a request to support@chilkatsoft.com

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

Mail Component · XML Parser