تقييم الموضوع :
  • 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"
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص حجم قاعدة بيانات سيكوال سيرفر momani33 0 36 16-09-20, 02:22 PM
آخر رد: momani33
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 179 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 70 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  ربط قاعدة البيانات محمود احمد سعد 1 73 14-09-20, 03:49 PM
آخر رد: اسامه الهرماوي
  ربط قاعدة البيانات محمود احمد سعد 1 82 14-09-20, 03:00 PM
آخر رد: Anas Mahmoud
  حاجة غريبة بتحصل فى قاعدة البيانات mostafa nada 4 102 14-09-20, 08:41 AM
آخر رد: الوايلي
  هل الاستعلام وعرض البيانات عن طريق الكويري أسرع وأفضل new_programer 2 243 10-09-20, 04:58 PM
آخر رد: new_programer
  [VB.NET] احتاج الى كود ترحيل البيانات بنت الشام 2 141 08-09-20, 09:42 PM
آخر رد: Anas Mahmoud
  مشكلة عند حفظ البيانات في قاعدة بيانات SQL Server momani33 4 180 08-09-20, 03:44 PM
آخر رد: Hasaneen
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 369 07-09-20, 12:28 AM
آخر رد: محمد العامر

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


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