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
'*************************************
ان لم اخطيء فان الاجرائين اللذين كتبتهما تلو بعض غير مناسبة!
الاول يعين صورة مخزنة في القاعدة في مربع صورة والاخر يقوم بعملية عكسية اي يحفظ الصورة من مربع الصورة للجدول.
كونهم تلو بعض هذه هي المشكلة.
أم ان المطلوب شيء آخر.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
