Prüfen ob Datei das mp3-Format hat

[arbu man]

Hi,

ich möchte herrausfinden ob, eine Datei das Mp3 Format hat. Dabei hab ich nur den Dateiinhalt, aber keinen Dateinamen.
Ich habe mir bereits einige Mp3-Datei angeschaut aber keine Gemeinsamkeiten Anfang gefunden, kennt jemand von euch eine Lösung.

mfg, Björn

[pstruh]

Hallo Björn,
versuchs einfach mal mit der angehängten Unit mp3_Info.pas - viel Spaß, beim basteln...
Gruß aus Hamburg

[semo]

stichwort "ID3 Tags"

[arbu man]

Ja den MPEG Header auszulesen, wird wohl das beste sein, allerdings ist die Unit mp3_Info.pas dafür nicht sonderlich geeignet, kein LoadFromStream und erzeugt eine Menge AVs beim lesen von nicht mp3 Dateien. Die Unit MP3FileUtils von Gausi aus dem DF leistet da bessere Arbeit. ID3 Tags, kann man auch schlecht benutzen da nicht jede Mp3-Datei Tags hat.
So hier dann meine Function (läuft soweit):

Delphi-Quellcode:

class function TMp3Test.IsFileMp3(AFilename: string): boolean;
var
  Mpeg: TMpegInfo;
begin
  Result := false;
  Mpeg := TMpegInfo.create;
  try
    try
      Mpeg.LoadFromFile(AFilename);
    except
      Exit;
    end;
  finally
    Mpeg.Free;
  end;
  if Mpeg.layer = 3 then begin
    Result := true;
  end;
end;

Danke für den Denkanstoß

mfg, Björn