Länge eines Mediafiles bestimmen

[Pitch-Bull]

Morgen. Wollte mal kurz nachfragen, welche möglichen und übersichtlichen varianten es gibt die spiellänge von mediafiles zu bestimmen (mp3,wma,wav).

[barf00s]

in dem man sich der verschiedenen funktionen von Multimedia/Audio libs (BASS, FMOD, OpenAL, TMediaPlayer, DirectAudio, ...) bedient etwa :)

[Pitch-Bull]

Ich wollte doch nur ein kurzes Beispiel von euch wissen. Es ist ja nicht so, dass ich überhaupt keine Ahnung von Delphi habe, aber ich kann nunmal nicht so gut mit den Parametern umgehen-mit den Typen auch nicht(weiß zum Beispiel nicht was "cardinal" ist...usw.)
Habe nämlich erst vor einem Monat angefangen mit Delphi zu programmieren.

Daher erbitte ich nocheinmal, dass jemand mir eine knappe Variante zeigt, wie ich das mit der Längenbestimmung hinbekomme...

[Wishmaster]

Hi

Es ist nicht so einfach wie du dir das vorstellst! Soviel ich weis stehen alle Informationen in der Datei gespeichert. Ich habe den unten stehenden Code benutzt um die Bitrate von Flac files auszulesen. Du kannst den auch benutzen um die Spiellänge auszulesen. (FDuration)

Delphi-Quellcode:

interface
uses
 Windows, …..;

    // FLAC Info
  type
    TFlacHeader = record
    StreamMarker: array[1..4] of Char; //should always be 'fLaC'
    MetaDataBlockHeader: array[1..4] of Byte;
    Info: array[1..18] of Byte;
  end;


function TAudioEngine.Get_FLAC_Bitrate: WORD;
var fpos : DWORD;
    fHandle : integer;
    FileFS : THandleStream;
    FFileLength : integer;
    FSampleRate : integer;
    FSamples : Int64;
    FDuration : double;
begin
  fHandle := CreateFile(PChar(Cur_FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE,0);
if fHandle =  INVALID_HANDLE_VALUE then
 exit;
   FileFS := THandleStream.Create(fHandle);
   FFileLength:= FileFS.Size;
   FillChar(FHeader, SizeOf(FHeader), 0);
   FileFS.Read(FHeader, SizeOf(FHeader));
   fpos:= FileFS.Position;
   FileFS.Free;
   CloseHandle(fHandle);
    // Process data if loaded and header valid
  if FHeader.StreamMarker = 'fLaC' then
   begin
     with FHeader do
      begin
        FSampleRate:= (Info[11] shl 12 or
                       Info[12] shl 4  or
                       Info[13] shr 4);
        FSamples   := (Info[15] shl 24 or
                       Info[16] shl 16 or
                       Info[17] shl 8  or
                       Info[18]);
        FDuration:= FSamples / FSampleRate;
       end;
     result := Round(((FFileLength - fpos) / 1000) * 8 /FDuration);
  end
   else
    result:= 0;
end;

[Luckie]

Zitat:

Zitat von Pitch-Bull

Ich wollte doch nur ein kurzes Beispiel von euch wissen.

Zu allen oben genannten Bibliotheken gibt es Hilfen und Demos. Die von der bass.dll kenne ich und weiß, dass sie gut sind (die Demos und die Hilöfe). Ohne irgendwo nachzufrgaen, habe ich damit meinen AudioPlayer programmiert: http://www.luckie-online.de/Delphi/Alt/AudioPlayer.zip

[Pitch-Bull]

@Luckie: Deine Audioplayer habe ich mir schon einmal angeguckt und heruntergeladen. Ist es nicht schlecht.

Hätte nur einen Kritikpunkt: ES ist doch nicht sonderlich schön, wenn in deiner Playlist die kompletten Pfade angezeigt werden oder? Hast du bestimmt mit "Assin" in die Listbox eingetragen ne? Ich habe nämlich das gleiche Problem. Mit "ExtractFileName" funktioniert das aber nur mit der methode "ADD". Hast du das vielleicht schon geändert?