Ciao a tutti,
mi succede una cosa strana
ho fatto uno script per fare l'upload sul server di una foto (jpg) e una volta salvata viene creata la sua miniatura

lo script è il seguente:

Dim filePath As String = Request.PhysicalApplicationPath
filePath = filePath & "fotoeventi\"


Dim strNomeFoto As String = TextBox_Nome_Foto.Text & ".jpg"
Dim intDimensioneFile As Integer = FileUpload1.PostedFile.ContentLength


FileUpload1.SaveAs(filePath & "original_" & strNomeFoto)

Dim objFoto As System.Drawing.Bitmap
Dim objGraphics As System.Drawing.Image

'recupero le dimensioni della foto originale
objFoto = New Drawing.Bitmap(filePath & "original_" & strNomeFoto)
Dim intLarghezzaFoto As Integer = objFoto.Width
Dim intAltezzaFoto As Integer = objFoto.Height

'creo la miniuatura
Dim intDimensioniMassimeFotoPiccola As Integer = 280 'dimensioni massime della miniatura
Dim intNuovaLarghezzaFotoPiccola As Integer
Dim intNuovaAltezzaFotoPiccola As Integer

If intLarghezzaFoto > intAltezzaFoto Then
intNuovaLarghezzaFotoPiccola = intDimensioniMassimeFotoPiccola
intNuovaAltezzaFotoPiccola = (intAltezzaFoto * intDimensioniMassimeFotoPiccola) / intLarghezzaFoto
ElseIf intAltezzaFoto > intLarghezzaFoto Then
intNuovaLarghezzaFotoPiccola = (intLarghezzaFoto * intDimensioniMassimeFotoPiccola) / intAltezzaFoto
intNuovaAltezzaFotoPiccola = intDimensioniMassimeFotoPiccola
Else
intNuovaLarghezzaFotoPiccola = intDimensioniMassimeFotoPiccola
intNuovaAltezzaFotoPiccola = intDimensioniMassimeFotoPiccola
End If

objGraphics = objFoto.GetThumbnailImage(intNuovaLarghezzaFotoPiccola, intNuovaAltezzaFotoPiccola, Nothing, IntPtr.Zero)

'salvo la miniatura
objGraphics.Save(filePath & "small_" & strNomeFoto)



lo script funziona la foto originale viene caricata e la miniatura viene creata... ma... cosa assurda... la miniatura pesa (in KB) di più della foto originale!!!

ma com'è possibile ???

Dove sbaglio ?



Grazie a tutti!