ID3v1-Tag, ID3v2-Tag und MPEG-Header einer MP3 auslesen

[Alex_ITA01]

Okay, ich verstehe das Matze.
Nein, dass ihr Probleme wegen Urheberrechten bekommt will keiner hier!
Ich werde heute auch mal im Netz rumgucken ob da irgendwo noch mehr davon rumschwirrt und gucken ob ein Copyright drauf ist.
Jup, werden schon eine passende Lösung finden.
MFG Alex

[Sharky]

Hai ihr,

ich bin mir jetzt nicht sicher...

Aber wenn Alex versichert das die relevanten Codeabschnitte von ihm sind ist doch alles okay?

Sicher ist doch das die meisten der in der Delphi-PRAXiS vorgestellten Codes nicht von dem "Autor" stammen.
Dies finde ich nicht schlimm wenn es sich dabei um eine elementare Weiterentwicklung geht oder der Name des Authors genannt wird.

Immerhin könnte auch ich an zumindest einen "link" zu einem Tutorial mein (c) anmelden da ich dem Author ca. 60% dessen was beschrieben wird erklärte.

Lange Rede kurzer Sinn: Wenn jemand etwas in der CL schreibt und selber sagt das er einen Teil der Informationen aus anderen Codes hat ist dies, so denke ich es, okay.

[himitsu]

Und da es im Moment eh fast unmöglich zu sein scheint, daß er "das is von dem... und das von dem ..." reinschreiben kann
und anscheinend ja wenigstens ein/zwei Quellen entdeckt wurden,

würde es doch auch reichen, wenn zumindestens das Bekannte aufgeführt wird.
So nach dem Motto "hier is was von dem, dem, dem und weitern drin."

Und falls sich doch irgendwann mal jemand meldet, der "sauer is, weil er/sie net aufgeführt wird, dann wird es doch wohl keine große Sache sein den/die noch mit einzufügen (zumindestens dagegen wird dann wohl keiner was haben).

[fakie]

Heyho!
Wie verwend ich denn den Code? Ich hab bisher noch nie Klassen benutzt und weiß deshalb noch nix darüber.. googlen und ausprobiern hat mir nich weitergeholfen...

gruß

[bigg]

Welchen Code?

[fakie]

Zitat von bigg:

Welchen Code?

Den Code des ersten Beitrags also.. ich möchte überprüfen, obs ein ID3v2 Tag gibt, wenn ja, da Artist und Titel auslesen und in ein lblPlaying ausgeben. wenn nicht, dann überprüfen ob ID3v1 vorhanden und dann davon Artist und Titel in das lblPlaying ausgeben. Ansonsten den Dateinamen. Nur wie geh ich mit dem Code um?

gruß

[Muetze1]

[Werbung]Ich habe für genau einen solchen Fall mal meine (auch Klassen benutzende) ID3 Library um ein einfaches Interface erweitert. Mit dem EasyInterface kommst du an diese Informationen ran, ohne dich um irgendwelche Klassen kümmern zu müssen. Klick mich[/Werbung]

[MW97]

Hallo,
ich habe versucht die Units in meinem kleinen MediaPlayer zu benutzen, aber mein Delphi 3 gibt mir haufenweise Fehlermeldungen in der MPEGHeader.pas, haupsächlich etwas wie "inkompatible Typen" und dann größtenteils "inkompatible Typen Char und Integer".

Es wäre echt nett, wenn mir da jemand helfen könnte.
Danke.

[himitsu]

Bedenke bitte, daß dein D3 nicht grade das Jüngste ist und es demnach mit vielen "neueren" Compilerfeatures nicht zurecht kommt.

So, aber da ich (und auch viele Andere) selber kein D3 installiert hab, kann ich ohne detailiertere Fehlermeldung nichts ausrichten.

Also Fehlermeldungen und die zugehörigen Fehlerzeilen/-stellen.


Aber wenn ich dann sowas wie das seh (aus Post #1)

Delphi-Quellcode:

function ReadTag(const FileName: string; var TagData: TagRecord): Boolean;
var
  SourceFile : File;
begin
  try
    Result := true;
    AssignFile(SourceFile, FileName);
    FileMode := 0;
    Reset(SourceFile, 1);
    Seek(SourceFile, FileSize(SourceFile) - 128);
    BlockRead(SourceFile, TagData, 128);
    CloseFile(SourceFile);
  except
    Result := false;
  end;
end;

Dann rate ich von einer Verwendung dieses Codes eher ab.

Wenn, dann eigentlich so

Delphi-Quellcode:

function ReadTag(const FileName: string; var TagData: TagRecord): Boolean;
var
  SourceFile : File;
begin
  AssignFile(SourceFile, FileName);
  FileMode := 0;
  Reset(SourceFile, 1);
  try
    try
      Seek(SourceFile, FileSize(SourceFile) - 128);
      BlockRead(SourceFile, TagData, 128);
      Result := true;
    except
      Result := false;
    end;
  finally
    CloseFile(SourceFile);
  end;
end;

eventuell auch so

Delphi-Quellcode:

function ReadTag(const FileName: string; var TagData: TagRecord): Boolean;
var
  SourceFile : File;
begin
  AssignFile(SourceFile, FileName);
  FileMode := 0;
  Reset(SourceFile, 1);
  try
    Seek(SourceFile, FileSize(SourceFile) - 128);
    BlockRead(SourceFile, TagData, 128);
    Result := true;
  except
    Result := false;
  end;
  CloseFile(SourceFile);
end;

oder ganz ohne Exceptions:

Delphi-Quellcode:

function ReadTag(const FileName: string; var TagData: TagRecord): Boolean;
var
  SourceFile : File;
begin
  AssignFile(SourceFile, FileName);
  FileMode := 0;
  {$I-}
  Reset(SourceFile, 1);
  Seek(SourceFile, FileSize(SourceFile) - 128);
  BlockRead(SourceFile, TagData, 128);
  CloseFile(SourceFile);
  Result := IOResult = 0;
  {$I+}
end;

Vom Codeaufbau her würde ich eher die in Beitrag #6 und #27 verlinkten Codes empfehlen, aber diese laufen teilweise nichtmal in D7/D2006 und demnach erst Recht nicht in einem D3.

[MW97]

Danke für den Tipp