Encoding entirely in memory (VB example)

This sample encodes data in memory with the Base64 encoding format

Visual Basic Copy Code

Visual Basic	Copy Code
Dim xBinEncode As New XceedBinaryEncoding Call xBinEncode.License( "your license key" ) Dim vaEncoded As Variant Dim vaSource As Variant Set xBinEncode.EncodingFormat = New XceedBase64EncodingFormat vaSource = "This is the text to encode!" On Error Resume Next vaEncoded = xBinEncode.Encode(vaSource, True) If Err.Number <> 0 Then Call MsgBox("Error " & Err.Number & " " & Err.Description) Else Call MsgBox("Data encoded successfully!") End If On Error Goto 0 Set xBinEncode = Nothing


Dim xBinEncode As New XceedBinaryEncoding
Call xBinEncode.License( "your license key" ) 
Dim vaEncoded As Variant
Dim vaSource As Variant 
Set xBinEncode.EncodingFormat = New XceedBase64EncodingFormat 
vaSource = "This is the text to encode!" 
On Error Resume Next

vaEncoded = xBinEncode.Encode(vaSource, True) 
If Err.Number <> 0 Then
  Call MsgBox("Error " & Err.Number & " " & Err.Description) 
Else
  Call MsgBox("Data encoded successfully!") 
End If 
On Error Goto 0
Set xBinEncode = Nothing