bin jetzt mit meinem Latein am Ende deswegen frage ich euch: Habe ne Playlist erstellt, die ich mit dem TMediaPlayer abspielen lassen will. Wenn ich das Programm ausführe (im Debug Modus) klappt auch alles wunderbar...
Wenn ich allerdings die fertige .exe Datei ausführe und die Playlist abspielen lassen will, wird immer nur das erste und letzte Lied abgespielt???!!
Hier mein Code:

int iItems = ListBox1->Items->Capacity;

if(libPlaylist->ItemIndex < iItems - 1)
{
ListBox1->ItemIndex++;
MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1-ItemIndex];
libPlaylist->ItemIndex = ListBox1->ItemIndex;
MediaPlayer1->Open(); // Media Player aktivieren
MediaPlayer1->Notify = true;
MediaPlayer1->Play();
}

if(MediaPlayer1->Mode == mpPlaying)
MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons >> btPlay << btPause << btStop;

Hoffe ihr könnt mir helfen!
Gruß Pit

Und in Zukunft bitte die Code-Tags verwenden. Danke!

Ich bin ein Schulkollege vom pit2 und wir arbeiten zusammen an dem Projekt. Ich hab mir jetzt 3 Stunden den Kopf zerbrochen über die Playlist aber hab absolut keine Ahnung warum das nicht funktioniert. Wie schon gesagt wenn ich das ganze mit dem Borland starte geht es. Wenn man die exe von Hand startet funktioniert das nicht. Mein Wissen reicht leider nicht aus zu verstehen warum das so ist.

Das mit dem Count hab ich mir angekuckt. Wenn ich das einigermassen verstanden habe ist das sowas ähnliches wie for_each. Was mir das hier helfen soll weis ich aber nicht.

Ich poste hier mal den ganzen Code. Die ListBox1 ist die Playlist für den Player. Die libPlaylist ist auch eine ListBox allerdings nur für die Anzeige da hier Titel, Interpret etc angezeigt werden.

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
    int iItems = ListBox1->Items->Capacity;

    if(MediaPlayer1->Mode == mpPlaying)
	    MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons >> btPlay << btPause << btStop;

    else if(MediaPlayer1->Mode == mpStopped)       // Sobald Stoptaste gedrueckt wird, Player stoppen
        {
	    MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons << btPlay >> btPause >> btStop;
        MediaPlayer1->Stop();

       ListBox1->ItemIndex = 0;
       libPlaylist->ItemIndex = 0;
   	MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
   	MediaPlayer1->Open();                  // Media Player aktivieren

        }

    if(libPlaylist->ItemIndex + 1 == iItems && libPlaylist->ItemIndex != -1)       // Player anhalten, sobald das letzte Lied zu ende ist
    	{
        MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons << btPlay >> btPause >> btStop;
    	MediaPlayer1->Stop();
        ListBox1->ItemIndex = 0;
        libPlaylist->ItemIndex = 0;
        MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
        MediaPlayer1->Open();                  // Media Player aktivieren
        MediaPlayer1->Notify = true;
       	}

    else
    {
    	if (iItems > 0)
    	{
       		ListBox1->ItemIndex++;
    		   MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
       		libPlaylist->ItemIndex = ListBox1->ItemIndex;
       		MediaPlayer1->Open();              // Media Player aktivieren
               MediaPlayer1->Notify = true;
               MediaPlayer1->Play();

        }
     }
}

Währe fein wenn jemand sich das ankucken würde! Morgen ist nämlich Abgabe-Termin und bis auf die Playlist funktioniert eigentlich alles.

Gruß ALex

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
  if(MediaPlayer1->Mode == mpPlaying)
        if ((ListBox1->ItemIndex) + 1 != ListBox1->Count)
        {

        ListBox1->ItemIndex++;
        libPlaylist->ItemIndex = ListBox1->ItemIndex;

        MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons >> btPlay << btPause << btStop;
        MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
        MediaPlayer1->Open();                  
        MediaPlayer1->Notify = true;
        MediaPlayer1->Play();
        }

  if(MediaPlayer1->Mode == mpStopped)       
        {
        MediaPlayer1->EnabledButtons = MediaPlayer1->EnabledButtons << btPlay >> btPause >> btStop;
        MediaPlayer1->Stop();
        MediaPlayer1->Rewind();
        }
}

