Foros Club Delphi - Buscar y Reproducir Videos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Buscar y Reproducir Videos (https://www.clubdelphi.com/foros/showthread.php?t=73841)

Buscar y Reproducir Videos

Hola amigos del Club Delphi:

Mi pregunta es acerca de videos en delphi 2010 (Uso embarcadero rad studio 2010), lo que quiero saber es si se puede hacer que al escribir una palabra en un TEdit se reproduzca en un TMediaPlayer un video con el nombre de la palabra y la extension .mpg, por ejemplo, yo escribo en el TEdit 'Hola' y el programa busca un archivo que se llama 'Hola.mpg' y lo reproduce, y despues de reproducirlo poder buscar mas.

Yo lo intente y este es mi codigo pero por alguna razon no funciona

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); 
begin 
  mediaplayer1.Open; 
  mediaplayer1.Visible:=True; 
  mediaplayer1.FileName:='C:\Users\Daniel\Desktop\'+edit1.Text+'.mpg'; 
  mediaplayer1.Play; 
end ;

Gracias de Antemano.

Hola daniel43.

Por favor, define "no funciona".

Cita:

Empezado por daniel43 (Mensaje 400649)

prueba asi

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); 
begin 

mediaplayer1.close;
mediaplayer1.Visible:=True; 
mediaplayer1.FileName:='C:\Users\Daniel\Desktop\'+edit1.Text+'.mpg';
mediaplayer1.Open;  
mediaplayer1.Play; 
end ;

Hola Daniel43.

Sé que al ser nuevo en los foros hay detalles que no conoces, por lo que no tomes esta sugerencia como un apercibimiento.

Te recomiento el uso de las etiquetas para que todos tengamos un mejor entendimiento del código que presentas.

Apreciá la diferencia.

Sin etiquetas [delphi] [/delphi]:

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.Open;
mediaplayer1.Visible:=True;
mediaplayer1.FileName:='C:\Users\Daniel\Desktop\'+edit1.Text+'.mpg'; mediaplayer1.Play;
end ;

Con etiquetas [delphi] [/delphi]:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
  mediaplayer1.Open;
  mediaplayer1.Visible:=True;
  mediaplayer1.FileName:='C:\Users\Daniel\Desktop\'+edit1.Text+'.mpg'; 
  mediaplayer1.Play;
end ;

Cuando el código sea más extenso si no tiene etiquetas, la mayoría no se tomará el trabajo de leerlo. Y claro las posibilidades de que obtengas una respuesta disminuirán.

Un saludo. :)

Cita:

Empezado por beginner01 (Mensaje 400674)

prueba asi

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin mediaplayer1.close; mediaplayer1.Visible:=True; mediaplayer1.FileName:='C:\Users\Daniel\Desktop\'+edit1.Text+'.mpg'; mediaplayer1.Open; mediaplayer1.Play; end ;

Muchas Gracias Me Funcionó Perfecto!