בעיה בשמירת קובץ ...
יצרתי סקריפט שטוען קובץ JPEG מוגדר מראש ושומר אותו גם כ-JPEG באיכות מקסימלית , אך למרות זאת ה-Jpeg שמוצג נראה פחות חד מהמקור (למרות שלא עשיתי עליו שום שינויים , למה זה קורה ??? איזה מאפיין חסר לי ? הנה הקוד :
יצרתי סקריפט שטוען קובץ JPEG מוגדר מראש ושומר אותו גם כ-JPEG באיכות מקסימלית , אך למרות זאת ה-Jpeg שמוצג נראה פחות חד מהמקור (למרות שלא עשיתי עליו שום שינויים , למה זה קורה ??? איזה מאפיין חסר לי ? הנה הקוד :
<%@ Page Language="VB" Debug="true"%> <%@ Import namespace="System.Drawing"%> <%@ Import namespace="System.Drawing.Color"%> <%@ Import namespace="System.Drawing.Imaging"%> <script runat="server"> Sub Page_Load (obj as object, e as EventArgs) Dim objBitmap As Bitmap Dim objGraphics As Graphics objBitmap = Bitmap.FromFile(Server.MapPath("x.jpg")) objGraphics = Graphics.FromImage(objBitmap) Response.ContentType="image/JPEG" Dim myEncoderParameters As New EncoderParameters(1) Dim myEncoderParameter As New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 100) myEncoderParameters.Param(0) = myEncoderParameter Dim objImageCodecInfo() As ImageCodecInfo objImageCodecInfo = ImageCodecInfo.GetImageEncoders objBitmap.Save(Response.OutputStream, objImageCodecInfo(1),myEncoderParameters) end sub </script>