TMediaPlayer - Length und Position

[Amateurprofi]

Zitat von lbccaleb:

Sicher das du denn alles richtig machst??

Ja, ziemlich.
Ich hab das etwas verändert, weil ich keine Fehlermeldungen haben möchte.
Daß etwas nicht funktioniert, sehe ich ja daran, daß der Rückgabewert der Funktion gettimefromfile 0 ist.
Aber ich habe natürlich kontrolliert, ob ich einen Fehler eingebaut habe, indem ich die in deinem Upload enhaltene .exe aufgerufen habe, und die bringt den gleichen Rückgabewert, wie die von mir modifizierte Funktion. (siehe anhängende .jpg).
Im 2.jpg kannst du sehen, daß der Windows Explorer die korrekte Zeit angibt.

Delphi-Quellcode:

FUNCTION TMain.GetTimeFromFile(FileName:String):Double;
var Duration:Double; wFileName:PWideChar; hr:HRESULT; MediaDet:IMediaDet;
begin;
   MediaDet:=nil;
   Result:=0;
   wFileName:=StringToOleStr(FileName);
   try
      hr:=CoCreateInstance(CLSID_MediaDet,nil,CLSCTX_INPROC,IMediaDet,MediaDet);
      if hr<>S_OK then exit;
      hr := MediaDet.put_Filename(wFileName);
      if hr<>S_OK then exit;
      hr:=MediaDet.get_StreamLength(Duration);
      if hr<>S_OK then exit;
      result:=duration;
   finally
      SysFreeString(wFileName);
      MediaDet:=nil;
   end;
end;

[lbccaleb]

kannst du mir die mp3 datei mal bitte zukommen lassen??

[Amateurprofi]

Zitat von lbccaleb:

kannst du mir die mp3 datei mal bitte zukommen lassen??

Hängt an.
Und danke, daß du versuchst zu helfen.

[Gausi]

Ich würde wetten, dass hier die variable Bitrate das Problem ist. Muss es denn so eine Lösung sein, oder geht auch was selbstgemachtes, wie z.B. mit meinen MP3Fileutils? Da wird die Länge korrekt ausgelesen, ganz egal was für Codecs oder sonst was auf dem System installiert sind.

[Amateurprofi]

Zitat von Gausi:

Ich würde wetten, dass hier die variable Bitrate das Problem ist. Muss es denn so eine Lösung sein, oder geht auch was selbstgemachtes, wie z.B. mit meinen MP3Fileutils? Da wird die Länge korrekt ausgelesen, ganz egal was für Codecs oder sonst was auf dem System installiert sind.

Hallo Gausi,
ich habe mir deine MP3Fileutils vor ein paar Tagen heruntergeladen, im ersten Moment nur 'Bahnhof' verstanden und mich anderen Dingen gewidmet.
Gestern wollte ich dann doch den Dingen auf den Grund gehen und habe mit Freude gemerkt, daß sich mein Problem verblüffend einfach lösen ließ.
Herzlichen Dank

Delphi-Quellcode:

FUNCTION TMain.GetDuration(FileName:String):Integer;
var mpi:TMpegInfo;
begin;
   mpi:=TMpegInfo.Create;
   result:=-1;
   try
      if mpi.LoadFromFile(FileName)=MP3ERR_None then result:=mpi.Duration;
  finally
     mpi.Free;
  end;
end;