
13/07/2004, 05:35
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: Castellon
Mensajes: 173
Antigüedad: 20 años, 10 meses Puntos: 0 | |
Precarga de imagenes y Upload Hola muy buenas.............
Estoy realiando una pagina, pero por culpa de mis cortos conocimientos webs, me hacen ir muy lentamente y con muchos problems. La pagina que estoy realizando es una, en la que los ususarios seleccionen una carpeta en la que contendra fotos. Automaticamente al seleccionarla que se precarguen (que se carguen en miniatura), para que el usuario diga que hacer con las fotos antes de subirlas al servidor.
He estado buscando y leiendo mucho por los foros, y he visto gente con muy buenas ideas pero no consigo que me expliquen. De todas maneras una de las ideas que mas me ha gustado hasido la de """"CARICATOS"""", lo que pasa que tampoco la entiendo y no se aplicarla.
Lo que yo tengo hecho hasta el momento es esto:
<HTML>
<HEAD>
<TITLE> pMa </TITLE>
</HEAD>
<BODY>
<%
'nos crea el Objeto FSO
dim cont
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("./X/"))
'nos comienza a listar los archivos
Response.Write "<FONT FACE=Verdana SIZE=2>"
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & ObjetoCarpeta.Name & "</B>:<BR>"
'busca en todos los archivos que encuentra en dicha carpeta y nos devuelve el nombre
cont=0
For Each Fichero in ObjetoCarpeta.Files
cont=cont +1
Response.Write Fichero.Name & "<BR>"
set sir = Server.CreateObject("SfImageResize.ImageResize")
' try loading a jpeg and save as PNG
sir.LoadFromFile Server.MapPath("./X") & "/" & Fichero.Name '.jpeg"
sir.Height = 150
sir.DoResize
' save output image
sir.SaveToFile Server.MapPath("./X") & "/" & cont & ".png"
Response.Write "<img src='C:/Inetpub/wwwroot/InsertarBD/Galeria10/x/" & cont & ".png'>"
set sir = nothing
Next
Response.Write "</FONT>"
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
set sir = nothing
' BORAR PNG
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("./X/"))
for i=1 to cont
next
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
</BODY>
</HTML>
Codigo ASP utilizando un componente.
No acaba de gustarme. Alguien podria ayudarme o explicarme cual es el mejor metodo para hacer galerias o precargas de imagenes??
O informarme sobre algo que hayan hecho parecido a lo que os comento????
Gracias |