FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como hacer que un tmediaplayer se reproduzca sin parar
Hola, me gustaria saber cómo hacer que un tmediaplayer reproduzca la misma cancion una y otra vez.He buscado en las propiedades pero no he encontrado nada.
|
#2
|
|||
|
|||
Algunas propiedades de Tmediaplayer
AutoEnabled por defecto en True, todos los botones están habilitados, si queremos deshabilitar alguno esta propiedad ha de pasarse a False y con la Propiedad/EnabledButtons, seleccionar que botón queremos deshabilitar. AutoOpen: en True abre automáticamente el archivo indicado, en False tendríamos que hacerlo por medio de un evento. Por ej: MediaPlayer1.AutoOpen := True; AutoRewind: Ya está claro, en True se autorebobina cuando acaba la reproducción. ColoredButtons: si abres esta ventana verás que están todos en True, si lo pasas a False quedan coloreados en escala de grises. DeviceType (Tipo de dispositivo): por defecto en dtAutoSelect, pero podemos asignarle un solo tipo de dispositivo a controlar. EnabledButtons: habilita y deshabilita botones (con AutoEnabled en False), deshabilitar (Disabled)quiere decir que estos son visibles en color grisáceo y no responden a ningún clic de ratón. VisibleButtons: True botón visible, False botón invisible. Espero que te sirva. Saludos. |
#3
|
||||
|
||||
Cita:
HOLA COMO ESTAS YO NESECITO REALIZAR ESO MISMO, OSEA REPRODUCIR EN ESTE CASO UN MPG SIN QUE ESTE PARE NUNCA DE REPRODUCIR. DESDE UN PRINCIPIO MI AutoRewind: ESTUVO EN TRUE HACI QUE YA NO SE COMO PUDO HACER ESTO. AYUDAA!!! |
#4
|
||||
|
||||
Bueno, primero que todo lee la guia de estilo, el hecho de que escribas en mayusculas significa que nos estas gritando y ademas es muy molesto de leer, por otro lado una posible solución a tu problema:
Colocale al media player la propiedad Notify en True, asi por ejemplo:
Y en el evento OnNotify del TMediaPlayer le colocas lo siguiente:
Espero te sirva y que leas la guia de estilo http://www.clubdelphi.com/foros/guiaestilo.php Nota: De todas formas eso no es muy eficiente y en la misma ayuda recomiendan no activar ese evento, pero no encuentro otra forma de hacerlo.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ Última edición por jhonny fecha: 09-10-2007 a las 23:29:13. Razón: Agregar Nota. |
#5
|
||||
|
||||
perdon jhonny por mi falta de respeto y gracias por tu respuesta estaba escribiendo rapido y no me importo que el blocmayus estaba activo no lo vuelvo hacer
|
#6
|
||||
|
||||
Que bien , ¿Te sirvio lo que te dije?
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#7
|
||||
|
||||
lo estoy provando pero no me gusta la idea de usar 2 TMediaPlayer, no hay una forma de hacer esto solo con el componente MediaPlayer que tengo ?
por que esto me llego a resultar con un TTimer pero luego me causo problemas |
#8
|
||||
|
||||
Cita:
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#9
|
||||
|
||||
Cita:
esto puede ser porque puse el MediaPlayer.Notyfy := true en el onCreate aahh. me olvide de mencionar tengo un timer en el formulario con un intervalo de 5000 |
#10
|
||||
|
||||
Si, la verdad es que se pone un poco lento, pero quizá el timer que dices tiene algo de culpa en ello, ¿Para que colocaste ese timer?
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#11
|
||||
|
||||
Coloco el timer para que realice cada 5 segundos consultas a la bd y traigan los datos que se imprimen en pantalla. El video solo estaria en la pantalla como un spot publicitario.
Última edición por pnsd_89 fecha: 10-10-2007 a las 00:04:53. |
#12
|
||||
|
||||
Cita:
Acabo de descubrir algo mas, para que el "play" no se "dispare" a cada momento y no se bloquee la aplicación en algunas ocaciones (A lo mejor esto tambien arregle el problema), puedes verificar el tipo de notificiación, mejorando el codigo del evento OnNotify asi:
De lo contrario, quiza el problema es porque la consulta se demora un poco e interfiere con el funcionamiento normal del TMediaPlayer, podrias plantearte la idea de usar TThereads.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#13
|
||||
|
||||
Jhonny EL GRAN GURU !!!(esto si fue un girto jaja)
Cita:
una ultima pregunta que es lo que condiciono el poner el if este:if
|
#14
|
||||
|
||||
Cita:
Pero no entiendo la pregunta .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#15
|
||||
|
||||
ok la preguntas son ?
puesto que por primera vez utilizo el onNotefy, Para que sirve este evento o cuando ocurre este evento? y cuando condicionas con el que es lo que condiciona, no entiendo para que sirve el nvSuccessful y el NOtifyValue. gracias por todo gran guru Jhonny!!! |
#16
|
||||
|
||||
Bueno, creo que el mejor para responder esas dudas es la misma ayuda de Delphi, busca el topico llamado TMediaPlayer.Notify, sin embargo te explicare a grandes razgos... cuando le decimos a la propiedad Notify del TMediaPlayer que sea True, quiere decir que queremos que se dispare el evento OnNotify siempre que el componente TMediaPlayer sufra un Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, StartRecording, Resume, Rewind, Step, o un Stop, como solo queremos evaluar el momento en que termina de reproducir la pelicula, pues entonces evaluamos la propiedad de solo lectura llamada NotifyValue que tiene uno de los siguientes 4 valores:
nvSuccessful : Cuando ejecuta satisfactoriamente un comando, en este caso el play. nvSuperseded : Cuando el comando es reemplazado por otro. nvAborted : Cuando el comando es cancelado. nvFailure : Cuando el comando a fallado. La explicación que te he dado, practicamente es la traduccion de la ayuda misma , allí encontraras información mucho mas detallada. Es que eso de Guru me quedo grande y me he visto en la casi obligación de traducir lo que leí .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
|
|
|