Mega Code Archive

 

Categories / VB.Net / XML

 

XmlWriter WriteBinHex encodes specified binary bytes as BinHex

Option Explicit On Option Strict On 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.WriteBinHex(buffer, 0, readBytes)             Loop While bufferSize <= readBytes             br.Close()             writer.WriteEndElement()             writer.WriteEndDocument()         End Using     End Sub End Class