Spieldauer einer avi oder mpeg Datei

[-=IOI=-]

In meinem Programm ist ein MediaPlayer, der Filme abspielen soll. Nun möchte ich eine Playlist programmieren, in der unter anderem auch die Spieldauer angezeigt wird.

Nach der Suche hier im Forum dachte ich mir, dass die beste Methode wohl das laden jeder einzelnen Datei ist und über MediaPlayer.Length die Zeit auszulesen.

Habe das dann so umgesetzt:

Delphi-Quellcode:

try
 ListBox1.Items.LoadFromFile(ProgDir+'\Media.txt.');      //Playlist laden
 for y := 0 to ListBox1.Count -1 do
 begin
   ListBox6.Items.Add(ExtractFileName(ListBox1.Items[y]));
   ListBox9.Items.Add(IntToStr(y+1));
   MediaPlayer.FileName := ListBox1.Items[y];
   MediaPlayer.Open;
   ListBox10.Items.Add(IntToStr(MediaPlayer.Length));
   MediaPlayer.Close;
 end;
except
end;

Das Umrechnen der zeit mach ich dann, wenn es so funktioniert.
Das Problem ist, dass beim Programmstart so ein CPU Fenster aufgeht und das Programm nicht mehr weiter ausgeführt wird.

Was mach ich da falsch?

Gruß Flo

[fred.reichbier]

Hi!

Zitat von -=IOI=-:

Delphi-Quellcode:

try
 ListBox1.Items.LoadFromFile([b]ProgDir+'\Media.txt.'[/b]);      //Playlist laden
 for y := 0 to ListBox1.Count -1 do
 begin
   ListBox6.Items.Add(ExtractFileName(ListBox1.Items[y]));
   ListBox9.Items.Add(IntToStr(y+1));
   MediaPlayer.FileName := ListBox1.Items[y];
   MediaPlayer.Open;
   ListBox10.Items.Add(IntToStr(MediaPlayer.Length));
   MediaPlayer.Close;
 end;
except
end;

Ist der Punkt hinter Media.txt nur ein Tippfehler?

Mfg;
fred

[-=IOI=-]

Ist eigentlich kein Tipfehler, aber warum er da ist, weiß ich auch nicht mehr so genau. Die gespeicherte Datei wird jedenfalls ohne Punkt gespeichert und das Einlesen funktioniert auch.

Daran kann es nicht liegen

[Christian Seehase]

Moin IOI,

nehme mal try/except raus.
Vielleicht bekommst Du dann eine brauchbare Fehlermeldung.