Wenn jemand weis war hier falsch läuft dann bitte melden.

if (ListBox1->ItemIndex < ListBox1->Count)

halte ich für wesentlich eleganter

Ansonsten kann ich euch nur empfehlen in eurer Programm mal Logging-Ausgaben zu machen. Also das eure Programm zur Laufzeit die Aufrufe von Methoden und die Werte wichtiger Variablen in eine Textdatei schreibt die ihr dann auswertet. Insbesondere ist die Abbruchbedingung interessant.

Kompiliert ihr eurer Projekt im Debug- oder Releasemodus? Mit oder ohne Laufzeitpackages? Mit oder ohne dynamischen RTLs?

bis bald
akari

Hallo

if (ListBox1->ItemIndex < ListBox1->Count)

halte ich für wesentlich eleganter

Hab ich so gemacht. War nur schnell hinprogrammiert zum testen

akari schrieb:

Ansonsten kann ich euch nur empfehlen in eurer Programm mal Logging-Ausgaben zu machen. Also das eure Programm zur Laufzeit die Aufrufe von Methoden und die Werte wichtiger Variablen in eine Textdatei schreibt die ihr dann auswertet. Insbesondere ist die Abbruchbedingung interessant.

Kompiliert ihr eurer Projekt im Debug- oder Releasemodus? Mit oder ohne Laufzeitpackages? Mit oder ohne dynamischen RTLs?

Sowohl als auch. Hab alle durchprobiert. Immer dasselbe. Es macht keinen Unterschied ob mit RTLs oder ohne usw. Im Debug-Modus gehts, sonst nicht.

Gruß Alex

Ich vermute dieses Phänomen tritt auch auf wenn das ganze ohne Debugger läuft. Man sieht nämlich schön wie der ItemIndex in der Playlist nach unten rauscht und beim letzten Lied stehen bleibt. Bloss woran kann das liegen? Normalerweise wird doch das OnNotify-Ereignis nur aufgerufen wenn eine Methode zu Ende ist?

Gruß Alex

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender) 
{ 
      if(ListBox1->ItemIndex + 1 < ListBox1->Count)
       {
       ListBox1->ItemIndex++; 
       MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex]; 
       MediaPlayer1->Open();                
       MediaPlayer1->Notify = true;
       MediaPlayer1->Play();
       } 
}

Normalerweise wird doch das OnNotify-Ereignis nur aufgerufen wenn eine Methode zu Ende ist?

Naja, Play() ist ja zuende, aber das Lied hat grade erst angefangen, denk ich mal. Wenn du Notify=true setzt, bevor du Play() aufrufst, muß ja OnNotify gleich wieder ausgelöst werden. Also entweder du setzt Notify=true nach Play() oder du fragst ab, was der Grund für OnNotify war. Wenn Mode==mpPlaying setzt du wieder Notify=true und brichst ab.

soweit ich das verstanden habe muss Notify vor einer Methode, welche beim Beenden ein Notify-Ereignis auslösen soll, auf true gesetzt werden. Danach wirds automatisch auf false gesetzt d.h. es muss bei der nächsten Methode wieder auf true gesetzt werden wenn Notify gewünscht.

So oder ähnlich stehts in der Hilfe.

Aber das mit dem abfragen ob Mode == mpPlaying ist und dann nichts machen ist ne gute Idee. Die probier ich heut Abend gleich aus.

Gruß Alex

Ich habe mal ein ähnliches Projekt geschrieben (habe leider hier den Source nicht mehr), aber ich habe dafür einen Timer benutzt, der den aktuellen Zustand (Position) abgefragt hat und entsprechend darauf reagiert hat. (Bei Songs hintereinander abspielen, sollte eine Timer von z.B. 100-200ms reichen).