Передача фотографий в XML или ему подобном

[Antonariy]

У меня все штатно.

[Rojohn]

Это как штатно? Я запускаю, нажимаю кнопку и выводится перекодированное значение NULL вместо нормальной цифровой записи...

[Antonariy]

Не знаю, что такое "перекодированное значение NULL" и нормальная цифровая запись, но у меня выводится два вопросительных знака и квадратик. И в принципе это правильно. Превые пять байтов пытаются быть расшифрованными как двухбайтные символы, а шестой, 0, воcпринимается как окончание null-terminated string.

[Rojohn]

Тогда получается, что первый и второй способы по-разному читают одну и ту же картинку. А если вывести значение не в MsgBox, а в debug.print, то появится не квадратик, а куча знаков вопроса. Тогда как первый вариант (с массивом) даёт разумные РАЗНЫЕ цифры. А если ещё "продебажить" по тексту, то можно увидеть, что st.Read=Null (картинка попросту не прочлась из st). Или st.Read показывает только окончание null-terminated string?

[-=TsA=-]

Прости Господь за некропостинг, но вдруг кому то еще понадобится.

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


    Private Function BitmapFromBase64(ByVal Base64 As String) As System.Drawing.Bitmap
        Dim oBitmap As System.Drawing.Bitmap
        Dim Memory As New System.IO.MemoryStream(Convert.FromBase64String(Base64))
        oBitmap = New System.Drawing.Bitmap(Memory)
        Memory.Close()
        Memory = Nothing
        Return oBitmap
    End Function

    Private Function BitmapToBase64(ByVal Picture As System.Drawing.Bitmap) As String
        Dim Base64 As String
        Dim Memory As New System.IO.MemoryStream()
        Picture.Save(Memory, Imaging.ImageFormat.Jpeg)
        BitmapToBase64= System.Convert.ToBase64String(Memory.ToArray)
        Memory.Close()
        Memory = Nothing
    End Function



[Rojohn]

Да, пока не нужно и проверять пока некогда, но всё равно спасибо!