Registriert seit: 30. Nov 2005
Ort: München
5.784 Beiträge
Delphi 10.4 Sydney
|
Re: Problem mit Opendialog und for-Schleife
16. Jun 2006, 14:01
Delphi-Quellcode:
procedure TMainForm.fill_playlist;
var stream: TFilestream;
l: TListItem;
begin
if opendialog.Execute then
for i := 0 to opendialog.Files.Count do
with ListView1 do
begin
l := ListView1.Items.Add;
Items.BeginUpdate;
Application.ProcessMessages;
stream := TFileStream.Create(opendialog.files.strings[i], fmOpenRead or fmShareDenyWrite); // <- strings[i]
if not Id3v2Tag.exists then
stream.Seek(0, sobeginning)
else
stream.Seek(Id3v2Tag.size, soFromBeginning);
MpegInfo.LoadFromStream(Stream);
Id3v1Tag.ReadFromStream(stream);
l.Caption := Id3v1Tag.Artist;
l.Subitems.Add(Id3v1Tag.Title);
l.Subitems.Add(Id3v1Tag.Album);
l.Subitems.Add(Id3v1Tag.year);
l.Subitems.AddStrings(opendialog.Files);
Items.EndUpdate;
end;
stream.free;
end;
dann sollte es gehen.
Grüße
Klaus
[edit] zwei xxx ein Gedanke [/edit]
Klaus
|
|
Zitat
|