Bueno, si me mandais hacer puñetas no me va parecer mal pero cuando es un negado en programacion, es un negado, y yo soy un negado.
Siguiendo el consejo de Rafaxplayer, expongo mi duda:
Tengo un proyecto de hacer discografias, y la verdad es que funciona cojonudo, muy vistoso y agradable de ver (joder, si no me echo flores, nadie me las va echar). Me costó lo suyo entender algo de esto, pero a trancas y barrancas, consejo de RafaxpLayer, Ceone y otros, solucionar problemas, he conseguido sacarla adelante. Pero mira que el "maldito" RafaxPlayer ( y digo maldito porque yo ya estaba tranquilo con lo que tenía, y lo digo de forma amistosa", va y pone un post de MediaPlayer con List Box, y me ha "jodido", pues es tan bueno, que quiero incluirlo en las próximas discografías, pero maldita leche, no consigo hacerlo funcionar (bueno, hacerlo funcionar si lo consigo, pero no me convence).
Explico, en el proyecto que suelo hacer en golbal funciones tengo lo siguiente:
Lo tengo así para saber que hace cada cosa pues repito, soy un negado.
Luego tengo una funcion en cada boton que es Esto hace que el proyecto aparezca un icono pequeño, que al pinchar en él, se abre la caratula en grande, y aparece la dichosa ListBoxEx con todas las canciones de la carpeta a que se hace referencia el boton de llamada, puesto que en Doubleclick de la "dichosa" tengo este
y se me reproduce en el Media Player que tiene en On Finish
¡ Alla va todo el proyecto expuesto! Modelo en APZ http://www.multisiteupload.com/files/0W ... aladas.apz
Como decía , estaba contento y feliz, hasta que RafaxPlayer emitió el post que dije antes y que hace una cosa que mi proyecto no hace, cual es, que abre el explorer, y te permite escoger las carpetas y archivos y añadirlos a la ListBoxEx, y esa es una idea cojonuda y práctica, unido a la vistosidad de los pryectos que hago, quedaría chulín, chulín. Pero nada, que modifico los nombres, las variables, pero nada de nada no consigo hacerlo funcionar. Bueno hacer si lo hago, para ello creo mi proyecto con dos plugins listBoxEx1 y MediaPlayer1, luego creo otra Listbox2 y un MediaPlayer y leañado el código de RafxPlayer Media Player con ListBox, y zas, funciona correctamente, pero es una, y seamos serios, una chapuciña, pues te obliga a 2 media player y 2 listbox.
En el código anterior, que líneas podrán añadirse al mismo, para que al crear un boton en el proyecto permitiese añadir cualquier carpeta o cualquier archivo, pero solo usando una lñistBoxEx y un solo MediaPlayer?
Vale, ni puñetera idea tengo, pero no me mandeis hacer puñetas, permito insultos y todo. Gracias
VER ULTIMO MENSAJE CON UNA APZ, EN LA PAGINA 2, ESTA MAS CLARO QUE TODO ESTO. SALUDOS
Siguiendo el consejo de Rafaxplayer, expongo mi duda:
Tengo un proyecto de hacer discografias, y la verdad es que funciona cojonudo, muy vistoso y agradable de ver (joder, si no me echo flores, nadie me las va echar). Me costó lo suyo entender algo de esto, pero a trancas y barrancas, consejo de RafaxpLayer, Ceone y otros, solucionar problemas, he conseguido sacarla adelante. Pero mira que el "maldito" RafaxPlayer ( y digo maldito porque yo ya estaba tranquilo con lo que tenía, y lo digo de forma amistosa", va y pone un post de MediaPlayer con List Box, y me ha "jodido", pues es tan bueno, que quiero incluirlo en las próximas discografías, pero maldita leche, no consigo hacerlo funcionar (bueno, hacerlo funcionar si lo consigo, pero no me convence).
Explico, en el proyecto que suelo hacer en golbal funciones tengo lo siguiente:
function AddFilestoList(strFolder)
local sz_itemText;
ListBoxEx.DeleteAllItems("Plugin1");
StatusDlg.Show(MB_ICONNONE, false);
local tb = File.Find(strFolder, "*.mp3", true, false);--Busqueda de archivos mp3 en el directorio strFolder
--Escoger los colores de inicio de la playlist------
colorimpar = {213888};
colorpar = {3964823};
x = colorimpar;
if tb then
StatusDlg.SetMeterRange(1,table.maxn(tb));
for i,v in pairs (tb) do--recorremos tabla
sFile = String.SplitPath(v).Filename ---ombre de archovo SIN extension de la ruta completa
--sFile = String.SplitPath(v).Filename..String.SplitPath(v).Extension --estraccion del nombre de archovo CON extension de la ruta completa
nIcon = ListBoxEx.AddAssocIcon("Plugin1", LBXASSOC_SMALLICON,v);--Funcion del listboex para sacar el icono por defecto de windows en el archivo, previo crear imagelist "on create" evento.
StatusDlg.SetMeterPos(i);
StatusDlg.SetTitle(Math.Floor((i/table.maxn(tb)*100)).." %");
StatusDlg.SetMessage("Add "..sFile.." to list");
sz_itemText = "<p><b><font color=16777215 face=Bookman Old Style size=16 >"..sFile.."</font></b></p>"--codigo hatml para crear el item con el nombre del archivo
Application.Sleep(50)-- esto es para que sea mas visible el statusdlg , totalmente opcional.
actual = ListBoxEx.AddItem("Plugin1", sz_itemText, "", v, "", nIcon, LBXITEM_HTML, 0, x, {4227072}, nil);--añadimos item
----========================= DEFINICION DE COMANDOS LINEA ANTERIOR ==========================
-- Pluygin1 = Escoge la ListBoxEx de forma parecida a la PlayList
--- sz_itemText = esoge tipo de letra, tamaño y color de la fuente, para cambair ir al comando sz_itemText nterior
--- v = Defne lo que se vera a la PlayList, para definir, hay que ir al comando sFile anterio (en est caso solo nombre)
---nIcon = Define el icono a ver en la ListBoxEx
-- LEXITEM_HTML = Admite caracteres html definidos en sz_itemText
-- 0 valor por defecto del alto de cada item de ls ListBox (se autoajusta al tamaño de la fuente)
-- x = vaiable quw dine el orden en que aparecen los colores del item, colores definidio anteriormente y orden definidio en funcion siguiente
-- Las dos ordenes siguentes definen los colores de seleccionao item y HightColor al funcionar
-- ==============================================================================================
-- Funcion en donde se escoge el orden de colores como aparece la listBoxEx, se extrae la variable x
if x == colorimpar then
x = colorpar;
else
x = colorimpar;
end
--=================================================================================================
end
end
StatusDlg.Hide();
end
----###########################################################
Luego tengo una funcion en cada boton que es
MediaPlayer.Stop("Plugin2");
FlashVisible("Flash1", true);
ListBoxEx.SetVisible("Plugin1", true);
Image.SetVisible("marco2", true);
Folder= _SourceFolder.."\\AutoPlay\\Docs\\JOHN WILLIAMS\\2002 - Catch Me If You Can\\"-- Carpeta que queremos de contenedor de nuestros mp3
AddFilestoList(Folder)
actual = e_Index
MediaPlayer.Load("Plugin2", ListBoxEx.GetItemData("Plugin1", actual));
nCount ="";
nNext ="";
sFile ="";
--nCount = ListBox.GetCount("ListBox1");
nCount = ListBoxEx.GetTotalItems("Plugin1");
--tSelected = ListBox.GetSelected("ListBox1");
tSelected = ListBoxEx.GetSelectedItem("Plugin1");
if tSelected then
nSelected = tSelected;
nNext = nSelected;
if nNext < nCount then
nNext = nNext+1;
--ListBox.SelectItem("ListBox1", nNext);
ListBoxEx.SelectItem("Plugin1",nNext,true);
--sFile = ListBox.GetItemData("ListBox1", nNext);
sFile = ListBoxEx.GetItemData("Plugin1", nNext);
MediaPlayer.Load("Plugin2", sFile);
MediaPlayer.Play("Plugin2");
elseif nNext == nCount then
--ListBox.SelectItem("ListBox1", 1);
ListBoxEx.SelectItem("Plugin1", 1, true);
--sFile = ListBox.GetItemData("ListBox1", 1);
sFile = ListBoxEx.GetItemData("Plugin1", 1);
MediaPlayer.Load("Plugin2", sFile);
MediaPlayer.Play("Plugin2");
end
end
Como decía , estaba contento y feliz, hasta que RafaxPlayer emitió el post que dije antes y que hace una cosa que mi proyecto no hace, cual es, que abre el explorer, y te permite escoger las carpetas y archivos y añadirlos a la ListBoxEx, y esa es una idea cojonuda y práctica, unido a la vistosidad de los pryectos que hago, quedaría chulín, chulín. Pero nada, que modifico los nombres, las variables, pero nada de nada no consigo hacerlo funcionar. Bueno hacer si lo hago, para ello creo mi proyecto con dos plugins listBoxEx1 y MediaPlayer1, luego creo otra Listbox2 y un MediaPlayer y leañado el código de RafxPlayer Media Player con ListBox, y zas, funciona correctamente, pero es una, y seamos serios, una chapuciña, pues te obliga a 2 media player y 2 listbox.
En el código anterior, que líneas podrán añadirse al mismo, para que al crear un boton en el proyecto permitiese añadir cualquier carpeta o cualquier archivo, pero solo usando una lñistBoxEx y un solo MediaPlayer?
Vale, ni puñetera idea tengo, pero no me mandeis hacer puñetas, permito insultos y todo. Gracias
VER ULTIMO MENSAJE CON UNA APZ, EN LA PAGINA 2, ESTA MAS CLARO QUE TODO ESTO. SALUDOS