probleme mit ListBox und MediaPlayer

Hoellenwesen · Beiträge: 17

Hallo

ich hab in meinem mp3-player 2 formen: Form1 = Der Player und
Form2 = Die Playlist mit ListBox! ich möchte, wenn ich in der ListBox in der Form2 ein item markiere, den Playbutton im Form1 drücken, so das das lied abgespielt wird. ich habe es mit folgendem code versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

MediaPlayer1.FileName := Form2.ListBox1.Items[Form2.ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
Timer1.Enabled := True;
Label1.Caption  := Form2.ListBox1.Items.Strings[Form2.ListBox1.Itemindex];

aber wenn ich das prog starte, das itam markiere und dann auf play drücke, kommt die fehlermeldung "Listenindex überschreitet das Maximum (-1)"
was mache ich falsch?

Danke im voraus!

Moderiert von Klabautermann: B- durch Delphi-Tags ersetzt.

Klabautermann · Verfasst: Fr 30.01.04 14:58

Hallo,

dein Titel enspricht nicht unseren Richtlinien. Diese sagen zu dem Thema:

Delphi-Forum Richtlinien hat folgendes geschrieben:

1.1 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist. Eine Pseudocodezeile oder die Nennung des Objektes, um welches es sich in dem Beitrag handelt, helfen da schon mehr weiter.

Ändere bitte das den Titel, indem du deinen ersten Beitrag dieses Threads noch einmal Editierst. Einfach bei dem Beitrag auf Edit clicken, den Titel ändern und wieder auf Absenden.

Gruß
Klabautermann

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Kann es sein, dass deine Form2 den Fokus verliert, sobald du den Knopf auf Form1 anklickst?

VCL-Referenz hat folgendes geschrieben:

Wenn kein Eintrag ausgewählt ist, hat ItemIndex den Wert -1

Ich würde dir noch ratenMediaPlayer1.FileName := Form2.ListBox1.Items.Strings[Form2.ListBox1.ItemIndex]; zu benutzen.

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

Hoellenwesen · Beiträge: 17

Hallo,

ich glaub ich kapier das immernoch nicht, weil es klappt irgendwie noch nciht. ich weiß nicht ob ich jetzt noch mehr falsch gemacht hab als vorher, aber ich poste mal den code, den ich jetzt probiert hab:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to Form2.ListBox1.Items.Count - 1 do
if Form2.ListBox1.Selected[i] then
MediaPlayer1.FileName := Form2.ListBox1.Items.Strings[Form2.ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
Timer1.Enabled := True;
Label3.Caption := Form2.ListBox1.Items.Strings[Form2.ListBox1.ItemIndex];
end;

wäre wirklich nett, wenn du mir code posten könntest, weil ich komm hier echt nciht weiter.

Danke

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Ich habe das nochmal getestet. Bei mir geht das einwandfrei.

Folgendes würde ich dir anraten:
Du kannst einfach

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.FileName := Form2.ListBox1.Items.Strings[Form2.ListBox1.ItemIndex];
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  Timer1.Enabled := True;
  Label1.Caption := Form2.ListBox1.Items.Strings[Form2.ListBox1.ItemIndex];
end;

benutzen, denn ListBoxXYZ.ItemIndex gibt den Index des markierten Eintrags zurück.

Eventuell kannst du noch prüfen ob Form2.ListBox1.ItemIndex >= 0 ist, damit keine Fehler kommen.

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

Hoellenwesen · Beiträge: 17

Hey cool,

jetzt funktioniert es wunderbar. ist ja seltsam.
also vielen dank für deine hilfe!!

MfG

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme