"Fehler beim starten von mci

[jaschu]

Hallo!

Ich bekomme bei der Tmediaplayer-Komponente den Fehler
"Fehler beim Starten von mci".

Kann sich jemand diesen erklären?
Ich hab bemerkt dass schon mehrere dieses Problem hatten aber eine eindeutige Lösung hab ich net gefunden...


Danke schonmal für eure Antworten!

Bis denn,
jaschu

[jaschu]

weiß keiner Rat?

Gibts ne andere (bessere) Komponente?

[Matze]

Zeig mal bisschen Code, bitte.

[jaschu]

Oh ja, sorry:

Delphi-Quellcode:

  listbox1.clear;
  createplaylist;
  listbox1.Items.AddStrings(playlist.name);
  play := playlist.pfad.Strings[random(playlist.pfad.Count)];
  mpl.FileName := play;
  mpl.Open;
  mpl.StartPos := random(mpl.Length);
  mpl.Play;
  Timer1.Enabled := True;

Das is das einzige was ich bisher mit dem mediaplayer(mpl) mache...

[DymonD]

Hast du da ein Array oder eine ListBox? Wenn eine ListBox, wie sprichst du sie dann an? ALso normal wäre das so:
mpl.FileName := ListBox1.Items.Strings[random(ListBox1.Items.Count)]; Und wenn du random() nutzen willst musst du Form1.Randomize; erst aktivieren.

NACHTRAG:
Schau dir mal meine Prozedur an:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fIndex: integer;
  w, h: integer;
  ext: string;
begin
if ListBox1.ItemIndex < 0 then
  MediaPlayer1.FileName := ListBox1.Items.Strings[0]
  else
  MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
ext := ExtractFileExt(MediaPlayer1.FileName);

// [...]

MediaPlayer1.Play;
Timer1.Interval := MediaPlayer1.Length;
TrackBar1.Max := MediaPlayer1.Length;

 // [...]

[jaschu]

So, funzt jetzt...

Delphi-Quellcode:

  play := playlist.pfad.Strings[random(playlist.pfad.Count)];
  mpl.Close;
  mpl.FileName := play;
  mpl.Open;
  mpl.StartPos := random(mpl.Length);
  mpl.Play;
  Timer1.Enabled := True;

Ach ja,
Dymond: Is ne Listbox, ich spreche sie so an:

Delphi-Quellcode:

  play := playlist.pfad.Strings[random(playlist.pfad.Count)]; 
  mpl.FileName := play;

Randomize steht in der Formcreate

Also denn, danke für die Antwort!

Bis denn,
jaschu

[DymonD]

Was das pfad in der ListBox zu suchen hat, ist mir immer noch nicht klar...
Was hast du vorhind falsch gemacht?

[jaschu]

ich hab das
mpl.Close;
vergessen...

Das Programm werd ich posten, wenns fertig ist - dann wirst du sehen warum