ok, vielen dank schonmal für die antwort, und hier der code:
for i := 0 to (opendialog.files.count -1) do
begin
stream := TFileStream.Create(Opendialog.Files[i], fmOpenRead or fmShareDenyWrite);
Id3v2Tag.ReadFromStream(stream);
if Not Id3v2Tag.exists then stream.Seek(0, soFromBeginning)
else stream.Seek(Id3v2Tag.size, soFromBeginning);
MpegInfo.LoadFromStream(Stream);
Id3v1Tag.ReadFromStream(stream);
stream.free;
Title := ID3v1Tag.Title;
Artist := ID3v1Tag.Artist;
Album := ID3v1Tag.Album;
Genre := ID3v1Tag.Genre;
Duration := MPegInfo.Duration;
Year := ID3v1Tag.Year;
path := opendialog.Files[i];
save(path, Title, Artist, Album, Genre, Year, Duration);
end;
danach treten die genannten probleme auf: assignfile(playlistdata, 'playlist1.lst'); rewrite(playlistdata); führt also zum beispiel nicht mehr wie gewünscht dazu, dass im verzeichnis, in dem auch die exe liegt, eine entsprechende datei erzeugt wird, sondern die datei befindet sich dann in dem verzeichnis, aus dem der opendialog seine files geladen hat...
einige der funktionen befinden sich in einer extra
unit, soll ich die alle raussuchen und mit reinposten?
danke schonmal
Dieter