Mega Code Archive

 

Categories / VB.Net / File Directory

 

MemoryStream Demo

Imports System.Data Imports System.IO Imports System.IO.IsolatedStorage Imports System.Text Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters Imports System.Runtime.Serialization.Formatters.Soap Imports System.Runtime.Serialization.Formatters.Binary Imports System.Windows.Forms Public Class MainClass          Shared Sub Main(ByVal args As String())         Dim s As String = "111"         Dim n As Integer = 452         Dim mstream As Stream = New MemoryStream()         ' Write to the stream         Dim bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s)         Dim bytes2() As Byte = BitConverter.GetBytes(n)         mstream.Write(bytes1, 0, bytes1.Length)         mstream.Write(bytes2, 0, bytes2.Length)         ' Reset the stream to the beginning         mstream.Seek(0, SeekOrigin.Begin)         ' Read from the stream         Dim bytes3(mstream.Length - 4) As Byte         Dim bytes4(4) As Byte         mstream.Read(bytes3, 0, bytes3.Length)         mstream.Read(bytes4, 0, bytes4.Length)         ' Do something with the data         Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0))     End Sub End Class