Podobne artykuly:

• Delphi - Piszemy prosty edytor tekstu
• Delphi - Nagrywanie dźwięku
• KillAd
• Delphi - Budowa modułu
• Delphi - Jak pisać?
• Delphi - Pobieranie plików z Internetu
• Delphi - Potęga możliwości ShellExecute()

Skomentuj

Komentarze czytelników

• • Adik0160
  • Wed, 28 December 2011, 18:30
  • przy zabawie z wyświetlaczami siedmisegmentowymi polecam mikrokontrolery avr, więcej możliwości
    
    
    
    
    Odp: Zgoda, jednak artykuł jest o dekoderze 1 z 10. Mikrokontrolery mają zdecydowanie większe pole do popisu niż sterowanie siedmiosegmentowym wyświetlaczem. Ja również z przyjemnością użyłbym scalonego kodera BCD, zamiast budowania opisanego w artykule układu, ale nie o to tutaj chodzi.
• • Ewenement
  • Mon, 12 December 2011, 19:30
  • Witam.
    Jak zrobić ProgresBar do MediaPlayera tak żeby odczytywał długość utworu i ładował się razem z odtwarzaniem piosenki?
    
    
    
    
    Odp: Odpowiadałem już na to pytanie kilka komentarzy niżej. Pozdrawiam.
• • Dawid
  • Thu, 11 November 2010, 20:12
  • Witaj, stworzylem program dzieki twojemu poradnikowi, wszystko dziala , muzyka się odtwarza, jednak problem jest z filmami... Dzialaja za szybko. Wiem, ze musze pobrac informacje o klatce w danym filmie, jednak nie wiem jak? Czy znasz odpowiedz na mój problem? Pozdrawiam.
    
    
    
    
    Odp: Ktoś już mnie kiedyś o to pytał. Komponent TMediaPlayer ma za zadanie sam z siebie odtwarzać filmy z prawidłową prędkością (nie jest potrzebna tutaj Twoja interwencja jako programisty - nie jest prawdą to co piszą na forach). Jeśli tak nie jest to coś jest nie tak. Pierwsza rzecz, która mi się nasuwa to zainstalowane w systemie kodeki. Spróbuj odinstalować wszystkie, a następnie zainstalować FFDShow'y. Na potwierdzenie dodam, iż u mnie odtwarzacze tego typu (zbudowane na TMediaPlayer) działają bez żadnych dodatkowych zabiegów z mojej strony, odtwarzając filmy z prawidłową prędkością.
• • TomRiddle
  • Thu, 8 July 2010, 14:34
  • Witam.
    A mogę spytać, jak skopmilować muzykę razem z progamem?
    Tak, by można było odtwarzać tylko JEDEN utwór, i by można go było odtworzyć również na komputerze, na którym nie ma tego utworu.
    Napisz na GG.
    5228983
    
    
    
    
    Odp: Poczytaj o zasobach. Na LHP masz artykuł Delphi - Zasoby, Delphi - Strumienie danych - TResourceStream. Poczytaj. Pozdrawiam!
• • E.Loaders
  • Wed, 20 January 2010, 18:03
  • Jak do całości już zrobionego odtwarzacza dodać listę odtwarzania i automatyczne jej przechodzenie. jedna piosenka koniec i następna się zacznie według listy. I jeszcze funkcja przeciągnięcia plików muzycznych na listę i rozpoczęcie odtwarzania.
    
    
    
    Odp: Według mojej wiedzy i doświadczenia (kiedyś czytelnik zadał mi identyczne pytanie) na komponencie TMediaPlayer tego nie zrobisz tak prosto. Lepiej skorzystać z paczki DSPack i tamtejszych komponentów, takich jak TDSTrackBar, TFilterGraph. Co do przeciągania i upuszczania plików na listę odtwarzania, dodaj do listy uses słówko ShellAPI, dodaj też deklarację procedury:
    
    
