Hola amigos, tengo un pequeño desde hace varios dias que me trae vuelto loco. resulta que supuestamente con el mediaplayer en el evento on notify nos avisa de los cambios en ejecucion del reproductor. Pero hacendo una pequeña prueba en base a la ayuda de delphi, en el siguiente codigo, NO avisa cuando se detiene "sttoped" ( yo quiero saber el momento en que se acaba la cancion) de hecho vuelve a ponerse en 'playing'
en sus propiedades tengo activado el autoopen y el autoenabled pero no el el autorewind.
y la cancion viene predefinida en sus pripiedades.
manejo 2 botones unicamente uno para play y el otro para stop.
Alguien que me pueda ayudar se lo agradeciria mucho!
pd. de hecho si pones un cd normal se sigue con cada uno de los tracks.
Código Delphi
[-]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
const
ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped',
'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
begin
with Sender as TMediaPlayer do
begin
if modestr[Mode] = 'Playing' then begin
Form1.Caption := ModeStr[Mode];
edit1.text:= 'Tocando';
notify:= true;
end;
if ModeStr[Mode] = 'Stopped' then begin
Form1.Caption := ModeStr[Mode];
edit1.text:= 'detenidoe';
Notify := True;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.open;
mediaplayer1.play;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
mediaplayer1.Notify:= true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.Stop;
end;
end.