在VB.Net中将MemoryStream转换为字节数组

时间:2014-04-02 07:21:45

标签: vb.net silverlight bytearray richedit-control

我正在尝试将从richeditDocument生成的内存流转换为字节数组。代码如下:

Public Sub saveAsTemplate_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim ms As MemoryStream = New MemoryStream()
    richEditControl1.SaveDocument(ms, DocumentFormat.Rtf)
    GetStreamAsByteArray(ms)

    MessageBox.Show("save")

End Sub

Private Function GetStreamAsByteArray(ByVal stream As MemoryStream) As Byte()

    Dim streamLength As Integer = Convert.ToInt32(stream.Length)

    Dim fileData As Byte() = New Byte(streamLength) {}

    ' Read the file into a byte array
    stream.Read(fileData, 0, streamLength)
    stream.Flush()
    stream.Close()

    Return fileData

End Function

生成流,因为我可以获得流长度,但最终的咬合数组只包含0,使其无效。我怎样才能获得正确的字节数组?

2 个答案:

答案 0 :(得分:7)

如果要从内存流中读取,则需要确保流的当前位置在开头。

此外,您使用的Read方法错误。它返回读取的字节数,可能小于请求的字节数。要正确使用它,您需要循环,直到获得流中的所有字节。

但是,您应该使用ToArray方法将流中的所有内容作为字节数组获取:

Private Function GetStreamAsByteArray(ByVal stream As MemoryStream) As Byte()

  Return stream.ToArray()

End Function

答案 1 :(得分:0)

'这适用于100mb .txt文件

    Public Function read()

    Dim tmpdb(0) As String

    Try

        tmpdb = IO.File.ReadAllLines("C:\Users\Admin01\Desktop\TmpTxt.txt")
        FileOpen(1, "C:\Users\Admin01\Desktop\IRSH_TEST_DB.jrdb", OpenMode.Binary, OpenAccess.Write)
        FilePut(1, tmpdb)
        FileClose(1)

        MessageBox.Show("SUCCES!")

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

End Function