Non cambia la "Quality" di una immagine

[kicco]

 

Codice: [Seleziona]

Public Sub BT_Image_Click()
  
  Dim pict As Picture
  
  pict = Desktop.Screenshot(MapView1.ScreenX, MapView1.ScreenY, MapView1.Width, MapView1.Height)
  
  ' pict.Save("/tmp/immagine.png", 100)
  ' pict.Save("~/Scrivania/mappa_sirene.png", 100)
  pict.Save("~/Scrivania/mappa_sirene.png", 50)
  
End

Un pulsante per stampare l'immagine di una cartina caricata nella MapView.
Cambiando il valore Quality il risultato non cambia, cioè le grandezza del file prodotto è sempre la stessa.
Cosa non ho capito?
 

[Gianluigi]

Credo che sia come al solito con le Picture per ottenere cambiamenti devi agire su un'immagine cioè Image

Più tardi, appena posso faccio una prova. 

  

P.S. Come pensavo, così funziona (il range con le qt è fra -1:100):

Codice: [Seleziona]

pict.Image.Save("~/Scrivania/mappa_sirene.png", 50)

[kicco]

 
Grazie Gianluigi, ho provato e funziona, anche se in modo un po' strano.
Da 100 a 90 mi produce un file da 2.4MB, da 80 a 50 uno da 1.1MB da 40 in giù è sempre da 1.0MB.
Forse dipende dal fatto che l'immagine in questione sia una cartina? 
In effetti speravo di avere un po' più di dinamica!
 
 

[Gianluigi]

 
Di queste cose ne capisco poco, comunque se inserisci -1 (o niente parametro) ottieni l'immagine compressa normalmente in base all'estensione.
Forse png, ma lo dico senza cognizione di causa, è la meno adatta a fare prove essendo particolare, hai mai provato a lavorare direttamente su di un'immagine png in Gimp?
Alla fine dei cambiamenti e dopo aver compresso, ti ritrovi con immagini molto meno compresse che di partenza.
Se provi con jpeg forse ottieni quello che vai cercando.

 

[kicco]

 

Se provi con jpeg forse ottieni quello che vai cercando.

Confermo, con .JPG funziona!
Grazie Capitano!