FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Reproducir videos seguidamente en TMediaPlayer
Buenas, mi duda es la siguiente trato de hacer un reproductor de videos con un TMediaPlayer, los videos se cargan en una listbox pero necesito que al acabar un video reproduzca el siguiente en la listbox y al acabar el ultimo se pare. Lo estoy itentando con Mediaplayer.Wait = true delante del mediaplayer.play pero con esto me desactiva todos los botones y también el timer1 que llama a la progressbar, ademas de que se queda reproduciendo el ultimo video sin parar.
Pongo mejor el codigo(boton de play): procedure TForm1.ToolButton1Click(Sender: TObject); var i: integer; x: integer; begin i := listbox1.itemindex; x := listbox1.Count; if i = -1 then begin ListBox1.ItemIndex := 0; end; while listbox1.ItemIndex < x do begin mediaplayer1.filename := listbox1.Items[listbox1.itemindex]; mediaplayer1.Display := Panel_pantalla; mediaplayer1.Open; mediaplayer1.DisplayRect := Panel_pantalla.ClientRect; //rec es el rectangulo. Quiere decir que el rectangulo del display y el del panel 1 han de ser iguales. progressbar1.Max := mediaplayer1.Length; progressbar1.Position := 0; mediaplayer1.Wait := true; mediaplayer1.play; timer1.Enabled := true; mediaplayer1.wait := false; mediaplayer1.Stop; mediaplayer1.Close; // incremento para pasar al siguiente item de la listbox listbox1.ItemIndex := listbox1.ItemIndex + 1; end; end; Alguien sabe como solucionar esto? Gracias de antemano |
#2
|
|||
|
|||
Hola,
solo te comentaré que donde haces el incremento del itemindex de la listbox, que cuando llegues al último elemento y lo incrementes en uno, no se incrementará el valor, nunca será superior al count de la listbox. Igual por ahí te puede venir lo de que se repita el último todo el rato. un saludo |
#3
|
|||
|
|||
Hola,
Gracias por tu aportación urixiv, el caso es que ya he conseguido que me funcione quitando el mediaplayer1.wait y añadiendo otro ttimer. Un Saludo |
#4
|
|||
|
|||
Programa
ola buenas mira necesito hacer este mismo programa cargar los vidoes des de el listbox i reproducirlos me podrias mandar tu programa para ver lo que me falla plis t dejo mi correro spero k me lo puedas enviar gracias
Última edición por ecfisa fecha: 01-06-2013 a las 03:43:48. Razón: Quitar dirección de correo |
#5
|
||||
|
||||
Hola slatand10, bienvenido a Club Delphi
Como a todos los que comienzan te invitamos a que leas nuestra guía de estilo, en especial el punto (14). Saludos y gracias por tu colaboración.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 02-09-2015 a las 06:11:42. |
#6
|
|||
|
|||
Amigo puedes pasarme el codigo para hacer que salte al siguiente video, gracias de antemano, saludos
|
#7
|
||||
|
||||
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#8
|
|||
|
|||
Cita:
Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Reproducir audio (TMediaPlayer) al momento de entrar a un nuevo Form | aquilesbrinko | Varios | 3 | 19-11-2009 01:54:41 |
Reproducir videos en TMediaPlayer | El_Perrito | Gráficos | 3 | 11-04-2009 15:01:34 |
Ya vez!!!, por ver videos del Wii ... :D | jandok238 | Humor | 2 | 24-09-2008 13:25:34 |
TMediaPlayer, problema al reproducir algunos archivos | mcarazas | Varios | 7 | 10-04-2008 05:02:56 |
Redimensionar videos reproducidos con un TMediaPlayer en un panel | Jan_polero | Gráficos | 1 | 18-01-2005 17:36:11 |
|