MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
Odcinek XIV
Multimedia - odtwarzanie muzyki i plików *.avi.
Podczas pracy przy komputerze lubimy posłuchać ulubionej muzyki.
Może wprowadzić odrobinę dz
więku do naszego programu?
Komponent MediaPlayer służy do odtwarzania plików muzycznych i wideoklipów.
Jak zaprogramować odtwarzanie plików muzycznych? Przeanalizujmy wspólnie kod
programu.
KROK 19
Cel: Korzystanie z komponentu MediaPlayer.
1. Otwórz swój program.
2. Skompiluj i sprawdz
, czy działa prawidłowo.
Program powinien otworzyć się z pierwszym formularzem.
Jeśli nie, otwórz pierwszy formularz, wybierając go z listy - Shift+F12.
Potrzebne ci będą dwa przyciski: start i stop.
Użyj do ich budowy komponentu: Button.
Możesz umieścić te przyciski w dowolnym miejscu swojego programu.
Możesz stworzyć oddzielny formularz, wywoływany z górnego menu.
Ja proponuję wygospodarować trochę miejsca na górnym panelu. [rys.1]
rys.1
3. Zaznacz Panel1 (górny).
4. Wstaw Button2 i Button3 (Button1 już wcześniej był wykorzystywany).
5. Ustaw właściwość Caption  start (Button2) i stop (Button3). [rys.1]
6. Dostosuj wielkości obu przycisków.
7. Ustaw atrybuty czcionki według uznania (właściwość Font).
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
Przyda się jeszcze jeden komponent: Label  zakładka Standard, aby wpisać, czego dotyczą
oba przyciski. [rys.2]
Nie jest on jednak konieczny.
rys.2
Na pewno masz już wprawę w wstawianiu etykiet (Label), tego komponentu używałeś już
wiele razy (np. w poprzednim odcinku, kiedy wpisywałeś treść okna O autorze).
8. Wstaw komponent MediaPlayer  zakładka System. [rys.3]
rys.3
9. Ustaw właściwości komponentu MediaPlayer:
" FileName  umieść ścieżkę dostępu do dowolnego pliku *.mid.
Znajdz
dowolny plik (pliki w tym formacie są na przykład w katalogu
Windows/Media, skopiuj go do folderu zawierającego twój program i ustaw ścieżkę
dostępu. [rys.4]
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
rys.4
" AutoOpen  True
" AutoRewind  True
" Enabled  True
10. Do przycisku start przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk start, przeniesiesz siÄ™ do kodu programu. [rys.5]
Wpisz komendÄ™:
MediaPlayer1.Open;
MediaPlayer1.Play;
rys.5
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
11. Do przycisku stop przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk stop, zostaniesz przeniesiony do kodu programu. [rys.6]
Wpisz komendÄ™:
MediaPlayer1.Stop;
MediaPlayer1.Close;
rys.6
12. Skompiluj program i sprawdz
poprawność działania.
Co zrobić, aby w wersji *.exe komponent MediaPlayer był niewidoczny?
Do odtwarzania pliku z muzykÄ… wystarczÄ… tylko przyciski START i STOP.
MediaPlayer możemy ukryć.
13. Ustaw dla komponentu MediaPlayer właściwość Visible  False.
14. Skompiluj program.
15. Sprawdz
działanie swojej aplikacji.
16. Zapisz.
17. Zamknij program Delphi.
KROK 20
Cel: Stosowanie funkcji PlaySound do odtwarzania plików *.vaw.
Do odtwarzania plików *.vaw służy funkcja PlaySound zawarta w module mmsystem. Jeżeli
chcesz zamiast komponentu MediaPlayer zastosować funkcję PlaySound, wykonaj
następujące czynności:
1. Odnajdz
w ostatnio utworzonym folderze swój program.
2. Uruchom plik: Projekt1  Delphi Projekt.
3. Wstaw na panelu przycisk z napisem START.
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
4. Kliknij 2 razy, zostaniesz przeniesiony do kodu programu.
5. Wpisz miedzy begin a end; procedurÄ™ (komendÄ™):
PlaySound ('C:\Windows\Media\Muzyka.vaw',0,SND_SYNC);
W ten sposób definiujemy ścieżkę dostępu i sposób odtwarzania dz
więku.
6. W kodzie z
ródłowym programu dodaj do modułów wymienionych po słowie uses
deklarację korzystania z modułu mmsystem.
7. Skompiluj program.
8. Sprawdz
jego działanie.
KROK 21
Cel: Odtwarzanie plików *.avi.
Jeśli chcesz wzbogacić swój program na przykład o możliwość prezentacji filmów,
proponuję stworzyć oddzielne miejsce, okno, formularz, na którym będziemy je
wyświetlać.
1. Otwórz swój program.
2. Na górnym Panelu w Formularzu 1 umieść przycisk z napisem Film.
Oczywiście możesz go umieścić w dowolnym miejscu na formatce
(poza obszarem edycji  memo).
3. Utwórz nowy formularz (Menu File/New/Form). Będzie to Form4.
4. Zmniejsz nieznacznie rozmiar okna.
5. Ustaw właściwości:
Caption - Film
BorderStyle - bsDialog
Inne właściwości ustaw według własnego uznania. Możesz trochę poeksperymentować.
Nie zapomnij jednak o stworzeniu kopii swojego programu. W razie problemów przy
kompilacji, będziesz zabezpieczony.
6. Wróć ponownie do Formularza 1 (Shift+F12)
7. Kliknij 2 razy na stworzony przez ciebie przycisk - Film, zostaniesz przeniesiony do kodu
programu.
8. Między begin a end wpisz komendę:
Form4.Show;
Przed chwilą stworzyłeś nowy formularz  Form4. Przed kompilacją należy go zapisać.
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
9. Kliknij znaczek dyskietki lub wybierz z menu Plik/Zapisz.
Może się tak zdarzyć, że zapomnisz zapisać zmiany i z rozpędu rozpoczniesz kompilację.
Otrzymasz wtedy komunikat o konieczności zapisania nowo utworzonego Form4 i Unit4.
Kliknij OK.
10. Skompiluj program i sprawdz
jego działanie. Kliknij przycisk Film.
Czy otworzył się Formularz 4?
11. Zamknij okno Film.
12. Zamknij swój program.
Powrócimy do fazy projektowania.
13. Wyświetl Form4 (Shift+F12), jeżeli nie jest już otwarty.
14. Wstaw komponent: Panel, usuń napis na obiekcie, powiększ do rozmiarów ok. 450x350.
[rys.1]
15. Właściwość - BevelOuter ustaw na byNone.
16. Uaktywnij formatkÄ™ (kliknij poza panelem). Wstaw dwa przyciski: start i stop. Ustaw im
odpowiednie właściwości według swojego uznania. [rys.1]
MediaPlayer
Panel
Przyciski
rys.1
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
17. Przyszedł czas na komponent MediaPlayer  zakładka System. Proponuję wstawić go na
samej górze. [rys.1]
18. Ustaw właściwości komponentu MediaPlayer:
" FileName  umieść ścieżkę dostępu do dowolnego pliku *.avi.
Odnajdz
dowolny plik, skopiuj go do folderu zawierającego twój program i ustaw
ścieżkę dostępu.
" DeviceType  dtAutoSelect
" AutoOpen  True
" AutoRewind  True
" Display  Panel1
" Enabled  True
Można ustawić także właściwość VisibleButtons i zablokować lub uaktywnić niektóre
przyciski MediaPlayer.
19. Skompiluj program i sprawdz
jego działanie.
Za pomocą MediaPlayer możesz już uruchomić film.
Do czego zatem służą przyciski start i stop?
Jeżeli nie chcesz uwidaczniać przycisków komponentu MediaPlayer, ustaw właściwość
Visible na False (przy zaznaczonym obiekcie).
20. Do przycisku start przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk start, zostaniesz przeniesiony do kodu programu. [rys.2]
rys.2
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
21. Wpisz komendÄ™:
with MediaPlayer1 do
begin
Open;
DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
Play;
Notify:=True
end;
22. Do przycisku stop przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk stop, zostaniesz przeniesiony do kodu programu. [rys.3]
Wpisz komendÄ™:
MediaPlayer1.Stop;
MediaPlayer1.Close;
rys.4
Czas, aby skompilować program, przetestować i zapisać.
23. Zamknij program Delphi i uruchom pik .exe swojego programu.
24. Wywołaj okno - Film i sprawdz
jego działanie poprzez naciśnięcie przycisku start.
[rys.5]
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
Mam nadzieję, że wszystko działa i nie musisz zaczynać od początku.
Pamiętaj o utworzeniu nowego folderu i skopiowaniu do niego wszystkich plików.
Archiwizuj swoje dane!
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo