deepujose Ответов: 1

Как я могу сохранить bitmapimage в папке в VB.NET


Пожалуйста, помогите мне сохранить объект bitmapimage в папку...

Что я уже пробовал:

Dim myImage as new System.windows.controls.image

myImage .Source=ObjBitmapImage

Dim bf As BitmapFrame = myImage.Source

Using fs as New FileStream(filePath, FileMode.Create)
       Dim enc As New JpegBitmapEncoder
       enc.Frames.Add(bf)
       enc.Save(fs)
End Using


Но я получаю ошибку приведения объекта..

1 Ответов

Рейтинг:
12

Graeme_Grant

Вот решение аналогичного вопроса, на который я ответил в прошлом месяце:

Private Sub SaveJpgImage(source As BitmapImage, photoLocation As String)

    SaveImage(source, photoLocation, New JpegBitmapEncoder())

End Sub

Private Sub SavePngImage(source As BitmapImage, photoLocation As String)

    SaveImage(source, photoLocation, New PngBitmapEncoder())

End Sub

Private Sub SaveImage(source As BitmapImage, photoLocation As String, encoder As BitmapEncoder)

    encoder.Frames.Add(BitmapFrame.Create(source))

    Using filestream = New FileStream(photoLocation, FileMode.Create)
        encoder.Save(filestream)
    End Using

End Sub

И использовать:
SaveJpgImage(myImage, ".\cropped.jpg")

Где myImage иметь тип BitmapImage.