Id3-Tag

Ochsenfrosch · Beiträge: 75 Win 2000 Prof. Delphi 7

hi

ich such nen sourcecode mit dem ich bei einem Id3-Tag den Artisten von einem Edit Feld speichern kann.
kann mir einer helfen?

hier ist ein code um einen id3 titel zu speichern:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject); 
var datei: tfilestream; 
    titel: string; 
    size: integer; 
begin 
  titel:=Titel.text; 
  datei:= tfilestream.create (pfad.text,fmopenreadwrite); 
  Size:= datei.Size; 
  edit1.Text:= inttostr(size); 
  edit2.text:= titel; 
  datei.Position:= Size-125; 
  datei.Write(pchar(titel)^,30); 
  beep; 
  datei.Free; 
end;

danke

Ochsenfrosch

_________________
Immer positiv denken!!!! (Windows kackt nicht ab, Windows kackt nicht ab....)

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

UltimaTag (ich bin sicher da steht drin, wie das geht :mrgreen:

)

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

Gausi · Verfasst: Mi 28.04.04 12:18

du hast doch eigentlich schon alles, was du zum schreiben brauchst...vorausgesetzt, du verstehst die obige Prozedur.
Das einzige, was dir fehlt, ist der Aufbau des id3Tags. Die letzten 128 Bytes eines mp3 mit id3v1 Tag sehen so aus:

"ID3" 3 characters
Song title 30 characters
Artist 30 characters
Album 30 characters
Year 4 characters
Comment 30 characters
Genre 1 byte

Der Titel fängt also 125 Zeichen vor dem Ende an, der Artist 30 Zeichen später, als bei size-95. das Album bei size-65.
Das Jahr bei size-35, Comment bei size-31, und schließlich Genre bei size-1.

Alles was du in der Prozedur zum schreiben der verschiedenen Eigenschaften ändern musst sind die "125", und die "30", wenn du das Jahr oder das Genre ändern willst (in 4 bzw. 1).

EDIT: Man sollte aber vor dem schreiben überprüfen, ob da ein id3Tag vorhanden ist, sonst überschreibt man Audio-Informationen am Ende des Stücks...Das geht wenn die Zeichen 128,127,126 vor Ende Der Datei "ID3" sind.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme