Tocar la Cancion siguiente con el MediaPlayer

[pockelsm3]

Buenas, tengon un inconveniente con una applicacion que estoy desarrollando para tocar musica, videos y peliculas.

mi problema consiste en que cuando quiero avanzar a la siguiente mientras ya esta tocando alguna, me da un el siguiente error

MCIDiviceError with message 'cannot determine the divice type from the given filename extension'

Este es el codigo que estoy utilizando

Código Delphi [-]
procedure TFMain.MPSoundNotify(Sender: TObject);
begin
  if MPSound.Mode = mpPlaying then
    begin
      MPSound.Close;
      TCanciones.DisableControls;
      TCanciones.First;
      TCanciones.Delete;
      TCanciones.EnableControls;
      MPSound.FileName := TCancionesRUTA.Value;
      MPSound.Open;
      MPSound.Play;
    end;
end;

[pockelsm3]

Disculpen que el codigo anterior lo utiliza para que pase de una cancion a otra, cuando la que estaba sonando termine.

este es el codigo correcto que estoy utilizando

procedure TFMain.NextClick(Sender: TObject);
begin
MPSound.Stop;
MPSound.Close;
TCanciones.DisableControls;
TCanciones.First;
TCanciones.Delete;
TCanciones.EnableControls;
MPSound.FileName := TCancionesRUTA.Value;
MPSound.Open;
MPSound.Play;
end;

Gracias de antemano

[[enecumene]]

Hola, una pregunta, cual es la funcion del delete que estas haciendo, borras un dato en la tabla canciones?, no le veo sentido, intenta sin el delete:

Código Delphi [-]
procedure TFMain.NextClick(Sender: TObject);
begin
      MPSound.Stop;
      MPSound.Close;
      TCanciones.DisableControls;
      TCanciones.First;
      TCanciones.EnableControls;
      MPSound.FileName := TCancionesRUTA.Value;
      MPSound.Open;
      MPSound.Play;
end;

Saludos.

[pockelsm3]

Gracias por responder

pero si te fijas en el codigo fuente siempre estoy mandado a tocar el primer registro de la tabla, que por eso mando a posicionarse en el primer registro para poder eliminarlo para luego tocar el nuevo registro posicionado en el primer lugar

[Hola_mundo]

Yo resoloví un problema parecido de la siguiente manera: cree una tabla con el Data Base desktop en donde en uno de los campos guardo como un Tipo Alpha el Path donde se encuentra el tema. Y en el preimero de los dos Campos creados coloco un "ID" para Identificar cada path (El campo "ID" es un numero del tipo Long Integer).
Con este Campo "Id" logre , como veras en la primera parte del codigo, que cuando pulses el boton "siguiente" o "next" y estes parado en el ultimo registro de la tabla, automaticamente pases al primero.

Código Delphi [-]
procedure TFormTrack.SpeedButton2Click(Sender: TObject);
begin  // En esta parte detecto si es el ultimo registro y paso al primero.
  if DBGRID1.Columns.Items[0].Field.ASinteger = 13 then begin   //Esta linea apunta a una columna del DBGrid1 donde se encuentra el nuero "ID" del tema o track, el cual convierto del tipo TField a un INTEGER y lo comparo con el ultimo registro de la tabla (en mi caso el N° 13)
     query1.First; // Si es el ultimo, paso al primero.
     MediaPlayer1.FileName := DBGRID1.Columns.Items[1].Field.ASSTRING;      //Esta linea apunta a una columna del DBGrid1 donde se encuentra el path del tema o track, el cual convierto del tipo TField a un String, para que sea compatible con la propiedad MediaPlayer1.FileName
     MediaPlayer1.Open;
     MediaPlayer1.Play;
  end    
   else  //Sino no es el ultimo, paso al sigueinte.
      QUERY1.Next; 
      MediaPlayer1.FileName := DBGRID1.Columns.Items[1].Field.ASSTRING;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
 end;

Espero que te sirva....tiene muchas explicaiones....peroes facil de entender...y no son muhcas lineas de codigo, son solo 9 y contadas.

[Hola_mundo]

Yo resoloví un problema parecido de la siguiente manera: cree una tabla con el Data Base desktop en donde en uno de los campos guardo como un Tipo Alpha el Path donde se encuentra el tema. Y en el preimero de los dos Campos creados coloco un "ID" para Identificar cada path (El campo "ID" es un numero del tipo Long Integer).
Con este Campo "Id" logre , como veras en la primera parte del codigo, que cuando pulses el boton "siguiente" o "next" y estes parado en el ultimo registro de la tabla, automaticamente pases al primero.

Código Delphi [-]
procedure TFormTrack.SpeedButton2Click(Sender: TObject);
begin  // En esta parte detecto si es el ultimo registro y paso al primero.
 if DBGRID1.Columns.Items[0].Field.ASinteger = 13 then begin   //Esta linea apunta a una columna del DBGrid1 donde se encuentra el nuero "ID" del tema o track, el cual convierto del tipo TField a un INTEGER y lo comparo con el ultimo registro de la tabla (en mi caso el N° 13)
  query1.First; // Si es el ultimo, paso al primero.
  MediaPlayer1.FileName := DBGRID1.Columns.Items[1].Field.ASSTRING;      //Esta linea apunta a una columna del DBGrid1 donde se encuentra el path del tema o track, el cual convierto del tipo TField a un String, para que sea compatible con la propiedad MediaPlayer1.FileName
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  end    
   else  //Sino no es el ultimo, paso al sigueinte.
     QUERY1.Next; 
     MediaPlayer1.FileName := DBGRID1.Columns.Items[1].Field.ASSTRING;
     MediaPlayer1.Open;
     MediaPlayer1.Play;
 end;

Espero que te sirva....tiene muchas explicaiones....peroes facil de entender...y no son muhcas lineas de codigo, son solo 9 y contadas.