13/03/2006, 16:26
|
 | | | Fecha de Ingreso: noviembre-2002 Ubicación: Santiago, Chile
Mensajes: 1.718
Antigüedad: 22 años, 5 meses Puntos: 16 | |
| Una función para subir imagenes y hacer thumbnails
Hola maestros... encontre esta función que me parecio interesante... pero a mi gusto le falta la validación de tipos de datos... pero que mas da ahi esta
Código:
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@Page aspcompat=true Language ="VB" debug ="true" %>
<html>
<script language="VB" runat="server">
Sub EnviaFormulario(Sender as Object, E as EventArgs)
' Definimos el archivo enviado por el formulario como Imagen
Dim Imagen as System.Drawing.Image
Imagen = System.Drawing.Image.FromStream(Archivo.PostedFile.InputStream)
' Definimos las dimensiones de la miniatura
Dim AnchoMiniatura as Integer, AltoMiniatura as Integer
AnchoMiniatura = 100
AltoMiniatura = 80
' Definimos el nombre del archivo, y el nombre de la miniatura
Dim NombreArchivo as String
Dim NombreMiniatura as String
NombreArchivo = right(archivo.PostedFile.filename,len(archivo.PostedFile.filename) - instrrev(archivo.PostedFile.filename,"\"))
NombreMiniatura = right(archivo.PostedFile.filename,len(archivo.PostedFile.filename) - instrrev(archivo.PostedFile.filename,"\"))
' Definimos las rutas donde grabará los archivos
Dim RutaArchivo as String, RutaMiniatura as String
RutaArchivo = "./imagenes/"
RutaMiniatura = "./imagenes/miniaturas/"
' Guardamos el archivo original en disco
Imagen.Save(Server.MapPath(RutaArchivo & NombreArchivo), ImageFormat.JPEG)
' Creamos la Miniatura con las dimensiones enviadas, y la definimos como Imagen
Dim Miniatura as System.Drawing.Image
Miniatura = Imagen.GetThumbnailImage(AnchoMiniatura, AltoMiniatura, Nothing, New IntPtr())
' Grabamos la Miniatura en disco con formato JPG
Miniatura.Save(Server.MapPath(RutaMiniatura & NombreMiniatura), ImageFormat.JPEG)
End Sub
</script>
<body>
<form enctype="multipart/form-data" runat="server">
Imagen: <input id="Archivo" type="file" runat="server">
<br><br>
<input value="Enviar" type="submit" OnServerClick="EnviaFormulario" runat="server">
</form>
</body>
</html>
Saludos
PD: si alguien me puede decir como validar tipos de datos se lo agradeceria
__________________
Haz la guerra en la cama y el amor donde se te de la gana...
El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!! |