"Fehler beim starten von mci

[jaschu]

Hallo!

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

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

Danke schonmal für eure Antworten!

Bis denn,
jaschu
:hi:

[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:

Delphi-Quellcode:

mpl.FileName := ListBox1.Items.Strings[random(ListBox1.Items.Count)];

Und wenn du random() nutzen willst musst du

Delphi-Quellcode:

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... :gruebel:
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 ;)