procedure UpuszczeniePlikow(var msg:TWMDropFiles); message WM_DROPFILES;

    
    i jej definicję (na szybko przekopiowana z mojego programu):
    
    
procedure TfmMainForm.UpuszczeniePlikow(var msg:TWMDropFiles);
var
hDrop: THandle;
FileCount: Integer;
FileNameLength: Integer;
FileName: array[0..MAX_PATH] of char;
FileNameStr : string;
rozszerzenie : string;
i,k : integer;
begin
hDrop := msg.Drop;
// Zwraca ilosc przeciaganych plikow
FileCount:= DragQueryFile(hDrop, $FFFFFFFF, nil, 0);

for i:=0 to FileCount-1 do
begin
// Odczytuje długosc nazwy naszego pliku
FileNameLength:=DragQueryFile(hDrop, i, nil, 0);
// Zwraca do bufora nazwę pliku
DragQueryFile(hDrop, i, FileName, Length(FileName));
// Bufor jest większy niż nazwa pliku, dlatego wycinamy string o długosci FileNameLength z bufora
FileNameStr := '';
for k:=0 to FileNameLength-1 do FileNameStr := FileNameStr + FileName[k];
begin
ListBox1.Items.Add(FileNameStr);
end;
end;
end;

    
    no i w procedurze wywoływanej przy starcie programu poinformuj system, że Twój program lubi jak się na niego upuszcza pliki (może być w procedurze OnCreate()):
    
DragAcceptFiles(Self.Handle, True);

    
    Pozdrawiam!
• • Hybrid_Micheal
  • Wed, 18 November 2009, 20:21
  • A jak można dodać listę odtwarzania, a także procedurkę z automatycznym powtórzeniem kiedy utwór lub film skończą się?
    
    
    
    
    Odp: No niestety, trzeba to robić "na około", ponieważ komponent TMediaPlayer jest dosyć ograniczony w swej prostocie i nie udostępnia nam zdarzenia wywoływanego gdy utwór się skończy. Najprościej jest wykorzystać komponent Timer (czyli w zasadzie dodatkowy wątek), który będzie co jakiś czas sprawdzał aktualną pozycję odtwarzania w utworu i odpowiednio zareaguje gdy utwór się skończy. Możesz też wykorzystać zdarzenie Appliation.OnIdle (lub stworzyć osobny wątek) zamiast używać komponentu Timer.
    
    Pozdrawiam!
• • dave
  • Sun, 13 September 2009, 19:21
  • strasznie szybko mi otwarza filmy i nie mam głosu prosze o pomoc
• • RybakPL
  • Thu, 16 April 2009, 17:05
  • Siema! Trzeba mi jeszcze tzw. progressbar odtwarzacza. Da się?
    
    
    
    
    Odp: Patrz - jeden komentarz niżej.
• • E.LOADERS
  • Tue, 17 March 2009, 15:30
  • jak przewijac film za pomoca scroll bar?
    
    
    
    
    Odp: Jeśli na formularzu masz już ustawiony komponent TMediaPlayer i komponent TScrollBar możesz łatwo "dorobić" przewijanie filmu do dowolnej pozycji. Posadź na formularzu jeszcze komponent TTimer z palety System. Kilknij na niego dwukrotnie i wypełnij procedurę następująco:
    
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Jeśli nic nie jest otwarte (żaden plik) to nie rób nic
If MediaPlayer1.FileName = '' Then Exit;
// Ustaw pozycję przesuwaka ScrollBar na aktualną pozycję filmu
// Jednym słowem - przesuwanie suwaka wraz z odtwarzaniem filmu
ScrollBar1.Position := MediaPlayer1.Position;
end;

    
    Po czym zaznacz komponent ScrollBar i w Inspektorze Obiektów odszukaj zdarzenie OnScroll, po czym kliknij dwukrotnie nań aby wygenerować procedurę obsługi zdarzenia OnScroll (wykonywanego przy przesuwaniu suwaka). Procedurę uzupełnij następująco:
    
    
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
// Zapauzuj film
MediaPlayer1.Pause;
// Ustaw pozycję filmu taką, jak pozycja suwaka
MediaPlayer1.Position := ScrollBar1.Position;
// Wznów odtwarzanie
MediaPlayer1.Play;
end;

    
    Teraz ważna sprawa. W procedurze otwierającej film, dopisz po instrukcjiMediaPlayer1.Open następującą instrukcję:
    
    
// Ustawianie maksymalnej pozycji ScrollBara (taka jak długość filmu)
ScrollBar1.Max := MediaPlayer1.Length;

• • E.LOADERS
  • Mon, 16 March 2009, 17:39
  • jak zrobic w delphi ekran odpowiadajacy dekodowaniu i wyswietlaniu filmu?
    oraz fullscren?
    
    
    
    
    Odp: Cóż, nawiązując do artykułu, najprościej jest wykorzystać w tym celu komponent MediaPlayer (można również korzystać z dużo bardziej zaawansowanych komponentów z paczki DSPack). Aby to zrobić, musimy mieć na formularzu coś co nam będzie wyświetlało ten film - przykładowo komponent Panel (paleta Standard). Prócz komponentu Panel, na formularzu potrzebne nam będą jeszcze komponenty MediaPlayer oraz Button. Po ich wstawieniu, zaznaczamy komponent MediaPlayer1 i w Inspektorze Obiektów ustawiamy jego właściwość Display na Panel1. Klikamy teraz dwukrotnie na przycisk i wpisujemy taki kod (odpowiedzialny za otworzenie filmu i rozciągnięcie obrazu na cały komponent Panel).
    

procedure TForm1.Button1Click(Sender: TObject);
begin
// Otwieramy przykładowy plik c:f1.mpeg
MediaPlayer1.FileName := 'c:f1.mpeg';
MediaPlayer1.Open;
// Ustawiamy rozmiar obrazu (taki sam jak rozmiar panelu
// na którym jest wyświetlany)
// Tą linię umieszczamy koniecznie PO funkcji Open
MediaPlayer1.DisplayRect := Panel1.ClientRect;
end;

    
    W ten sposób możemy mieć film przeskalowany do dowolnych rozmiarów. Teraz, aby zrobić pełny ekran, wystarczy rozciągnąć komponent Panel na cały ekran.
• • E.LOADERS
  • Fri, 13 March 2009, 22:41
  • CZY MOZE JEST JAKIŚ PROGRAM KTURYM
    MOZNA BY POWSTAWIAĆ BOOTONY I PO KLIKNIĘCIU ZEBY SIE MUZYKA ODTWARZALA. PROSTY JAKIŚ. WIZUALIZACJE, SKINY, TAKIE TAM ZEBY MOZNA BYLO ZROBIC. LISTA ODTWARZANIA. ?????????
    E.LOADERS@WP.PL
    
    
    
    
    Odp: Nie wiem o co dokładnie pytasz, ale jeśli pytasz o program
    którego zadaniem jest tworzenie odtwarzaczy multimedialnych to... nie słyszałem o takim wynalazku - co nie wyklucza, że coś takiego nie istnieje.
    Tak naprawdę za sprawą komponentów w Delphi można zrobić praktycznie wszystko. Jeśli nauczysz się programować (przykładowo w Delphi) to będziesz w stanie napisać w nim odtwarzacz posiadajacy funkcje o których wspominasz, a więc odtwarzacz z playlistą, wizualizacjami, skórkami i wszystkim tym co sobie wymyślisz. Do sukcesu nie ma windy - trzeba iść po schodach.
