这是我写的在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