4 respuestas en este tema

[enecumene]

Hola colegas a ver si alguien me ayuda con esto, estoy haciendo una vellonera, y en un DBGrid se va llenando una lista canciones, quisiera lograr lo siguiente, que cuando termine una canción se elimine del DBGrid (siempre es el primer registro) y tocar la siguiente en la lista (al eliminar la anterior ésta se convierte en el primer registro), éste es el código del Play :

delphi

procedure TFMain.PngSpeedButton7Click(Sender: TObject);
var Formato: String;
    I: integer;
begin
 
if meList.RecordCount > 0 then
  begin
 
Progreso.MaxValue := 0;
 
meList.First;
MediaPlayer1.Close;
MediaPlayer1.FileName := meListRUTACA.AsString;
Image1.Picture.LoadFromFile(meListIMAGEN.AsString);
Formato := Copy(MediaPlayer1.FileName,Length(MediaPlayer1.FileName)-3,4);
MediaPlayer1.Open;
 
 
if (Formato = '.avi') or (Formato = '.wmv') or (Formato = '.mpg') then
  begin
    FMain.Image1.Visible := False;
    MediaPlayer1.Display := Panel10;
    MediaPlayer1.DisplayRect := Rect(0, 0, Panel10.Width, Panel10.Height);
    MediaPlayer1.Play;
  end else begin
    Image1.Visible := True;
    MediaPlayer1.Play;
  end;
 
    Progreso.MaxValue := MediaPlayer1.Length;
    Timer1.Enabled := True;
 
  end else begin
    //Nada
  end;
end;

Y Aquí en el evento OnNotify del MediaPlayer intenté hacer lo que ando buscando pero no funciona:

delphi

procedure TFMain.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Mode = mpStopped then
  Begin
    MeList.First;
    meList.Delete;
    PngSpeedButton7Click(Sender);
  end;
end;

Saludos.

[coso]

Hola, lo primero que se me ocurre :

delphi

MediaPlayer1.FileName := [b]Trim([/b]meListRUTACA.AsString);

[enecumene]

Muchas gracias Coso, creo que no me hice entender bien, no es lo que busco, lo que trato de determinar es cuando una canción ha terminado y así correr la siguiente canción de la lista.

Saludos.

[enecumene]

Hola de nuevo, ya pude resolver el asunto, cambié el ProgressBar que tenía por un TrackBar, y coloqué este código en su evento OnChange:

delphi

procedure TFMain.ProgresoChange(Sender: TObject);
begin
if Progreso.Position = MediaPlayer1.Length then
  begin
    meList.First;
    meList.Delete;
    meList.Last;
    PngSpeedButton7Click(Sender);
  end;
end;

Me ha funcionado de Pelos, Gracias de nuevo a Chackall .

Saludos.

[cHackAll]

...Me ha funcionado de Pelos, Gracias de nuevo a cHackAll ...

Para servirte.

Pido disculpas a la comunidad por no haber dado las ideas respectivas por el foro, sino por otro medio.

Saludos