Delphi Mediaplayer Fehler

[CreativeMD]

Hallo Liebe Community
Ich will eine Datei mit OpenDialog in den Mediaplayer einspeisen. Aber wenn ich eine Datei in Documente auswähle funktioniert es nicht.
Liegt es an Windows 7?
Danke im voraus!

[smart]

zeig mal dein code.

[Klaus01]

Hallo,

was passiert denn nicht?

Wird die Datei nicht gefunden?
Wird sie, wenn sie denn gefunden wurde, nichtabgespielt?

Schon mal F8/F7 ausprobiert?

Grüße
Klaus

[CreativeMD]

Also es soll eine Playlist sein die etwas aus der Datei öffnet.

Delphi-Quellcode:

if ausgelesen[aktuell] = 'Spiel' then aktuell := 4;

      Form1.Mediaplayer1.Close;
      Form1.Mediaplayer1.Filename := ausgelesen[aktuell];
      Form1.Mediaplayer1.Open;
      Form1.Mediaplayer1.Play;
      Form1.Liedtitel.AlphaChannel := 1;
      Form1.Liedtitel.Visible := true;
      Form1.Liedtitel.Caption := '♪ Play song: ' + ExtractFileName(ausgelesen[aktuell]);
      aktuell := aktuell+1;
      warten := 2000;
      ausgelesen.Free;
    end;

Die Datei exsitiert wirklick
C:\Users\Nicht Wichtig\Documents\01 Better Way.mp3
Nicht Wichtig ist der Benutzername den ich nicht zeigen will.

Der Fehler ist in einer MessageBox und lautet:
"Kein MCI-Gerät geöffnet"
"Fehler beim Starten vom MCI

[smart]

Delphi-Quellcode:

  if OpenDialog1.Execute then
     begin
       if ausgelesen[aktuell] = 'Spiel' then aktuell := 4;
 
       Form1.Mediaplayer1.Close;
       Form1.Mediaplayer1.Filename := OpenDialog1.FileName;
       Form1.Mediaplayer1.Open;
       Form1.Mediaplayer1.Play;
       Form1.Liedtitel.AlphaChannel := 1;
       Form1.Liedtitel.Visible := true;
       Form1.Liedtitel.Caption := '♪ Play song: ' + ExtractFileName(ausgelesen[aktuell]);
       aktuell := aktuell+1;
       warten := 2000;
       ausgelesen.Free;
     end;

so würde ich das machen.

[CreativeMD]

Sorry eine Datei speichert die Playlist ab.
Welche Dateien geöffnet werden müssen und dann öffnet der Mediaplayer die entsprechende Datei. Also es ist nur indirekt mit Opendialog, weil man damit nur was in die Playlist datei reinschreibt

[smart]

Oh sorry, du woltest ja eine liste.

[smart]

Sorry, aber ich verstehe nicht so ganz was du machen möchtest? Was ist

Delphi-Quellcode:

ausgelesen[aktuell]

? Ein wenig mehr Info wäre gut.
In

Delphi-Quellcode:

ausgelesen[aktuell]

müsste der Pfard und der Dateiname enthalten sein.

[CreativeMD]

dort ist der Dateiname drin.
Mit allen anderen Pfaden funktioniert es ja.

[smart]

mit welchen denn nicht?