31-05-14, 06:22 PM
31-05-14, 09:51 PM
لازم اخي الكريم تحول الصوره الى بايت
اطتب الداله هذي
بعدين استعدي الدله معا مسار الصوره وتنحفظ
اطتب الداله هذي
كود :
Public Function conv(ByVal image As Image) As Byte()
Dim meo As New MemoryStream
image.Save(meo, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim mbyte(meo.Length - 1) As Byte
meo.Position = 0
meo.Read(mbyte, 0, meo.Length)
Return mbyte
End Function