 |
 |
 |
 |
 |
|
Sprachen und Entwicklungsumgebungen
Object-Pascal / Delphi-Language
Delphi ID3v2 Chapter Baumstruktur erzeugen
Offene Frage von "Gausi"|
Registriert seit: 5. Mär 2008 Ort: Jena 2 Beiträge |
#1
ID3v2 Chapter Baumstruktur erzeugen
30. Jul 2011, 15:10
Erstmal Hallo an euch alle.
Das ist mein erstes Thema was ich heute schreibe. Also bitte nicht so streng sein mit mir. Was die Erklärung der Frage angeht, weiß ich noch nicht so ganz wie ich sie formulieren soll.  Ich lese aus einer MP3 Datei, alle gefundenen Inhaltsverzeichnisse und Kapitel in zugehörige Klassen ein. Die zwei Klassen stehen hier.
Delphi-Quellcode:
Danach packe ich die jeweiligen Klassen in ein TOjectList und zum Schluss übergebe ich Sie der Funktion "GetTreeText".
type TCHAP=class // Kapitel
ElementID: String; // eindeutiger Bezeichner (z.b. ch1) end; type TCTOC=class //Inhaltsverzeichnisse ElementID: String; // eindeutiger Bezeichner (z.b. TOC1) TopLevel: Boolean; // Wurzelknoten EntryCount: Integer; // Anzahl der Childelemente ElementIDList: array of String; //Childelementen Liste (z.b. TOC2, ch1, ch2, TOC3) end;
Delphi-Quellcode:
Diese Funktion sollte mir in folgender Form ein String zurück geben:
function GetTreeText(Playlist:TObjectList): String;
procedure InlineGetTreeText(ElementID: String = ''; space: string = ''); var i, y: Integer; Begin if Playlist.Count <> 0 then Begin for i := 0 to Pred(Playlist.Count) do Begin if Playlist.Items[i].ClassType = TCTOC then Begin if (ElementID = '') or (ElementID = TCTOC(Playlist.Items[i]).ElementID) then Begin Result := Result + space + '+' + TCTOC(Playlist.Items[i]).ElementID + #13; if ElementID = TCTOC(Playlist.Items[i]).ElementID then Begin Delete(space,length(space)-1,2); break; End; if TCTOC(Playlist.Items[i]).EntryCount <> 0 then Begin for y := 0 to Pred(TCTOC(Playlist.Items[i]).EntryCount) do Begin InlineGetTreeText(TCTOC(Playlist.Items[i]).ElementIDList[y],space + ' '); End; End; End; End else Begin if (ElementID = '') or (ElementID = TCHAP(Playlist.Items[i]).ElementID) then Result := Result + space + '-' + TCHAP(Playlist.Items[i]).ElementID + #13; if ElementID = TCTOC(Playlist.Items[i]).ElementID then Begin Delete(space,length(space)-1,2); break; End; End; End; End else result := ''; End; Begin InlineGetTreeText; End;
Code:
Das Problem was ich jetzt habe ist, die Inhaltsverzeichnisse kommen im ID3v2 Tag der MP3 Datei alle zuerst und dann erst die Kapitel.
+TOC1
-TOC2 -ch1 -ch2 +TOC3 +TOC4 +TOC5 -ch3 -ch4 Also in dieser Form: TOC1 TOC2 TOC3 TOC4 TOC5 ch1 ch2 ch3 ch4 In dieser Reihenfolge befinden sie sich auch im TObjectList. Ich müsste also die ursprüngliche Baumstruktur wiederherstellen. Das wollte ich auch tun aber die Funktion GetTreeText liefert mir folgendes zurück:
Code:
Wenn jemand sich die Funktion mal anschauen könnte währe ich unendlich dankbar.
+TOC1
+TOC2 -ch1 -ch2 +TOC3 +TOC2 +TOC3 +TOC4 -ch4 +TOC4 +TOC5 -ch3 +TOC5 -ch1 -ch2 -ch3 -ch4 Im vorraus schon mal 1000 Dank. Paulchen |
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Baum-Darstellung
