MP3-ID3Tag

[Alex_ITA01]

Hallo an alle,ich würde gerne mal gebrauch vom Id3Tag machen.
Ich hab ihn auch schon angewannt und er geht ja auch aber es gibt ein problem,
er zeigt mir die dauer der mp3 falsch an. wie kann ich sie noch auslesen?
danke alex

[Tpercon]

Dazu müßtest du uns erstmal sagen, wie du die Tags jetzt ausliest.

[Alex_ITA01]

Delphi-Quellcode:

function readID3Tag(FileName: string): TID3Tag;
var
  Buffer: array[1..128] of char;
  F: File;
  mp3hdrread: array[1..4] of byte;
  mp3hdr: longint absolute mp3hdrread;
  tempbyte, bitrateindex, versionindex: byte;
  bitrate, version, layer, groese: longint;
begin
  AssignFile(F, Filename);
  Reset(F,1);
  groese := filesize(f);
  blockread(f,mp3hdrread,4);
  tempbyte := mp3hdrread[1];
  mp3hdrread[1] := mp3hdrread[4];
  mp3hdrread[4] := tempbyte;
  tempbyte := mp3hdrread[2];
  mp3hdrread[2] := mp3hdrread[3];
  mp3hdrread[3] := tempbyte;

  reset(f,1);
  Seek(F,FileSize(F)-128);
  BlockRead(F, Buffer, SizeOf(Buffer));
  CloseFile(F);
  bitrateindex := ((mp3hdr shr 12) and $F);
  versionindex := ((mp3hdr shr 19) and $3);

  case versionindex of
    0: version := 3;
    1: version := 0; //unbekannt
    2: version := 2;
    3: version := 1;
  end;

  layer := 4 - ((mp3hdr shr 17) and $3);

  if version <> 0 then
    bitrate := MPEG_BIT_RATES[version][layer][bitrateindex]
  else
    bitrate := 128;

  with ID3Tag do
  begin
    ID := copy(Buffer,1,3);
    Titel := copy(Buffer,4,30);
    Artist := copy(Buffer,34,30);
    Album := copy(Buffer,64,30);
    Year := copy(Buffer,94,4);
    Comment := copy(Buffer,98,30);
    Genre := ord(Buffer[128]);
    sample := sample_rates[version][((mp3hdr shr 10) and $3)];
    dauer := (groese * 8) div ((bitrate) * 1000);
    bits := bitrate;
    vers := version;
    layers := layer;
  end;
end;

wenn dir das weiterhilft...
nur die dauer geht net richtig

[edit=sakura]Bitte selbständig die Delphi-Tags setzen Mfg, sakura[/edit]

[Sharky]

Hai Alex,

zum einen vernachlässigst Du bei deiner Berechnung der Dauer das Du von der Dateigröße die Größe des ID3-Headers abziehen musst.

Der andere Punkt. Viele MP3´s benutzen Variable Bitraten (oder wie das heisst).

[KaotiC]

Hallo Alex,

die Länge einer Datei bei konstanter Bitrate kannst Du wie folgt berechnen:

Anzahl Bits = (Dateigröße in Bytes - Abstand des ersten Frames vom Dateianfang) * 8
Länge in Sekunden = Anzahl Bits / Bitrate in bit/s

Beispiel:

Dateigröße 3.000.000 Bytes, Abstand des ersten Frames vom Anfang 500 Bytes, 128kbit/s

(3.000.000 - 500) * 8 / 128000 = 187,47 Sekunden

Bei dieser Rechnug wird ein evtl. ID3v1-Tag am Ende der Datei nicht berücksichtigt, dieses ist jedoch nur 128 Byte groß und würde das Ergebnis lediglich im Millisekunden-Bereich beeinflussen.

Funktioniert so allerdings nicht bei VBR, da ist es komplizierter.

Gruss

[Alex_ITA01]

ok danke schön für die hilfe, hab es jetzt hinbekommen und es geht. habe alle möglichen id3tags ausgelesen (v2 oder v1)
danke alex