Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Lista de reproduccion (https://www.clubdelphi.com/foros/showthread.php?t=18967)

b3nshi 28-02-2005 20:03:26

Lista de reproduccion
 
:confused: Bueno, mi pregunta es la siguiente. Como puedo hacer para insertar con un open dialog, varios archivos a mi listbox. Es decir, que si selecciono varios archivos mp3 en el opendialog, como los agrego???, pero ademas de agregarlos, necesito saber el tiempo que dura cada tema. Mi problema surge debido a que para cargar el tema de la forma que quiero, primero lo hago pasar por un MediaPlayer, para averiduar el tiempo que dura, y dsp lo cargo al Listbox. Y cuando quiero cargar de a muchos temas no puedo. Quise usar un Timer, pero = no me funciona, porque no se como ir cambiando del archivo 1 al n en el open dialog, como para ir cargandolos uno a uno. Alguien me puede dar una solucion a mi problema??? Creo que si en la playlist no cargo de a muchos temas, mi reproductor no va a ser muy útil.:(
Desde ya Muchas Gracias!!!

ebeltete 28-02-2005 23:25:12

Te paso algo de codigo en un playlist que hice donde tempfile es un mediaplayer




procedure TMainForm.btnFileClick(Sender: TObject);
const
CrossFadeTime = 2500; {ms}
var
NewItem: PListItem;
Pos,Len: Longint;
i: integer;
begin
if OpenDialog.Execute then
begin
for i := 0 to OpenDialog.Files.Count-1 do
begin
TempFile.FileName := OpenDialog.Files[i];
Len := TempFile.FileLength;

if (PlayList.Count > 0) then
with PListItem(PlayList[PlayList.Count-1])^ do
Pos := Max(Position+Length-CrossFadeTime,0)
else
Pos := 0;

New(NewItem);
with NewItem^ do
begin
FileName := TempFile.FileName;
Length := Len;
Position := Pos;
end;

PlayList.Add(NewItem);

PlayListBox.Items.Add(NewItem.FileName+'|'+TimeToString(Pos)+'|'+TimeToString(Len));
end;
end;
end;

b3nshi 02-03-2005 20:22:41

Gracias
 
Muchisimas Gracias, me sirvió de mucha ayuda, es justo lo que queria hacer!!! Gracias en serio!!!

ebeltete 03-03-2005 01:14:34

No hay porque, yo me dedico a desarrollar aplicaciones multimedia donde el manejo de archivos de audio es moneda corriente y realmente me es dificil encontrar ayuda en español, asi que todo lo nos puedamos ayudar mejor, salu2

b3nshi 03-03-2005 18:33:14

Otra consultita
 
hola de vuelta, no quiero ser abuso, pero queria preguntarte una cosita mas, ya que me dijiste que te dedicas al desarrollo de aplicaciones multimedia. Estoy tratando de hacer un programa que reconozca la voz, pero se me complico mucho el trabajo, por que primero me dijeron que utilizara la APIspeech de windows, pero no se como hacerlo. En VB hay un componente para ellos, pero no es muy bueno. Despues averiguando mas, lei algo hacerca de unos algoritmos de markov o algo asi, pero no los entiendo. Vos me podrias decir si existe alguna forma de hacerlo o si esxiste algun componente para el reconocimiento de la voz???
Gracias de vuelta!

ebeltete 03-03-2005 22:30:04

Mira alguna vez estube incurciuonando en algo de eso, pero as final no hice nada, en esa oportunidad enccontre algo de info, estoy tratando de adjuntarte un archivo, si no sube dame tu email te paso un dll que es muy sencillo de usar desde Delphi, pero lo malo es que cuando lo ejecutas te aparece un cartel del copyrigth y otras mierdas, no recuerdo bien pero funciona,

b3nshi 04-03-2005 03:00:34

Direcciones
 
Lo del copyright no importa, creo que le puedo encontrar una solucion. De todos modos, creo que me sería de mucha ayuda. Si me lo podes mandar, realmente estaría muy agradecido.
Estas son mis direcciones:
b3nshi@gmail.com
benja_akd@hotmail.com
Ymmm... yo no soy muuuy bueno programando, pero si en algo te puedo ayudar, no dudea en pedirmelo.
Muchisimas Gracias!

Sotrono 04-03-2005 06:55:25

Hola, me podes enviar la dll a mi tambien???

sotrono@gmail.com

vic_ia 05-03-2005 19:11:03

hola ebeltete...

seria mucha molestia si me lo pudieras igualmente a mi ?

mail : vic_ia@todito.com

gracias anticipadas...

b3nshi 06-03-2005 03:32:24

Otra duda
 
Estuve investigando algo mas, y me encontré con que para analizar el sonido, se debe analizar con componentes activex, a un bajo nivel. Mi duda ahora es: primero como hago para dejar abierta la entrada del microfono, es decir, para que mi programa analice todo lo que se diga por microfono.
Segundo, pasó algo con la dll?


La franja horaria es GMT +2. Ahora son las 09:44:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi