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
|