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 |
|
|
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 00:54:41 |
Reproducir videos en TMediaPlayer | El_Perrito | Gráficos | 3 | 11-04-2009 14:01:34 |
Ya vez!!!, por ver videos del Wii ... :D | jandok238 | Humor | 2 | 24-09-2008 12:25:34 |
TMediaPlayer, problema al reproducir algunos archivos | mcarazas | Varios | 7 | 10-04-2008 04:02:56 |
Redimensionar videos reproducidos con un TMediaPlayer en un panel | Jan_polero | Gráficos | 1 | 18-01-2005 16:36:11 |
|