como hacer que un tmediaplayer se reproduzca sin parar

[pnsd_89]

Empezado por jhonny

Solo es un media player, es que tal vez te he confundido porque en el codigo del evento coloque MediaPlayer2 por error cuando enrealidad era MediaPlayer1, asi:

Código Delphi [-]procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin TMediaPlayer(Sender).Play; end;

gracias jhonny sos un genio por pero tengo un problema se vuelve mucho mas lento en su reproduccion el video.
esto puede ser porque puse el MediaPlayer.Notyfy := true en el onCreate
aahh. me olvide de mencionar tengo un timer en el formulario con un intervalo de 5000

[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?

[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!!!