• • PM2A
  • Tue, 17 February 2009, 17:12
  • Mam pytanie jak regulować dźwięk za pomocą track bar lub scroll bar ?
    
    
    
    Odp: Niestety komponent TMediaPlayer nie pozwala regulować głośności odtwarzanej muzyki. Należy więc skorzystać z funkcji systemowych. W tym celu, do listy modułów (uses) dodaj słowo MMSystem.
    Gdzieś w kodzie (w sekcji implementation) dodaj takie dwie procedury:
    
// Zmiana głośności dźwięku typu Wave
procedure SetWavVolume(Lewy,Prawy:Byte);
begin
waveOutSetVolume(WAVE_MAPPER, Integer((Lewy shl 24) or (Prawy shl 8 )));
end;

// Zmiana głośności muzyki z płyt CD
procedure SetCDVolume(Lewy,Prawy:Byte);
begin
auxSetVolume(0, Integer((Lewy shl 24) or (Prawy shl 8 )));
end;

    Na formularzu umieść komponent TScrollBar i w Inspektorze obiektów ustaw jego właściwość Max na 127. Kliknij na niego dwukrotnie. Powinna zostać wygenerowana procedura ScrollBar1Change(). Wpisz do niej następujący kod:
    
// Zmiana głośności dla normalnych plików dźwiękowych (WAV lub Mp3)
SetWavVolume(ScrollBar1.Position,ScrollBar1.Position);
// Zmiana głośności dla muzyki odtwarzanej z płyt CD
SetCDVolume(ScrollBar1.Position,ScrollBar1.Position);

• • gizmo
  • Fri, 6 February 2009, 20:39
  • Wszystko było by ok ale.. Filmy odtwarzane są w przyspieszonym tempie.. Jak sobie z tym poradzić..?
• • bez problemu ;)
  • Tue, 6 May 2008, 17:03
  • już wszystko dobrze ;) czy jest jakiś sposób aby moja aplikacja mogłabyć otwierana na innym komputerze, na którym delphi nie jest zajnstalowany ?
    
    
    
    >> Odp: No proste ;-) Inaczej pisanie aplikacji w Delphi byłoby fatalne i nikt by się tym nie zajmował. Ale już odpowiadam. Jeśli pytasz czy jest jakiś sposób by te aplikacje się uruchamiały na innych komputerach to domyślam się, że najprawdopodobniej aktualnie się one nie uruchamiają ;-) Domyślnie (przynajmniej wersja którą ja posiadam) Delphi jest skonfigurowane tak by pisane aplikaje mogły się uruchamiać również w systemach, które nie posiadają zainstalowanego Delphi (chodzi o istnienie w systemie specjalnej paczki bibliotek VCL). Rozwiązaniem jest po prostu wkompilowanie jej w Twój program. Aby to zrobić, kliknij menu Project > Options > Karta Packages > i odznacz opcję "Build with runtime packages" Od tej pory Twoje programy powinny się uruchamiać na każdym systemie Windows.
• • mam problem
  • Thu, 1 May 2008, 14:31
  • gdy klkam na button "graj" wyświetla mi się błąd, co robie źle ?
    
    
    
    >> Cóż... Na odległość nie mogę nic powiedzieć. Patrzyłeś może na dołączony kod źródłowy? Najprawdopodobniej wczytujesz nieobsługiwany format pliku dźwiękowego. Spróbuj coś nagrać przez Windows'owy "Rejestrator dźwięku" i odtworzyć nagranie przez swój program. Jeśli nadal nie działa - napisz do mnie - postaram się pomóc.
• • Lukas
  • Sat, 15 March 2008, 18:28
  • Cześć, chciałem zbadać informacje o niedziałającej funkcji Pause(), napisałem program dokładnie według instrukcji w artykule i funkcja Pause() działa znakomicie. Dołączyłem do artykułu kod źródłowy.
• • Adam
  • Sat, 15 March 2008, 16:43
  • U mnie nie działa Pause!
• • AcantheR
  • Fri, 29 February 2008, 19:04
  • Niezłe :)