Odtwarzacz muzyki

[mani]

Witam, zrobiłem odtwarzacz muzyki, posługując się wskazówkami z serwisu Cyfbar. Chciałbym do odtwarzacza dorobić playlistę. Ktoś mógłby pomóc i powiedzieć, w jaki sposób to zrobić?

[Cyfrowy Baron]

Playlistę możesz dorobić za pomocą obiektu klasy TStringList a wyświetlać możesz ją w ListBox, np.

Kod: Zaznacz cały

TStrings *PlayList = new TStringList;

if(OpenDialog1->Execute())
{
PlayList->Add(OpenDialog1->FileName);
PlayList->SaveToFile("playlist.txt");
ListBox1->Items->Assign(Playlist);
}


To tylko prosty przykład ukazujący jak to może wyglądać, całość wymaga dopracowania, ale masz już na czym eksperymentować.

[mani]

OK, dzięki, popracuję nad tym ;]
I jeszcze takie jedno pytanie. Chciałbym w jakimś miejscu próbować wyświetlać nazwę utworu, działa mi coś takiego:

Kod: Zaznacz cały

StatusBar1->SimpleText=OpenDialog1->FileName;

Jednakże, wolałbym pokazywać samą nazwę, a nie całą ścieżkę do pliku.

[Cyfrowy Baron]

Tak na szybko, można tak:

Kod: Zaznacz cały

  String title = ExtractFileName(OpenDialog1->FileName);
  int x = title.Pos(".");
  title = title.SubString(1, x - 1);

  StatusBar1->SimpleText=OpenDialog1->FileName;


[mani]

Nie działa. W sumie, to ten kod nic nie dał ;]

Mam jeszcze kłopot z:
1. Włączeniem piosenki po kliknięciu w daną opcję ListBoksa.
2. Zrobieniem buttona, odtwarzającego następną piosenkę playlisty.

[Cyfrowy Baron]

Popełniłem błąd, powinno być:

Kod: Zaznacz cały

  String title = ExtractFileName(OpenDialog1->FileName);
  int x = title.Pos(".");
  title = title.SubString(1, x - 1);

  StatusBar1->SimpleText = title;


co do kolejnego problemu, następnym razem, dziś już nie mam czasu, ale sam też mógłbyś pokombinować.

[mani]

Coś tam sam myślę ;] Generalnie nie wiem, jak się odwołać do pozycji w ListBoksie, która jest zaznaczona. Bo jeśli dobrze rozumuję, mając taką daną, mogę ją odtworzyć podwójnym kliknięciem, innym przyciskiem odtworzyć następną po niej. Bo chcąc odtworzyć piosenkę 3 w kolejności na playliście, zrobiłem coś takiego:

Kod: Zaznacz cały

MediaPlayer1->FileName = PlayList->Strings[2];

Problem w tym, jak zamienić 2 na numer podświetlonej pozycji.

[Witold]

Generalnie nie wiem, jak się odwołać do pozycji w ListBoksie, która jest zaznaczona.

Kod: Zaznacz cały

  ListBoks->Items->Strings[ListBoks->ItemIndex];   


[mani]

Wielkie dzięki, działa ;]

Jeszcze takie pytanie, jak zrobić, by zaznaczona była aktualnie grająca piosenka. Zrobiłem button next:

Kod: Zaznacz cały

MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex + 1];
MediaPlayer1->Open();
MediaPlayer1->Play();

i zaznaczenie nie przesuwa siÄ™, bo pewnie jakiegoÅ› kodu brakuje ;]

[Witold]

Jeszcze takie pytanie, jak zrobić, by zaznaczona była aktualnie grająca piosenka.

Kod: Zaznacz cały

  AnsiString AktualnieGrajacaPiosenka = MediaPlayer1->FileName;
  int p = ListBoks->Items->IndexOf(AktualnieGrajacaPiosenka);
  if (p!=-1) ListBoks->ItemIndex = p; else throw Exception("AktualnieGrajacaPiosenka nie znajduje siÄ™ w PlayLiscie!");


i zaznaczenie nie przesuwa siÄ™, bo pewnie jakiegoÅ› kodu brakuje ;]

Kod: Zaznacz cały

