Hi,
ich möchte von einer Datei, egal wie lang der Name ist, die Endung herausfinden. Dazu benutze ich Pos und Copy. Bei zu langen Dateinamen liefert Copy allerdings ein falsches Ergebniss zurück. Die betroffenen Zeilen sind mit Pfeilen markiert.
Delphi-Quellcode:
TID3Tag = record
ID: Array[0..3] of Char;
Titel: Array[0..30] of Char;
Artist: Array[0..30] of Char;
Album: Array[0..30] of Char;
Year: Array[0..4] of Char;
Comment: Array[0..30] of Char;
Genre: Byte;
Filename: String;
Endung: String; <--
end;
function TfrmMain.ReadID3Tag(const FileName: String): TID3Tag;
var i : Integer;
begin
FillChar(Result, SizeOf(Result), 0);
with TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone) do
try
Position := Size - 128;
Read(Result.ID, 3);
Read(Result.Titel, 30);
Read(Result.Artist, 30);
Read(Result.Album, 30);
Read(Result.Year, 4);
Read(Result.Comment, 30);
Read(Result.Genre, 1);
Result.Filename := Filename;
i := Pos('.' , Filename); <--
Result.Endung := UpperCase(Copy(Filename, i + 1, Length(Filename))); <--
ShowMessage(Result.Endung); <-- bei zu langen Dateinamen kommt z.B. safhdfagshfghds.mp3 als Rückgabewert an, bei kurzen Dateinamen läuft alles
finally
Free;
end;
end;
Ich weiß nicht, ob die Methode gut ist, denn es gibt schließlich doch Leute, die . in einen Dateinamen reinschreiben, dann bricht natürlich bei dem Programm alles zusammen, aber da sind es nicht immer 3 Zeichen lange Endungen sondern auch teilweise 4, wie z.B. MPEG oder AIFF.