Error calculando duración MP3

[tarco35]

Hola, tengo el siguiente codigo de delphi 6:

Código Delphi [-]

type
  HMSRec = record
    Hours: byte;
    Minutes: byte;
    Seconds: byte;
    NotUsed: byte;
  end;

// y ya en código

  If OpenDialog1.Execute then begin
    Label16.Caption := OpenDialog1.FileName;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Rewind;
    MediaPlayer1.TimeFormat := tfHMS;
    TheLength := MediaPlayer1.Length;
    with HMSRec(TheLength) do { Typecast TheLength as a HMSRec record }
    begin
      Label17.Caption := IntToStr(Hours);
      Label17.Caption := Label17.Caption+'H ' + IntToStr(Minutes) + 'M ';
      Label17.Caption := Label17.Caption+ IntToStr(Seconds)+ 'S ';
    end;
  end;

Y cuando selecciono un archivo MP3 el tiempo no lo hace bien, el fichero lo reproduzco con el VLC, por ejemplo y esta bien y la duracción que dice si es real, pero en este codigo, sacado de la ayuda, da unos valores muy diferentes.

Que estoy haciendo mal???
Gracias

[ecfisa]

Hola tarco35.

Intenta de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  len: Integer;
  mp : TMediaPlayer;
begin
  if OpenDialog1.Execute then
  begin
    mp := MediaPlayer1;
    mp.FileName   := OpenDialog1.FileName;
    mp.TimeFormat := tfMilliseconds;
    mp.Open;
    len := Trunc(mp.Length / 1000);
    Label16.Caption := mp.FileName;
    Label17.Caption := Format('%d:%d:%d',[len div 3600, len div 60, len mod 60]);
    mp.Close;
  end;
end;

Saludos

[tarco35]

Va perfecto... muchas gracias.... un saludo.

[ecfisa]

Me alegro

Por si te resultase mas cómoda, rapida, etc., esta es otra forma en que podes conseguir la duración:

Código Delphi [-]
uses mmSystem;

function MP3Length(const FileName: string): string;
var
  LenStr: string;
  len   : Integer;
begin
  mciSendString(PChar(Format('open "%s" alias MP3',[FileName])), nil, 0, 0);
  SetLength(LenStr, 255);
  mciSendString('status MP3 length', PChar(LenStr), Length(LenStr), 0);
  len := Trunc(StrToInt(LenStr) / 1000);
  Result := Format('%d:%d:%d', [len div 3600, len div 60, len mod 60 ])
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShowMessage(MP3Length(OpenDialog1.FileName));
end;

Saludos

[tarco35]

Y ya ... hay alguna forma de saber cuando termina de reproducir un TmediaPlayer.. he probado con el evento OnNotify pero parace ser que solo se produce cuando haces click.

[ecfisa]

Hola de nuevo.

El evento es el correcto pero tendrías que evaluar la propiedad Mode, ejemplo:

Código Delphi [-]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
  mp: TMediaPlayer;
begin
  mp := TMediaPlayer(Sender);
  if mp.Mode = mpStopped then
  begin
    ShowMessage('¡ Se terminó !');
    mp.Notify := True;
  end;
end;

( Recuerda que es una pregunta por hilo... )

Saludos