ListBoks->ItemIndex =  ListBoks->ItemIndex + 1;  // brak sprawdzania zakresu
MediaPlayer1->FileName = ListBoks->Items->Strings[ListBoks->ItemIndex];


[wargo]

Przydatne wskazówki które mogą być przydatne podczas pisania programu:

• wpisz nazwÄ™ komponentu a nastÄ™pnie , poczekaj chwilkÄ™ i powinna pokazać siÄ™ lista funkcji i wÅ‚aÅ›ciwoÅ›ci (wystarczy trochÄ™ angielskiego).
• Każdy komponent ma zakÅ‚adkÄ™ events, gdzie możesz ustawiać różne zdarzenia np. po klikniÄ™ciu myszkÄ….

[mani]

Wielkie dzięki Witold, wszystko gra i buczy.

[mani]

Witam, mam jeszcze 3 pytania.
1. Próbowałem zrobić, aby po kliknięciu klawisza Delete, zaznaczona piosenka była usuwana z playlisty. Utworzyłem w MainMenu1 opcję usuń i nadałem jej skrót klawiszowy Delete. Następnie na kliknięcie klawisza, wpisałem taki kod:

Kod: Zaznacz cały

ListBox1->DeleteSelected();
PlayList->SaveToFile("playlist.txt");
MediaPlayer1->Stop();

W ListBoksie zaznaczyłem Multiselect na true. Po usunięciu więcej niż jednej piosenki i kliknięciu potem Play na innej, niebieskie podświetlenie jest na jednej piosence, a zaznaczenie z kropek na aktualnie zaznaczonej. Jak to naprawić?
2. Jak poprzez OpenDialog otworzyć wszystkie pliki danego formatu w folderze? Ewentualnie, jak uaktywnić przycisk Control podczas otwierania, by dodać kilka rzeczy na raz do mojej playlisty?
3. Co powinienem wpisać w OnDragDrop ListBoksa, aby dodać do playlisty piosenkę poprzez przeciągnięcie jej do ListBoksa.

[Cyfrowy Baron]

Kod: Zaznacz cały

ListBox1->DeleteSelected();
PlayList->SaveToFile("playlist.txt");

Zauważ, że usuwasz zawartość listy ListBox1, a zapisujesz zawartość listy PlaytList, a w tej drugiej żadne zmiany nie zaszły, gdyż nie usunąłeś z listy PlayList niczego. Usunięcie czegokolwiek z listy ListBox1 nie jest równoznaczne z usunięcia czegokolwiek z listy PlayList, z listy PlayList musisz usunąć to samo co z ListBox1. Nie mogę powiedzieć jak to zrobić, gdyż nie wiem w jaki sposób umieszczasz dane na liście PlayList, w jaki sposób przepisujesz to do ListBox1.

Obiekt OpenDialog niczego nie otwiera on tylko zwraca ścieżkę dostępu do pliku zaznaczonego w oknie dialogowym. Żeby móc pobierać ścieżki dostępu do wielu plików trzeba ustawić w komponencie OpenDialog właściwość Options ofAllowMultiSelect na true. Pobieranie wielu ścieżek w takiej sytuacji odbywa się nie do jednej zmiennej typu AnsiString lecz do listy typu TStrings. Tak na szybko może to wyglądać tak:

Kod: Zaznacz cały

  AnsiString nazwaPliku = "";
  TStrings *listaPlikow = new TStringList;

  OpenPictureDialog1->Options = OpenPictureDialog1->Options << ofAllowMultiSelect;

if(OpenPictureDialog1->Execute())
{
   if(OpenPictureDialog1->Files->Count > 1)
   {
    listaPlikow->Assign(OpenDialog1->Files);
   }
   else
   nazwaPliku = OpenDialog1->FileName;
}


[mani]

Nie mogę powiedzieć jak to zrobić, gdyż nie wiem w jaki sposób umieszczasz dane na liście PlayList, w jaki sposób przepisujesz to do ListBox1.

Tak, jak sam poradziłeś kilka postów wyżej ;]

Kod: Zaznacz cały

TStrings *PlayList = new TStringList;

if(OpenDialog1->Execute())
{
PlayList->Add(OpenDialog1->FileName);
PlayList->SaveToFile("playlist.txt");
ListBox1->Items->Assign(Playlist);
}