24-10-20, 08:28 AM
(24-10-20, 02:15 AM)sofiane-phy كتب : ممكن تصحيح الكوداخي الكريم
كود :
'************************كود فك تشفير الصورة****************************
If IsDBNull(DR!ItemPicture) = False Then
Dim imgByteArray() As Byte
imgByteArray = CType(DR!ItemPicture, Byte())
Dim Stream As New MemoryStream(imgByteArray)
Dim bmp As New Bitmap(Stream)
ItemPicture.Image = Image.FromStream(Stream)
Stream.Close()
End If
Else
If OpenFileDialog1.FileName <> "" Then
Dim imgBYteArray() As Byte
Dim Stream As New MemoryStream
ItemPicture.Image.Save(Stream, ImageFormat.Jpeg)
imgBYteArray = Stream.ToArray()
Stream.Close()
DR!ItemPicture = imgBYteArray
End If
'*************************************
ان لم اخطيء فان الاجرائين اللذين كتبتهما تلو بعض غير مناسبة!
الاول يعين صورة مخزنة في القاعدة في مربع صورة والاخر يقوم بعملية عكسية اي يحفظ الصورة من مربع الصورة للجدول.
كونهم تلو بعض هذه هي المشكلة.
أم ان المطلوب شيء آخر.