VBScript - Cargar imagenes en un Objeto ImageList
Publicado por Urko (1 intervención) el 31/07/2002 14:38:38
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>
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


0