resize

[davidspy]

ciao, sono a secco di asp.net non so dove mettere le mani per la qualita dell'immagine per il tumbnail automatico ecco il codice

<%@ Import Namespace="System.Drawing"%> 
<%@ Import Namespace="System.Drawing.Imaging"%> 
<SCRIPT  RUNAT="SERVER"> 
Sub Page_Load() 

   Dim width as Integer = 0 
   Dim height as Integer = 0 

   try 
     ' ricava dimensioni dalla richiesta 
     if not Request.QueryString("width") is Nothing Then 
     width = Int32.Parse(Request.QueryString("width")) 
     End if 
     if not Request.QueryString("height") is Nothing Then 
     height = Int32.Parse(Request.QueryString("height")) 
     End if 

   catch ex as Exception 
   End Try 

   ' ridimensiona l'immagine se specificato 
   Dim immagine as String = Server.MapPath(Request("img")) 
   if Not System.Io.File.Exists(immagine) then 
     immagine = Server.MapPath("/immagini/nondisponibile.jpg") 
   end if 
   
   call ImgRedim(immagine, width, height) 

   ' fermo il resto della risposta 
   Response.End() 
End Sub 

' Funzione di redim 
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer) 
   Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap) 

   ' c'è da ridimensionare? 
   if width>0 or height>0 then 
     ' se è specificata solo la larghezza, calcola l'altezza 
     if height = 0 Then 
     height = Convert.ToInt32(width / bmp.Width * bmp.Height) 
     End if 

     ' (e viceversa) 
     if width = 0 Then 
     width = Convert.ToInt32(height / bmp.Height * bmp.Width) 
     End if 

     ' creo la Thumbnail con i parametri impostati 
     Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height) 

     ' salvo sullo stream di output 
     if immagine.EndsWith(".jpg") Then 
     miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg) 
     else 
     miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif) 
     end if 

     ' pulizia 
     miniaturabmp.Dispose() 
   else 
     ' salvo sullo stream di output 
     if immagine.EndsWith(".jpg") Then 
     bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg) 
     else 
     bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif) 
     end if 
   end if 

   ' pulizia finale 
   bmp.Dispose() 

End Sub 

</SCRIPT>


</p>