Pasek boczny
Konto
Konto
Szukaj
Szukaj
Ustawienia
Ustawienia
Szukaj

Szukaj w:



Zaawansowane wyszukiwanie
Ustawienia
Przełącz na wersję mobilną
Motyw
Język
Portale internetowe Kissdigital.pl - rozwiązania mobilne Kofeina sklep
Projekt, budowa i promocja - budujemy kompleksowo portale internetowe w oparciu o Drupal. Zaawansowane aplikacje mobilne - bogate portfolio. Dostarczamy czystą kofeinę, z której możesz sam przygotować "energetyka" takiego jak lubisz.




Odtwarzacz mp3 w Delphi - lekcja 4
  • 0 Głosów - 0 Średnio
  • 1
  • 2
  • 3
  • 4
  • 5
Subskrybuj ten temat
janex19950
Użytkownik
Offline

Reputacja: 0

 0     0    
1   12-05-2013   16:50   
Pokaże Wam jak dodać playlistę do naszego odtwarzacza.
Zaczynamy
Na początku umieszczamy dwa komponenty ListBox z palety Standard.
Zmieniamy właściwości Visible komponentu ListBox2 na false(to tu będą przechowywane ścieżki do plików).
Teraz cofamy się do lekcji 1 mamy tam button służący do otwierania pojedynczego pliku. Dla przypomnienia podam Wam kod tego buttona, oto on:
Kod:
if OpenDialog1.execute then
mediaplayer1.filename(OpenDialog1.filena​​me);
mediaplayer1.open;
To teraz zmieniamy kod na:
Kod:
if OpenDialog1.execute then
listbox1.Items.Add(extractfilename(opend​ialog1.FileName));
   listbox2.Items.Add(opendialog1.FileName)​;
Teraz przechodzimy do ListBox 1 klikamy na niego dwukrotnie i wpisujemy:
Kod:
listbox2.ItemIndex:=listbox1.ItemIndex;
Również w ListBox 1 wybieramy zdarzenie (ramka po lewo na dole, zakładka Events) OnDbClick i wpisujemy:
Kod:
mediaplayer1.FileName:=listbox2.items.St​rings[listbox2.Itemindex];
mediaplayer1.Open;
mediaplayer1.Play;
I to wszystko. Więcej opcji i funkcji znajdziecie na moim forum, którego banner mam w sygnaturce3




Zaloguj się lub zarejestruj, aby odpowiedzieć w temacie.
Dołącz do naszej społeczności!


Zarejestruj się
Posiadasz konto? Kliknij poniżej.


Zaloguj się


Użytkownicy przeglądający ten temat: 1 gości

Centrum napraw komputerów Warszawa ▪ Apartamenty w Kościelisku ▪ Szkolenia dla farmaceutów ▪ Youboost Łukasz Wudyka

Portal  Kontakt  Pomoc  Facebook 
© CentrumWindows
Tłumaczenie © 2007-2014 Polski support MyBB
Skrypt forum MyBB, © 2002-2016 MyBB Group
Biznes-Host