como hacer que un tmediaplayer se reproduzca sin parar

[pnsd_89]

Empezado por jhonny

Si, la verdad es que se pone un poco lento, pero quizá el timer que dices tiene algo de culpa en ello, ¿Para que colocaste ese timer?

Coloco el timer para que realice cada 5 segundos consultas a la bd y traigan los datos que se imprimen en pantalla. El video solo estaria en la pantalla como un spot publicitario.

[jhonny]

Empezado por pnsd_89

COlo que el timer para que realice cada 5 segundos consultas a la bd y traigan los datos que se imprimen en pantalla. El video solo estaria en la pantalla como un spot publicitario.

Ok, entonces prueba con lo siguiente...

Acabo de descubrir algo mas, para que el "play" no se "dispare" a cada momento y no se bloquee la aplicación en algunas ocaciones (A lo mejor esto tambien arregle el problema), puedes verificar el tipo de notificiación, mejorando el codigo del evento OnNotify asi:

Código Delphi [-]
  if MediaPlayer1.NotifyValue = nvSuccessful then
  begin
    TMediaPlayer(Sender).Play;
  end;

De lo contrario, quiza el problema es porque la consulta se demora un poco e interfiere con el funcionamiento normal del TMediaPlayer, podrias plantearte la idea de usar TThereads.

[pnsd_89]

Empezado por jhonny

Ok, entonces prueba con lo siguiente...

Acabo de descubrir algo mas, para que el "play" no se "dispare" a cada momento y no se bloquee la aplicación en algunas ocaciones (A lo mejor esto tambien arregle el problema), puedes verificar el tipo de notificiación, mejorando el codigo del evento OnNotify asi:

Código Delphi [-] if MediaPlayer1.NotifyValue = nvSuccessful then begin TMediaPlayer(Sender).Play; end;


De lo contrario, quiza el problema es porque la consulta se demora un poco e interfiere con el funcionamiento normal del TMediaPlayer, podrias plantearte la idea de usar TThereads.

no hace falta lo demas, funciono de lujo como dice el titulo jhonny el gran guru.
una ultima pregunta que es lo que condiciono el poner el if este:if

Código Delphi [-]
if MediaPlayer1.NotifyValue = nvSuccessful then

[jhonny]

Empezado por pnsd_89

no hace falta lo demas, funciono de lujo como dice el titulo jhonny el gran guru.
una ultima pregunta que es lo que condiciono el poner el if este:if

Código Delphi [-]
if MediaPlayer1.NotifyValue = nvSuccessful then

Que bueno que a funcionado .

Pero no entiendo la pregunta .

[pnsd_89]

Empezado por jhonny

Que bueno que a funcionado .

Pero no entiendo la pregunta .

ok la preguntas son ?
puesto que por primera vez utilizo el onNotefy,
Para que sirve este evento o cuando ocurre este evento?
y cuando condicionas con el

Código Delphi [-]
if MediaPlayer1.NotifyValue = nvSuccessful then

que es lo que condiciona, no entiendo para que sirve el nvSuccessful
y el NOtifyValue.
gracias por todo gran guru Jhonny!!!

[jhonny]

Bueno, creo que el mejor para responder esas dudas es la misma ayuda de Delphi, busca el topico llamado TMediaPlayer.Notify, sin embargo te explicare a grandes razgos... cuando le decimos a la propiedad Notify del TMediaPlayer que sea True, quiere decir que queremos que se dispare el evento OnNotify siempre que el componente TMediaPlayer sufra un Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, StartRecording, Resume, Rewind, Step, o un Stop, como solo queremos evaluar el momento en que termina de reproducir la pelicula, pues entonces evaluamos la propiedad de solo lectura llamada NotifyValue que tiene uno de los siguientes 4 valores:

nvSuccessful : Cuando ejecuta satisfactoriamente un comando, en este caso el play.

nvSuperseded : Cuando el comando es reemplazado por otro.

nvAborted : Cuando el comando es cancelado.

nvFailure : Cuando el comando a fallado.

La explicación que te he dado, practicamente es la traduccion de la ayuda misma , allí encontraras información mucho mas detallada.

Es que eso de Guru me quedo grande y me he visto en la casi obligación de traducir lo que leí .