Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/07/2004, 05:35
Avatar de kachalot
kachalot
 
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