Hola aforados:
tengo el giguiente codigo con el que hago upload de una imagen y la salvo en forma de imagen y en forma de thumbnail.
Sub Upload_Click(ByVal source As Object, ByVal e As EventArgs)
If TextBox1.Text = "" Or Archivo.Value = "" Then
message.Visible = True
message.Text = "ERROR: Ningun campo puede estar en blanco"
Else
message.Text = ""
Dim Imagen As System.Drawing.Image
Dim savePath As String = "./ImagenesTG/"
Dim savemini As String = "./ImagenesTP/"
Dim NombreArchivo As String = Path.GetFileName(Archivo.PostedFile.FileName)
Dim mini As String = "mini" + Path.GetFileName(Archivo.PostedFile.FileName)
Dim tipo As String = Path.GetFileName(Archivo.PostedFile.ContentType)
Dim tamaño As Integer = Path.GetFileName(Archivo.PostedFile.ContentLength)
Dim titulo As String = TextBox1.Text
message.Text = tipo
If tipo = "pjpeg" Then
Imagen = System.Drawing.Image.FromStream(Archivo.PostedFile .InputStream)
Imagen.Save(Server.MapPath(savePath & NombreArchivo), ImageFormat.Jpeg)
Dim Miniatura As System.Drawing.Image
Miniatura = Imagen.GetThumbnailImage(100, 100, Nothing, New IntPtr)
' Grabamos la Miniatura en disco con formato JPG
Miniatura.Save(Server.MapPath(savemini & mini), ImageFormat.Jpeg)
insertar()
message.Text = NombreArchivo & " Enviado" & " content type: " & tipo & " content length: " & tamaño.ToString()
TextBox1.Text = ""
Else
message.Text = "No es un Archivo de Imagen"
End If
End If
End Sub
Mi problema es el siguiente:
Cuando le digo
Imagen.Save(Server.MapPath(savePath & NombreArchivo), ImageFormat.Jpeg)
Me gustaria decirle de paso que se guarde con unas medidas por ejemplo 650X450 y con una resolucion de 72 pixels por inch y no se como?
Es posible ? Gracias anticipadas.
