Halli hallo liebe Leute,

ich habe mir die Mp3FileUtils.pas von Gausi hier aus dem Forum geladen und damit versucht einen ID3Tag in eine Datei zu schreiben, mit folgendem Code ...

markieren

Code:

        stream := TFileStream.Create(Datei,fmOpenRead or fmShareDenyWrite);
 // ID3-Tag auslesen
        Id3v2Tag.ReadFromStream(stream);
 // an das Ende des Tags springen
        if Not Id3v2Tag.exists then
         stream.Seek(0, sobeginning)
        else
         stream.Seek(Id3v2Tag.size, soFromBeginning);
 
         Id3v2Tag.Artist := Interpret;
         Id3v2Tag.Title := Titel;
         Id3v2Tag.Genre := Genre;
         Id3v2Tag.Year  := Jahr;
         Id3v2Tag.Comment:= datetostr(datum)+' / '+timetostr(datum);
         Id3v2Tag.WriteToStream(Stream);
 
        stream.free;

Diesen Code habe ich aus der beiligenden Manual und hab ihn für meine Bedürfnisse angepasst ..., leider erfolgt bei der Ausführung ne Fehlermeldung : Zugriffsverletzung .....

Kann mir da jemand weiterhelfen?

Ich danke euch im vorraus für die Hilfe und Tipps.

Liebe Grüße, Patrick.

Wo wird die Klasse erzeugt Id3v2Tag?

Hallo und vielen Dank für deine Antwort ...

diesen Teil hatte ich in der tat noch vergessen ... danke für den Denkanstoß!!!

Leider komme ich nun zu einem "Stream-Schreibfehler" ...

markieren

Code:

       stream := TFileStream.Create(Datei,fmOpenRead or fmShareDenyWrite);
// ID3-Tag auslesen
       Id3v2Tag := TId3v2Tag.Create;
       Id3v2Tag.ReadFromStream(stream);
// an das Ende des Tags springen
       if Not Id3v2Tag.exists then
        stream.Seek(0, sobeginning)
       else
        stream.Seek(Id3v2Tag.size, soFromBeginning);

        Id3v2Tag.Artist := Interpret;
        Id3v2Tag.Title := Titel;
        Id3v2Tag.Genre := Genre;
        Id3v2Tag.Year  := Jahr;
        Id3v2Tag.Comment:= datetostr(datum)+' / '+timetostr(datum);
        Id3v2Tag.WriteToStream(Stream);
        stream.free;
        Id3v2Tag.Free;

Zitat von Luckie:

Wo wird die Klasse erzeugt Id3v2Tag?

In den Demos vermutlich im OnCreate der Form. Wenn der Tag erst ausgelesen wird, dann in den Edits einige Infos geändert werden bevor wieder gespeichert wird, kann man sich in der ButtonSaveClick-Methode das erneute auslesen sparen.

ABER: Der Code ist Murks! Ich hoffe mal nicht, dass das so in den Demos drinsteht! (vermutlich nicht, schließlich wird der Stream nur zum lesen geöffnet. )

Id3v2Tag.WriteToStream(Stream); sollte eigentlich NIE direkt verwendet werden. Denn dadurch wird nur der Tag in den Stream geschrieben. Einfach so. Dabei wird weder der bereits vorhandene Tag sauber entfernt, noch wird getestet, ob das neue Tag-Objekt da überhaupt reinpasst. Dadurch werden dann ggf. Audiodaten überschrieben, oder die Datei wird generell ungültig!

Zum Schreiben IMMER WriteToFile(dateiname) benutzen.

Die Methode ist trotzdem public, weil man sie z.B. nutzen kann, wenn man eine neue Mp3-Datei erstellen will, z.B. bei Webradio-Aufnahme und dort am Anfang einen TId3v2-Tag erstellen möchte.

Edit: Also Den Stream rausschmeißen und stattdessen mit dem FileName arbeiten.

Danke Gausi,

Ich habe das jetzt mal angepasst und nehme nun Id3v2Tag.WriteToFile(Datei); zum schreiben des Tags, das klappt auch soweit, allerdings ... wird der Wert aus Id3v2Tag.comment nicht mit gespeichert....??

Der sollte eigentlich auch übernommen werden. Problem könnte höchstens sein, dass in dem Tag mehrere Comment-Frames enthalten sind (das ist erlaubt), und beim Schreiben des "Standard-Kommentars", der bei der Comment-Property benutzt wird, ein anderer Frame verwendet wird als beim lesen. Das wäre dann ein blöder Bug, der mir bisher nicht aufgefallen ist.

Schick mir die Datei, bei der das nicht funktioniert, ggf. mal per Mail. Dann schau ich mir die mal an.

Bin schon dabei ... die Mail geht an die Impressum Adresse deiner Homepage, dauert aber nen kleinen Moment .... ist natürlich gleich ein 15MB track sollte es der fall sein das da mehrere solcher Comments drin sind, kann man die nicht pauschal entfernen lassen bevor man neue reinschreibt, wenn ja -> wie?