Activar un evento en un momento determinado de un video
 

Que tal amigos del foro.

En esta oportunidad recurro a ud. por lo siguiente cual seria el metodo y los controles adecuados para Activar un evento en un momento determinado de la ejecucion de un video.

La aplicacion la estoy desarrollando en Delphi 7.


Carlos Arevalo
Muchas gracias

Pues sin saber con que componente estas presentando el video... francamente no se puede dar una sola sugerencia atinada...

Te recomiendo leer este hilo.

Hasta luego.

;)

Hola Carlos, saludos desde Margarita. Apoyo lo que dice jachguate, deberias especificar un poco más lo que quieres, de todas formas trataré de echarte una mano.

Si quieres hacer un reproductor multimedia bajo Delphi, lo mas sencillo y directo es el control MediaPlayer de la paleta System. En el evento OnNotify puedes capturar los estados de la reproducción (Reproducir, Pausa, Detener, etc...). Si lo que quieres es ejecutar algo despues de transcurrido cierto tiempo de iniciada la reproducción, lo puedes hacer llevando el tiempo con un Timer. Prueba y nos dices que tal te fué, saludos.

Muchas gracias por responder.

Utilizando el control Tmediaplayer como sugirio Jonnathan y un Timer pude controlar que ejecutara un evento durante la ejecucion de un video de la siguiente forma:

Código Delphi [-]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=inttostr(MediaPlayer1.Position);

if strtoint(label2.Caption) <= 15 then
  label4.Caption:='SUELTA PELOTA';

if (strtoint(label2.Caption) >= 35) and (strtoint(label2.Caption) <= 71) then
  label4.Caption:='CARGA PELOTA';

if strtoint(label2.Caption) >= 72 then
  label4.Caption:='LANZA PELOTA';

end;

Muchas gracias.