تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال
#1
السلام عليكم ورحمة الله وبركاته
عندي فورم يوجد به عدة بيانات من ضمنها صورة
وهي كالتالي
رقم الصورة texrbox
اسم الصورةtexrbox
تفاصيل الصورةtexrbox
الصورة  picturebox

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

وهذا كود الحفظ الذي اقوم به بحفظ البيانات

PHP كود :
Public Sub Insert_Pic_Tbl(ByVal Pic_ID AS Int32,ByVal PicName AS String,ByVal Pic_Des AS String,ByVal Pic AS PictureBox)
Dim Cmd As New SqlCommand
With Cmd
.Connection Con
.CommandType CommandType.Text
.CommandText "Insert Into Pic_Tbl (Pic_ID,PicName,Pic_Des,Pic)values(@Pic_ID,@PicName,@Pic_Des,@Pic)
.Parameters.Clear()
.Parameters.AddWithValue("
@Pic_ID", SqlDbType.Int ).Value = Pic_ID
.Parameters.AddWithValue("
@PicName", SqlDbType.varchar ).Value = PicName
.Parameters.AddWithValue("
@Pic_Des", SqlDbType.varchar ).Value = Pic_Des
Dim ms As New MemoryStream()
Dim bmpImage As New Bitmap(Pic.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("
@Pic", SqlDbType.Image)
p.Value = data
.Parameters.Add(p)
End With
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("
تم إضافة الصورة بنجاح", MsgBoxStyle.Information, "حفظ")
Cmd = Nothing
End Sub 
الرد
تم الشكر بواسطة: asemshahen5
#2
هذا كود لتحجيم الصورة
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
اشكرك ساقوم بالتجربة
الرد
تم الشكر بواسطة: asemshahen5
#4
الاستاذ هاني
بعد اذنك
برجاء بعد تجربة ا عاصم ان ترفع المثال للحاجة اليه
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
هذا الكود بالفيجوال بيزك :

PHP كود :
Public Function ResizeImageXT(InputImage As Image)As Image
    
'إعادة تحجيم الصورة حسب ماتريد لاستخدامه قبل الحفظ'
    'إذا كنت تريد تغيير الطول او العر الخاص بالصورة غير الرقم 80 الى الحجم الذي تريده'
 
   return new Bitmap(InputImage, new Size(8080))
End Function 

'كود الاستدعاء'
'عمل تحجيم للصورة حسب الحجم المطلوب'
PictureBox1.ImageResizeImageXT(Img
PHP كود :
'للحفظ و التحجيم معا'
ResizeImageXT(imgFile).Save("D:\\ImageName.Jpg"
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] فلتره البيانات في الداتا بيز حسن الجلب 4 95 29-11-20, 12:47 AM
آخر رد: Anas Mahmoud
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 728 16-11-20, 12:10 AM
آخر رد: sherf
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 203 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 158 08-11-20, 12:17 AM
آخر رد: برحوت
  مشكلة حفظ البيانات الموجودة في اداة listview في قاعدة بيانات SQL shado1796 7 2,111 07-11-20, 02:47 PM
آخر رد: sherf
  هل استطيع الاتصال بقاعدة بيانات Access موجودة على سيرفر خارجي mohamedgadain61 4 239 05-11-20, 05:24 PM
آخر رد: kiki
  كود حفظ الصورة1 والبياانات في قاعده البيانات khowla.goma 14 538 04-11-20, 05:36 AM
آخر رد: kiki
  عرض محتويات الكومبوبوكس حسب ترتيبها في قاعدة البيانات جيولوجي مبتدئ 6 240 02-11-20, 08:36 PM
آخر رد: جيولوجي مبتدئ
  عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql khowla.goma 1 211 02-11-20, 02:52 AM
آخر رد: اسامه الهرماوي
  [VB.NET] برنامج اقساط على الفجوال بيسك 2010 وقاعده بيانات سيكوال سيرفر 2008 shawky ahmed 2 444 31-10-20, 06:03 PM
آخر رد: kebboud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم