+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال (/showthread.php?tid=33784)
تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال - هاني المومني - 13-03-20
السلام عليكم ورحمة الله وبركاته
عندي فورم يوجد به عدة بيانات من ضمنها صورة
وهي كالتالي
رقم الصورة 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
RE: تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال - asemshahen5 - 13-03-20
هذا كود لتحجيم الصورة
RE: تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال - هاني المومني - 13-03-20
اشكرك ساقوم بالتجربة
RE: تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال - atefkhalf2004 - 13-03-20
الاستاذ هاني
بعد اذنك
برجاء بعد تجربة ا عاصم ان ترفع المثال للحاجة اليه
RE: تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال - asemshahen5 - 15-03-20
هذا الكود بالفيجوال بيزك :
PHP كود :
Public Function ResizeImageXT(InputImage As Image)As Image
'إعادة تحجيم الصورة حسب ماتريد لاستخدامه قبل الحفظ'
'إذا كنت تريد تغيير الطول او العر الخاص بالصورة غير الرقم 80 الى الحجم الذي تريده'
return new Bitmap(InputImage, new Size(80, 80))
End Function
'كود الاستدعاء'
'عمل تحجيم للصورة حسب الحجم المطلوب'
PictureBox1.Image= ResizeImageXT(Img)
PHP كود :
'للحفظ و التحجيم معا'
ResizeImageXT(imgFile).Save("D:\\ImageName.Jpg")