Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
25. Jul 2006
Danke, ich habe es jetzt so gelöst:
type
TID3Tag = record
ID: array of Char;
Titel: array of Char;
Artist: array of Char;
Album: array of Char;
Year: array of Char;
Comment: array of Char;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
25. Jul 2006
Und wie kann ich so etwas überprüfen ?
Dein Code oben liest die Id3TagsV2 ein und meiner 1, also muss ich rausfinden, welche Version in der Datei steht und mit dem passenden Code auslesen. Stimmt das so ?
*** edit ***
Warum stehen dann aber die Id3Tags bei den selben Dateien in der Playlist ohne Datenmüll ? In der Playlist: Static-X - The Only
Lauftext: Static-X #0#0#0#0#0#0#0#0#0#0#0#0...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
25. Jul 2006
function TfrmMain.ReadID3Tag(FileName: String): TID3Tag;
var
FS: TFileStream;
Buffer: array of Char;
begin
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
FS.Seek(-128, soFromEnd);
FS.Read(Buffer, 128);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
24. Jul 2006
Hm, ich möchte eigentlich bei meiner Methode bleiben, damit bin ich auch eigentlich zufrieden, aber ich weiß nicht, wie ich die #0-Zeichen da rausholen kann.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
24. Jul 2006
Ich habe keinen Fehler gefunden, vielleicht findet ihr ja einen:
procedure TfrmMain.AddFiles(files : Array of String);
var
len : integer;
i : integer;
begin
len := Length(fFiles);
SetLength(fFiles, len + Length(files));
for i := 0 to pred(length(files)) do
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
24. Jul 2006
Ja, da sind mehrere #0. Wie bekomme ich die weg ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
24. Jul 2006
Keines der Beispiele funktioniert mit der ID3-Tag-Zuweisung.