ActiveX - Cargar imagenes en un Objeto ImageList

 
Vista:

Cargar imagenes en un Objeto ImageList

Publicado por Urko (1 intervención) el 31/07/2002 14:29:05
Hola a todos:
Tengo un objeto ImageList en un entorno web el cual quiero cargar con imagenes. He conseguido cargarle imagenes con la funcion LoadPicture pero tengo que indicarle forzosamente una ruta fisica "c:\imagen.gif".
Yo quiero que desde el cliente se cargen estas imagenes que estan en el servidor, necesito hacerlo con rutas de tipo URL"http://imagen.gif".
¿Conoce alguien una funcion del mismo estilo a LoadPicture que acepte tambien rutas URL?

Esto es lo que he intentado:

<OBJECT classid=clsid:2C247F23-8591-11D1-B16A-00C0F0283628 id=ImgPrueba
style="LEFT: 0px; TOP: 0px"
CLASSID="CLSID:58DA8D8F-9D6A-101B-AFC0-4210102A8DA7">
<PARAM NAME="_ExtentX" VALUE="1005">
<PARAM NAME="_ExtentY" VALUE="1005">
<PARAM NAME="BackColor" VALUE="-2147483643">
<PARAM NAME="ImageWidth" VALUE="288">
<PARAM NAME="ImageHeight" VALUE="126">
<PARAM NAME="MaskColor" VALUE="12632256">
<PARAM NAME="UseMaskColor" VALUE="-1">
<PARAM NAME="_Version" VALUE="393216">
</OBJECT>

<script language="VBScript">
'De estas tres cargas de imagen al objeto solo funciona la primera.
ImgPrueba.ListImages.Add , "uno",
LoadPicture("D:\Proyectos\imagenes\AVI16.gif")
ImgPrueba.ListImages.Add , "dos",
LoadPicture("http://136/proyectos/imagenes/bmp16.gif")
ImgPrueba.ListImages.Add , "tres", LoadPicture("ftp://136/AVI16.gif")
</script>

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro Andrade

Cargar imagenes en un Objeto ImageList

Publicado por Alejandro Andrade (213 intervenciones) el 24/03/2023 22:29:32
Para cargar imágenes desde una URL en un objeto ImageList, puedes utilizar la función URLDownloadToFile para descargar la imagen a una ruta temporal en el disco local y luego cargarla con la función LoadPicture.

Aquí te dejo un ejemplo de cómo podrías hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<script language="VBScript">
Sub CargarImagenDesdeURL(url, nombre)
  Dim rutaTemporal, resultado
  rutaTemporal = "C:\Temp\" & nombre & ".jpg" ' Ruta temporal en el disco local
  resultado = URLDownloadToFile(0, url, rutaTemporal, 0, 0) ' Descargar la imagen desde la URL a la ruta temporal
  If resultado = 0 Then ' Si la descarga fue exitosa
    ImgPrueba.ListImages.Add , nombre, LoadPicture(rutaTemporal) ' Cargar la imagen al ImageList
    Kill rutaTemporal ' Eliminar la imagen temporal del disco local '
  End If
End Sub
 
CargarImagenDesdeURL "http://136/proyectos/imagenes/bmp16.gif", "bmp16"
CargarImagenDesdeURL "ftp://136/AVI16.gif", "avi16"
</script>

En este ejemplo, la función 'CargarImagenDesdeURL' recibe dos parámetros: la URL de la imagen y un nombre para identificarla en el ImageList. La función descarga la imagen desde la URL a una ruta temporal en el disco local utilizando la función 'URLDownloadToFile'. Luego, carga la imagen al ImageList utilizando la función 'LoadPicture' y finalmente elimina la imagen temporal del disco local utilizando la función 'Kill'.

Espero que esto te sea de ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar