Mega Code Archive

 

Categories / VB.Net / XML

 

XmlWriter WriteBase64 encodes specified binary bytes as Base64

Option Explicit Option Strict Imports System Imports System.IO Imports System.Xml Public Class Sample   Public Shared Sub Main()         Dim bufferSize As Integer = 1000         Dim buffer(bufferSize) As Byte         Dim readBytes As Integer = 0              Using writer As XmlWriter = XmlWriter.Create("output.xml")                 Dim inputFile As New FileStream("C:\a.jpg", FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)                 writer.WriteStartDocument()                 writer.WriteStartElement("image")                 Dim br As New BinaryReader(inputFile)                 Do                     readBytes = br.Read(buffer, 0, bufferSize)                     writer.WriteBase64(buffer, 0, readBytes)                 Loop While bufferSize <= readBytes                 br.Close()                  writer.WriteEndElement()             writer.WriteEndDocument()              End Using     End Sub 'Main End Class 'Sample