MemoryStream.Read : MemortStream « System.IO « VB.Net by API

1. VB.Net by API
2. System.IO
3. MemortStream

MemoryStream.Read

   

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

   
    
    
  

Related examples in the same category