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