.Net中读写二进制流文件的通用函数。

  这是我写的在doNet下两个很实用的函数进行文件的二进制转换,可以应用于将文件存储到数据库中,或者通过二进制流传送文件,希望可以给大家带来帮助。

  '将文件以二进制流形式读入Byte数组
    '=============================================
    Public Function RetFile() As Byte()
        Dim BA() As Byte
        Dim FS As New IO.FileStream("C:/hello.doc", IO.FileMode.Open)

        'Dim MS As New IO.MemoryStream
        Dim FR As New IO.BinaryReader(FS)
        BA = FR.ReadBytes(FS.Length)
        FR.Close()
        FS.Close()
        Return BA
    End Function


    '将Byte数组写入文件
    '=============================================
    Private Sub SaveNewFile(ByVal ibuf() As Byte)
        Dim FS As New IO.FileStream("C:/HelloEric.doc", IO.FileMode.CreateNew)
        ' Create the writer for data.
        Dim w As New IO.BinaryWriter(FS)
        ' Write data to Test.data.
        w.Write(ibuf)
        w.Close()
        FS.Close()

    End Sub

没有更多推荐了,返回首页