vb.net - 将原始文件转换为 .jpg 文件 VB.net

Question

我正在尝试将任何原始图片转换为 .jpegbitmap格式。同时为 .CR2 图像 23mb 文件创建对象。它抛出OutOfMemoryexception 这条线 Dim img As Bitmap = Image.FromFile(path1)。下面的代码可以帮助您理解我的问题。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dr As DialogResult = OpenFileDialog1.ShowDialog()
        If dr = DialogResult.OK Then
            path1 = OpenFileDialog1.FileName
            If Not Path.GetFileName(path1).EndsWith(".jpeg") Then
                Dim img As Bitmap = Image.FromFile(path1)
                Dim b=ConvertImageTypeToJPEG(img)
                 pb1.Image = Image.FromStram(b)
            else
            pb1.Image = Image.FromFile(path1)
            End If
        
        Else
        End If
    End Sub

    Public Function ConvertImageTypeToJPEG(Image As Bitmap) As Stream
        Dim SaveStream As New IO.MemoryStream
        Image.Save(SaveStream, ImageFormat.Jpeg)
        Return SaveStream
    End Function

我不知道我错过了什么！

在Image.FromFile文档中，OutOfMemoryException可以在以下情况下抛出 an：

该文件没有有效的图像格式。

-或者-

GDI+ 不支持文件的像素格式。

如果有人有这个问题的经验可以帮助我。

标签： vb.netimageimage-conversion