[mohamedgadain61]

السلام عليكم احتاج مساعدتكم بكود يقوم بضغط حجم الصورة وظبط الطول والعرض 100 * 100 قبل حفظها بقاعدة البيانات ارجو المساعدة بالتعديل على الكود


  Dim ms As New System.IO.MemoryStream
        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
        Dim picbyte() As Byte = ms.GetBuffer

        Using Cmd As New OleDbCommand("Insert into Proudect  pic, ) Values (@pic)", conn)
            conn.Open()

            Cmd.Parameters.AddWithValue("@pic", picbyte)

            Cmd.ExecuteNonQuery()
            Cmd.Dispose()
            conn.Close()
            MsgBox("تم الحفظ", 64, "Program Name")
            Deltxt()

[]

(11-04-23, 04:48 AM)mohamedgadain61 كتب : السلام عليكم احتاج مساعدتكم بكود يقوم بضغط حجم الصورة وظبط الطول والعرض 100 * 100 قبل حفظها بقاعدة البيانات ارجو المساعدة بالتعديل على الكود


  Dim ms As New System.IO.MemoryStream
        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
        Dim picbyte() As Byte = ms.GetBuffer

        Using Cmd As New OleDbCommand("Insert into Proudect  pic, ) Values (@pic)", conn)
            conn.Open()

            Cmd.Parameters.AddWithValue("@pic", picbyte)

            Cmd.ExecuteNonQuery()
            Cmd.Dispose()
            conn.Close()
            MsgBox("تم الحفظ", 64, "Program Name")
            Deltxt()

استخدم GetThumbnailImage لتغيير حجم الصورة
استخدم ImageConverter لتحويل الصورة لبايتات

كود :

Dim img = PictureBox1.Image.GetThumbnailImage(100, 100, Function() False, IntPtr.Zero)

Dim picbyte() As Byte = New ImageConverter().ConvertTo(img, GetType(Byte()))

Using Cmd As New OleDbCommand("Insert into Proudect  pic, ) Values (@pic)", conn)
   Cmd.Parameters.AddWithValue("@pic", picbyte)

   conn.Open()
   Cmd.ExecuteNonQuery()
   conn.Close()

   MsgBox("تم الحفظ", 64, "Program Name")
   Deltxt()

[mohamedgadain61]

الله يجزاك الف خير وجعل والديك بالجنة