errore compressione jpg

[unreg]

Salve,

ho questo sorgente:

<script runat="server">

   Sub Page_Load()

      Dim immagine as String = Server.MapPath("foto.jpg")
	  
	  Dim width as Integer = 65
      Dim height as Integer = 65
	  Dim compressione As Integer =  40

      call ImgRedim(immagine, width, height, compressione)
      Response.End()
   
   End Sub


   Public Sub ImgRedim(immagine, width, height, compressione)
   
	  
	  Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)
	  Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
	  
	  if immagine.EndsWith(".jpg") Then
	  
	     Dim qualityEncoder As Encoder = Encoder.Quality
		 Dim quality As EncoderParameter = New EncoderParameter(qualityEncoder, compressione)

		 
		 Dim codecParams As New EncoderParameters(1)
		     codecParams.Param(0) = quality
			 
		 miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg, codecParams)
	  
	  elseif immagine.EndsWith(".gif") Then
		 
		 miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
	  
	  else
		  
		  Response.Write("Formato Non supportato")
	  
	  end if
      
	  miniaturabmp.Dispose()
	  bmp.Dispose()
	  
   End Sub
</script>

che mi genera questo errore:

BC30561: 'Encoder' è ambiguo ed è importato dagli spazi dei nomi o dai tipi 'System.Text, System.Drawing.Imaging'.

su questa riga:

Dim qualityEncoder As Encoder = Encoder.Quality

come mai ?

grazie !

[cassano]

però ti funziona vero ???forse perchè è riconosciuto come obsoleto.

[unreg]

se mi da errore, vuol dire che non funziona

cosa devo fare ?

[cassano]

prova a metterlo per esteso penso sia


System.Drawing.Imaging.encoder

[unreg]

fatto:

solo che ora ritorna l'errore:

BC30518: Risoluzione dell'overload non riuscita perché nessun 'Save' accessibile può essere chiamato con questi argomenti:

sulla riga:

miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg, codecParams)

cosa può essere ?

grazie !

<script runat="server">

   Sub Page_Load()

      Dim immagine as String = Server.MapPath("foto.jpg")
	  
	  Dim width as Integer = 80
      Dim height as Integer = 80

      call ImgRedim(immagine, width, height)
      Response.End()
   
   End Sub


   Public Sub ImgRedim(immagine, width, height)
   
	  
	  Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)
	  Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
	  
	  if immagine.EndsWith(".jpg") Then
	     
		 Dim qualityEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
		 Dim quality As System.Drawing.Imaging.EncoderParameter = New System.Drawing.Imaging.EncoderParameter(qualityEncoder, 40)

		 Dim codecParams As New System.Drawing.Imaging.EncoderParameters(1)
		     codecParams.Param(0) = quality

		 miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg, codecParams)
	  
	  elseif immagine.EndsWith(".gif") Then
		 
		 miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
	  
	  else
		  
		  Response.Write("Formato Non supportato")
	  
	  end if
      
	  miniaturabmp.Dispose()
	  bmp.Dispose()
	  
   End Sub
</script>

[cassano]

evidentemente nell'overload hai messo + argomenti di quanti lui ne aspettava.