المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
سعود كتب :اعمل على تجهيز مثال انتظرني ولاتذهب
صدقني مواصل معك ههههه ولن اذهب
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
shado1796 كتب :[b][COLOR="#FF0000"]
اخي مشكلتي ليست مع الكود انما انت قلت لي عن تغيير نوع حقل الصورة ،، سئلتك ما هو الافضل نوع varbinary(max) ام Image لان بعضهم نصحني varbinary(max) وانت تنصحني ب Image هل جربتها وهل هي الافضل ؟ وهل لها عيوب ؟
الف شكر لك ..
نعم مجربها وهي ممتازة، وليس لها عبوب لأنها مخصصة للصور.....
بالمناسبة استبدل كود تحويل الصورة لبايت السابق بهذا الكود كم أجل أن يعمل معك الكود الذي كتبته لك قبل قليل
PHP كود :
#Region " imgToByte " Public Function imgToByte(ByVal image As Image) As Object Dim imgByte As Byte() = Nothing Dim imgStream As New IO.MemoryStream() On Error Resume Next image.Save(imgStream, Imaging.ImageFormat.Png) On Error GoTo 0 Return imgStream.ToArray() End Function #End Region
السلام عليكم ورحمة الله وبركاته
[/b][/COLOR]
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
نعم مجربها وهي ممتازة، وليس لها عبوب لأنها مخصصة للصور.....
بالمناسبة استبدل كود تحويل الصورة لبايت السابق بهذا الكود كم أجل أن يعمل معك الكود الذي كتبته لك قبل قليل
PHP كود :
#Region " imgToByte " Public Function imgToByte(ByVal image As Image) As Object Dim imgByte As Byte() = Nothing Dim imgStream As New IO.MemoryStream() On Error Resume Next image.Save(imgStream, Imaging.ImageFormat.Png) On Error GoTo 0 Return imgStream.ToArray() End Function #End Region
السلام عليكم ورحمة الله وبركاته
جاري التجربة ،،، بس بغيت اسئلك هل لها حجم خاص يعني اذا كانت الصوره حجمها كبير ،، لا يقبل حل Image ؟
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
اخي او رائد غيرت النوع الى Image وفعلت في قاعدة البيانات Allow Null وغيرت الاكواد واضفت هذا الكود الذي اعطيتني اياه - بعد التعديل
كود :
cm.Parameters.AddWithValue("@Img1U1", IIf(IsNothing(Me.PictureBox2.Image), imgToByte2(New Bitmap(1, 1)), imgToByte2(Me.PictureBox2.Image)))
cm.Parameters.AddWithValue("@Img2U1", IIf(IsNothing(Me.PictureBox3.Image), imgToByte3(New Bitmap(1, 1)), imgToByte3(Me.PictureBox3.Image)))
cm.Parameters.AddWithValue("@Img3U1", IIf(IsNothing(Me.PictureBox4.Image), imgToByte4(New Bitmap(1, 1)), imgToByte4(Me.PictureBox4.Image)))
cm.Parameters.AddWithValue("@Img4U1", IIf(IsNothing(Me.PictureBox5.Image), imgToByte5(New Bitmap(1, 1)), imgToByte5(Me.PictureBox5.Image)))
cm.Parameters.AddWithValue("@Img1U2", IIf(IsNothing(Me.PictureBox6.Image), imgToByte6(New Bitmap(1, 1)), imgToByte6(Me.PictureBox6.Image)))
cm.Parameters.AddWithValue("@Img2U2", IIf(IsNothing(Me.PictureBox7.Image), imgToByte7(New Bitmap(1, 1)), imgToByte7(Me.PictureBox7.Image)))
cm.Parameters.AddWithValue("@Img3U2", IIf(IsNothing(Me.PictureBox8.Image), imgToByte8(New Bitmap(1, 1)), imgToByte8(Me.PictureBox8.Image)))
cm.Parameters.AddWithValue("@Img4U2", IIf(IsNothing(Me.PictureBox9.Image), imgToByte9(New Bitmap(1, 1)), imgToByte9(Me.PictureBox9.Image)))
cm.Parameters.AddWithValue("@Img1U3", IIf(IsNothing(Me.PictureBox10.Image), imgToByte10(New Bitmap(1, 1)), imgToByte10(Me.PictureBox10.Image)))
cm.Parameters.AddWithValue("@Img2U3", IIf(IsNothing(Me.PictureBox11.Image), imgToByte11(New Bitmap(1, 1)), imgToByte11(Me.PictureBox11.Image)))
cm.Parameters.AddWithValue("@Img3U3", IIf(IsNothing(Me.PictureBox12.Image), imgToByte12(New Bitmap(1, 1)), imgToByte12(Me.PictureBox12.Image)))
cm.Parameters.AddWithValue("@Img4U3", IIf(IsNothing(Me.PictureBox13.Image), imgToByte13(New Bitmap(1, 1)), imgToByte13(Me.PictureBox13.Image)))
ولم يفلح :confused:
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
ما هي المشكلة، وما هي رسالة الخطأ بالتفصيل؟ لأنها تعمل لدي بشكل صحيح.
السلام عليكم ورحمة الله وبركاته
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
ما هي قصة
imgToByte2
imgToByte3
imgToByte4
المعروف أنه imgToByte فقط
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
ما هي المشكلة، وما هي رسالة الخطأ بالتفصيل؟ لأنها تعمل لدي بشكل صحيح.
السلام عليكم ورحمة الله وبركاته
هذه المشكلة التي تظهرلي ،، نفسها :confused:
http://im34.gulfup.com/yHIGB.png
مع العلم اني لم انسى On Error Resume Next
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
وضح لي المشكلة في أي سطر من الكود
السلام عليكم ورحمة الله وبركاته
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
عندك أمر المفروض يكون بواسطة New ولكنك عرفته بدونها
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
عندك أمر المفروض يكون بواسطة New ولكنك عرفته بدونها
السلام عليكم ورحمة الله وبركاته
اووه صح ،، اسف اخ لم انتبه ،،، جار التجربه
|