Преобразование типа переменных

@chiribas · Регистрация: 06.05.2011

Author24 — интернет-сервис помощи студентам

Как закодировать переменную в byte и обратно, а если точнее в bitmap?

@baccer · 22.11.2011, 01:07

в bitmap

VB.NET

Public Function GetImagetobyte(ByVal bytes As Byte()) As Bitmap
        Return CType(Bitmap.FromStream(New IO.MemoryStream()), Bitmap)
    End Function
в byte
Public Function GetByteArrayFromImage(ByVal img As Bitmap) As Byte()
        Dim ms As New System.IO.MemoryStream
        img.Save(ms, Imaging.ImageFormat.Bmp)
        Dim outBytes(CInt(ms.Length - 1)) As Byte
        ms.Seek(0, System.IO.SeekOrigin.Begin)
        ms.Read(outBytes, 0, CInt(ms.Length))
        Return outBytes
    End Function

Комментарий модератора

Больше никогда так не оформляйте код!

@chiribas · 22.11.2011, 19:42 **[ТС]**

Все работает!
Но когда я эти данные отправляю с клиента на сервер с помощью AxWinsock,

VB.NET

Dim pic As New Bitmap(100, 100)
Dim G As Graphics
G = Graphics.FromImage(pic)
G.DrawEllipse(Pens.Black, 0, 0, 100, 100)
AxWinsock1.SendData(GetByteArrayFromImage(pic))

на сервере, когда они принимаются

VB.NET

Dim G As Graphics
G = Me.PictureBox1.CreateGraphics
Dim buff() As Byte
AxWinsock1.GetData(buff)
G.DrawImage(GetImagetobyte(buff), 0, 0)

VB пишет на строчке, функции GetImagetobyte() выдает ошибку "Недопустимый параметр".
Но если я конвертирую не bitmap, а image.fromimage("Путь"), то все работает.
Как мне сделать так, чтобы bitmap тоже можно было отправлять?

@chiribas 12 / 12 / 0 Регистрация: 06.05.2011 Сообщений: 250
		1
	Преобразование типа переменных 21.11.2011, 22:27. Показов 1698. Ответов 2 Метки нет (Все метки) Как закодировать переменную в byte и обратно, а если точнее в bitmap? 0

	22.11.2011, 19:42