پایین آمدن کیفیت عکس پس از کوچک کردن سایز

[maryam_272]

با سلام
من توی یکی از سایتهام از کدهای زیر برای thumbnial درست کردن و ذخیره عکس استفاده کردم اما عکسهای دارای پسوند .jpeg به شدت کیفیتشان پایین می آید آیا راهی وجود داره که هر عکس اولا با همون پسوند ذخیره بشه دوما کیفیتش هم تغییر نکنه
Public Sub SabtThumbnailAks(ByVal Image1 As Drawing.Image, ByRef Width1 As Integer, ByRef Height1 As Integer, ByVal WidthAks As Integer, ByVal HeightAks As Integer, ByVal MasirAks As String, Optional ByVal IsWidthHight As Boolean = True, Optional ByVal FaghatHight As Boolean = False, Optional ByVal FaghatWidth As Boolean = False)
If WidthAks <> 0 And HeightAks Then
If IsWidthHight = True Then
If (Width1 >= Height1) Then
If (Width1 > WidthAks) Then
Height1 = WidthAks * Height1 / Width1
Width1 = WidthAks
End If
If (Height1 > HeightAks) Then
Width1 = HeightAks * Width1 / Height1
Height1 = HeightAks
End If
Else
If (Height1 >= Width1) Then
If (Height1 > HeightAks) Then
Width1 = HeightAks * Width1 / Height1
Height1 = HeightAks
End If
If (Width1 > WidthAks) Then
Height1 = WidthAks * Height1 / Width1
Width1 = WidthAks
End If

End If
End If
Else
If FaghatHight = True Then
If (Height1 > HeightAks) Then
Width1 = HeightAks * Width1 / Height1
Height1 = HeightAks
End If
End If
If FaghatWidth = True Then
If (Width1 > WidthAks) Then
Height1 = WidthAks * Height1 / Width1
Width1 = WidthAks
End If
End If
End If
End If
Image1 = Image1.GetThumbnailImage(Width1, Height1, Nothing, IntPtr.Zero)
Image1.Save(HttpContext.Current.Server.MapPath(Mas irAks))

End Sub



ممنون میشم اگه جواب سوالم رو بدید چون برام خیلی حیاتی هست
در ضمن جستجو کردم اما بیشتر گیج شدم

[hjran abdpor]

با سلام .دوستان تو همین انجمن توابع زیادی را معرفی کردن که کیفیت عکس را پاین نمیارن ، دقیقا یادم نیست لینک بدم ولی سرچ کنید حتما به نتیجه می رسید.

[Saman Hashemi]

به اینجا (http://weblogs.asp.net/gunnarpeipman/archive/2009/04/02/resizing-images-without-loss-of-quality.aspx)مراجعه کنید...!