Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-10-2010
kolfito kolfito is offline
Registrado
NULL
 
Registrado: oct 2010
Posts: 2
Poder: 0
kolfito Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 18-10-2010
urixiv urixiv is offline
Miembro
 
Registrado: sep 2006
Posts: 23
Poder: 0
urixiv Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 18-10-2010
kolfito kolfito is offline
Registrado
NULL
 
Registrado: oct 2010
Posts: 2
Poder: 0
kolfito Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 01-06-2013
slatand10 slatand10 is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 1
Poder: 0
slatand10 Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 01-06-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
Responder Con Cita
  #6  
Antiguo 03-09-2013
diasaric diasaric is offline
Registrado
 
Registrado: feb 2008
Posts: 2
Poder: 0
diasaric Va por buen camino
Cita:
Empezado por kolfito Ver Mensaje
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
Amigo puedes pasarme el codigo para hacer que salte al siguiente video, gracias de antemano, saludos
Responder Con Cita
  #7  
Antiguo 03-09-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Código Delphi [-]
// incremento para pasar al siguiente item de la listbox
      listbox1.ItemIndex := listbox1.ItemIndex + 1;
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración
Responder Con Cita
  #8  
Antiguo 04-09-2013
mordaz mordaz is offline
Miembro
 
Registrado: mar 2008
Posts: 32
Poder: 0
mordaz Va por buen camino
Cita:
Empezado por diasaric Ver Mensaje
Amigo puedes pasarme el codigo para hacer que salte al siguiente video, gracias de antemano, saludos
Me sucedía lo mismo con TWindowsMediaPlayer y encontré que trabaja con sus propias listas de reproducción, al yo hacer mi lista y no introducirla directamente al componente cuando termina de reproducir un medio envía un stop y si cargas inmediatamente otra pista no lo reproduce, tuve que colocar un timer para que esperara un segundo y cargar la nueva pista.

Saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 01:32:52.


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
Copyright 1996-2007 Club Delphi