Сохранение рисунка в Base64

[-=TsA=-]

Вроде все правильно, но уже второй день не могу решить проблему:

Код: Выделить всё

    Private Function OpenPicture() As String
        Dim Memory As New System.IO.MemoryStream()
        Dim Base64 As String = ""
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Графические файлы|*.jpg;*.png|Все файлы (*.*)|*.*"
            .ShowDialog()
        End With
        If Len(OpenFileDialog1.SafeFileName) > 0 Then
            PictureBox1.Load(OpenFileDialog1.FileName)
            PictureBox1.Image.Save(Memory, Imaging.ImageFormat.Jpeg)
            Base64 = System.Convert.ToBase64String(Memory.ToArray)
            Memory.Close()
            Memory = Nothing
        End If
        OpenPicture = Base64
    End Function


Что здесь не так?

[Joo]

Вот так:

Код: Выделить всё

    Private Function OpenPicture() As String
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Графические файлы|*.jpg;*.png|Все файлы (*.*)|*.*"
            .ShowDialog()
        End With
        If IO.File.Exists(OpenFileDialog1.FileName) Then
            Return System.Convert.ToBase64String(IO.File.ReadAllBytes(OpenFileDialog1.FileName))
        Else
            Return ""
        End If
    End Function


[MIT]

На самом деле в коде

Код: Выделить всё

PictureBox1.Load(OpenFileDialog1.FileName)

может быть потаенный смысл (правда тут кое-чего не хватает).

[Joo]

На самом деле в коде

Код: Выделить всё

PictureBox1.Load(OpenFileDialog1.FileName)

может быть потаенный смысл (правда тут кое-чего не хватает).

Какой к черту смысл? Смысл в заголовке темы "Сохранение рисунка в Base64", загрузка в пикчер бокс к этому не имеет не какого отношения.

[MIT]

Во-первых: не все картинка, что джипег (не хватает обработчика ошибок)
Во-вторых: картинка зачем-то грузиться в PictureBox; предлагаешь еще раз прочитать файл для этого?

[-=TsA=-]

Во-первых: не все картинка, что джипег (не хватает обработчика ошибок)
Во-вторых: картинка зачем-то грузиться в PictureBox; предлагаешь еще раз прочитать файл для этого?

1. Ну это упрощенный код, в тесте гарантировано используется картинка
2. Картинка грузится в PictureBox, там мы ее слегка редактируем и потом сохраняем в Base64. Здесь же для устранения всех возможных наводок от внешних (не относящихся к делу) обработок, они удалены.

[Joo]

Во-первых: не все картинка, что джипег (не хватает обработчика ошибок)

Да ну?! А я думал это так.
Я предложил вариант получения Base64 из картинки. Ошибки пусть обрабатывает автор, я не претендовал на полный алгоритм.

Во-вторых: картинка зачем-то грузиться в PictureBox; предлагаешь еще раз прочитать файл для этого?

Давай не будем строить предположений, автор скажет если ему еще что-то нужно.
Если и нужно загрузить в пикчер бокс, то лучше её еще раз загрузить, чем делать save в память и оттуда получать бинарный массив.

Пока писал пост автор отозвался.

Картинка грузится в PictureBox, там мы ее слегка редактируем и потом сохраняем в Base64

Вот об этом нужно было сообщать сразу! Хотя бы между загрузкой картинки в пикчер бокс и её сохранение, написал в комментах.

[MIT]

Предлагаю использовать для этого супер технологию картина=неуправляемый массив. Тогда и редактировать просто и доступ к массиву есть (для конвертации в 64).

Пока писал пост Joo отозвался.

Да ну?! А я думал это так.

Переименую любой экзэшник в .jpg и попробуй открыть такую картинку в PictureBox.

[-=TsA=-]

Предлагаю использовать для этого супер технологию картина=неуправляемый массив. Тогда и редактировать просто и доступ к массиву есть (для конвертации в 64).

Это как? Код пожалуйста в студию

[MIT]

Только сначала скажи: что тебе необходимо от PictureBox`а? Только отображение картинки в нем?

[-=TsA=-]

Только сначала скажи: что тебе необходимо от PictureBox`а? Только отображение картинки в нем?

Давай для начала ограничимся отображением

[MIT]

Помниться в начале этого года я, Joo и еще несколько человек решили организовать свой форум. Однако их энтузиазм быстро закончился, а у меня просто нет возможности поддерживать форум в одиночку... Ну да ладно, не до лирики. В качестве материала для сайта я написал пару статей, одна из которых посвящена работе с памятью и изображениями, вот она: GDIp: Слои (Основа). На ее основе у меня лежит куча наработок (в т.ч. несколько игр), даже материал для форума был набран, но...
Короче говоря, надеюсь пригодиться, если что - спрашивай.

[Joo]

Переименую любой экзэшник в .jpg и попробуй открыть такую картинку в PictureBox.

Да я прикалываюсь. Я же сказал что обработкой ошибок пусть автор занимается.

К стати, этот код:

Код: Выделить всё

    Private Function OpenPicture() As String
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Графические файлы|*.jpg;*.png|Все файлы (*.*)|*.*"
            .ShowDialog()
        End With
        If IO.File.Exists(OpenFileDialog1.FileName) Then
            PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
            'Махинации с изображением
            Dim ms As New IO.MemoryStream
            PictureBox1.Image.Save(ms, Imaging.ImageFormat.Png)
            Return System.Convert.ToBase64String(ms.ToArray)
        Else
            Return ""
        End If
    End Function

Вполне работоспособен!

Можно конечно сделать как предлагает MIT, способ довольно хорош, но придется поработать головой.

[-=TsA=-]

Переименую любой экзэшник в .jpg и попробуй открыть такую картинку в PictureBox.

Да я прикалываюсь. Я же сказал что обработкой ошибок пусть автор занимается.

К стати, этот код:

Код: Выделить всё

    Private Function OpenPicture() As String
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Графические файлы|*.jpg;*.png|Все файлы (*.*)|*.*"
            .ShowDialog()
        End With
        If IO.File.Exists(OpenFileDialog1.FileName) Then
            PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
            'Махинации с изображением
            Dim ms As New IO.MemoryStream
            PictureBox1.Image.Save(ms, Imaging.ImageFormat.Png)
            Return System.Convert.ToBase64String(ms.ToArray)
        Else
            Return ""
        End If
    End Function

Вполне работоспособен!

Можно конечно сделать как предлагает MIT, способ довольно хорош, но придется поработать головой.

Пасиб, все работает.

[Joo]

Не за что