Pues bien, si pongo el FOR a secas, me funciona perfecto:
for(i=0; i<21; i++) {
attachMovie("minifoto", "minifoto"+i, getNextHighestDepth());
this["minifoto"+i]._x = (44*i)+1;
this["minifoto"+i]._y = 1;
this["minifoto"+i].loaderPhoto.loadMovie("thumbs/Img"+(i)+".jpg");
attachMovie("miniboton", "miniboton"+i, getNextHighestDepth());
this["miniboton"+i]._x = 44*i;
this["miniboton"+i]._y = 0;
this["miniboton"+i].id = i;
this["miniboton"+i].onRelease = function(){
_parent.visorFotos.loadMovie("fotografias/Img"+this.id+".jpg");
};
}
Pero si intento utilizar un XML generado por un script ASP no funciona. El ActionScript queda así:
XML.prototype.ignoreWhite = true;
miXML = new XML();
miXML.onLoad = verArchivos;
function verArchivos(ok) {
if (ok) {
var files = this.firstChild.childNodes;
for (k=0; files[k]; k++) {
if (files[k].attributes.ext == "jpg") {
attachMovie("minifoto", "minifoto"+k, getNextHighestDepth());
this["minifoto"+k]._x = 44*k;
this["minifoto"+k]._y = 0;
trace(files[k].attributes.nombre+"."+files[k].attributes.ext); //esto me da: Img1.jpg... Img[k].jpg, etc
this["minifoto"+k].loaderPhoto.loadMovie("thumbs/"+files[k].attributes.nombre+"."+files[k].attributes.ext);
attachMovie("miniboton", "miniboton"+k, getNextHighestDepth());
this["miniboton"+k]._x = 44*k;
this["miniboton"+k]._y = 0;
this["miniboton"+k].onRelease = function() {
_parent.visorFotos.loadMovie("fotografias/"+files[k].attributes.nombre+"."+files[k].attributes.ext);
};
}
}
} else {
//fallo en la carga
}
}
if (!miXML.loaded) {
miXML.load("explorar.asp");
}
El fichero "explorar.asp" funciona perfecto, ya que el 'Trace' que hago en la película me devuelve el nombre del fichero correcto, osease 'Img1, Img2... Img[k]'.
Se os ocurre por que puede ser que en el primer ejempro funcione y con el XML no funcione?
El codigo del ASP es el siguiente:
<%
' intentamos evitar la caché del navegador --------------
Response.Expires=0
Response.CacheControl="private"
' ----------------------------------------------------------------
Response.ContentType="text/XML"
'Creamos el objeto FileSystemObject
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' elegimos la carpeta files desde la raiz del servidor web
Set folder = fso.GetFolder(Server.MapPath(("thumbs")))
Set files = folder.Files '
' construimos el XML ----------------------------------------
Response.Write("<?xml version='1.0' ?><exploracion carpeta='"+folder.Name+"'>")
For Each file in files
fil=file.Name
Dim sFile, MiMatriz
sFile = Split(file.Name, ".", -1, 1)
Response.write("<archivo nombre='")
Response.write(sFile(0))
Response.write("' ext='")
Response.write(sFile(1))
Response.write("' size='")
Response.write(file.size\1024)
Response.Write("' />")
Next
Response.Write("</exploracion>")
' ----------------------------------------------------------------
Set files = nothing
Set folder = nothing
Set fso = nothing
%>
Gracias!!
