в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:05Z

1 версия

Новая страница

==MemortStream.Seek==

<source lang="vbnet">
Imports System.IO
public class Test
public Shared Sub Main
Dim memory_stream As New MemoryStream()
Dim stream_writer As New StreamWriter(memory_stream)
stream_writer.Write("aaa.")
stream_writer.Flush()
Dim stream_reader As New StreamReader(memory_stream)
memory_stream.Seek(0, SeekOrigin.Begin)
Console.WriteLine(stream_reader.ReadToEnd())
stream_reader.Close()
End Sub
End class

</source>

==MemortStream.ToArray()==

<source lang="vbnet">

Imports System.IO
Imports System.Text
Imports System.Threading

Public Class Tester
Public Shared Sub Main
Dim bteRead() As Byte
Dim bteArray(256) As Byte
Dim myMemortStream As MemoryStream
Dim myFileStream As FileStream
Try
myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read)
ReDim bteRead(myFileStream.Length)
myFileStream.Read(bteRead, 0, myFileStream.Length)
myMemortStream = New MemoryStream(256)
myMemortStream.Write(bteRead, 128, 256)
bteArray = myMemortStream.ToArray()
Console.WriteLine(Encoding.ASCII.GetString(bteArray))
myMemortStream.Close()
myFileStream.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub

End Class

</source>

==MemortStream.Write==

<source lang="vbnet">

Imports System.IO
Imports System.Text
Imports System.Threading

Public Class Tester
Public Shared Sub Main
Dim bteRead() As Byte
Dim bteArray(256) As Byte
Dim myMemortStream As MemoryStream
Dim myFileStream As FileStream
Try
myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read)
ReDim bteRead(myFileStream.Length)
myFileStream.Read(bteRead, 0, myFileStream.Length)
myMemortStream = New MemoryStream(256)
myMemortStream.Write(bteRead, 128, 256)
bteArray = myMemortStream.ToArray()
Console.WriteLine(Encoding.ASCII.GetString(bteArray))
myMemortStream.Close()
myFileStream.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub

End Class

</source>

==MemoryStream.Read==

<source lang="vbnet">
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

</source>

==New MemoryStream==

<source lang="vbnet">

Imports System.IO
Imports System.Text
Imports System.Threading

Public Class Tester
Public Shared Sub Main
Dim bteRead() As Byte
Dim bteArray(256) As Byte
Dim myMemortStream As MemoryStream
Dim myFileStream As FileStream
Try
myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read)
ReDim bteRead(myFileStream.Length)
myFileStream.Read(bteRead, 0, myFileStream.Length)
myMemortStream = New MemoryStream(256)
myMemortStream.Write(bteRead, 128, 256)
bteArray = myMemortStream.ToArray()
Console.WriteLine(Encoding.ASCII.GetString(bteArray))
myMemortStream.Close()
myFileStream.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub

End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.IO/MemortStream - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия