VB如何读取一个图片，保存到字节数组中

Posted 2023-05-10

如题我想问下，如何读取一个图片或者一个任意格式的文件保存到一个动态的 字节数组中

VB6.0可以Open 语句来打开需要读到字节数组的图片文件，并用Get 语句将一个已打开的磁盘文件读入一个变量之中。

Open 语句，能够对文件输入/输出 (I/O)。



Get 语句，将一个已打开的磁盘文件读入一个变量之中。



实例代码，获取任何文件储存在字节数组aryContent中：

Private Sub Command1_Click()


    Dim aryContent() As Byte

    CommonDialog1.CancelError = True \' 设置“CancelError”为 True

    On Error GoTo ErrHandler

    CommonDialog1.Flags = cdlOFNHideReadOnly    \' 设置标志

    \' 设置过滤器

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.FilterIndex = 2    \' 指定缺省的过滤器

    CommonDialog1.ShowOpen    \' 显示“打开”对话框

    \' 显示选定文件的名字

    \'MsgBox CommonDialog1.FileName

    Open CommonDialog1.FileName For Binary As #1

        ReDim aryContent(LOF(1) - 1)

        Get #1, , aryContent

    Close #1

    Exit Sub

ErrHandler:

    \' 用户按了“取消”按钮

    Exit Sub

End Sub

参考技术A Sub ChangePictureData(PictureByteData() As Byte, PicturePath As String)
'使用方法：在调用此过程前，需提前定义好存放二进制数据的byte数组。
 Dim FileLength As Long '定义字节长度
 Dim SourceFile As Long '定义只读文件号
 
 SourceFile = FreeFile()
 Open Trim(PicturePath) For Binary Access Read As SourceFile
 FileLength = LOF(SourceFile)
  
 If FileLength = 0 Then
    Close SourceFile
 Else
    ReDim PictureByteData(FileLength)  '重新定义数据块的大小
    Get SourceFile, , PictureByteData()  '读到内存块中
    Close SourceFile '关闭源文件
 End If
End Sub

本回答被提问者采纳

IO流那一块的怎么把一个图片的内容读取到一个字节数组中去

1.定义一个字节数组，将其输出到屏幕上。2.将一个图片的内容读取到字节数组中。 请高手帮忙实现下，谢谢、、 因为积分不多了，就只能给五分啦、、见谅啊！

参考技术A 先用FileInputStream从这个图片读取输入流，然后包装成字节数组。这样就可以了！ 参考技术B FileInputStream fileIn = new FileInputStream(path);FileOutputStream fileOut = new FileOutputStream(newPath);BufferedOutputStream bufOut = new BufferedOutputStream(fileOut);
byte[] buf = new byte[512];
while (fileBuff.read(buf) != -1)
bufOut.write(buf);