Einzelnen Beitrag anzeigen

SmokyDieter

Registriert seit: 18. Dez 2012
3 Beiträge
 
#4

AW: Stammverzeichnis ändern?

  Alt 18. Dez 2012, 21:11
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
  Mit Zitat antworten Zitat