Program Odtwarzacz - regulacja głośności

0

Jaką komendę wpisać aby po ustawieniu suwaka w programie zmieniał się dźwięk w windows?

Chodzi o to, że mam odtwarzacz muzyki i chce do niego kontrole dźwięku zrobić.

Jeszcze jak się wyświetla w label nazwę wczytanego pliku? Bo jak wczytam piosenkę to chciałbym aby jej nazwa się wyświetliła.

Jak chce żeby progressbar zaczynał się ładować dopiero po pokazaniu form4 to co muszę w ten kod wpisać? albo co muszę zmienić w properties któregoś komponentu?

procedure TForm4.Timer2Timer(Sender: TObject);
begin
Progressbar1.position:=progressbar1.Position+1;
   if progressbar1.position=150 then Form4.hide;
end;
end. 

Paczka z programem w załączniku.

1

Po pierwsze - jeżeli nie sformatujesz kodu tego programu - nikt nie będzie go czytał.
Pyt 1. http://www.google.pl/search?client=opera&rls=pl&q=delphi+regulacja+g%C5%82o%C5%9Bno%C5%9Bci&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest
Pyt 2. Podczas wczytywania pliku ustawiaj tekst labela na nazwę wczytanego pliku (ExtractFileName)
Pyt 3. Wywal ten kod i do Timera daj:

if (Form4.Visible) Then
 PB.Position := PB.Position + 1;

Cd.pytania pierwszego - czy ty potrafisz szukać informacji w Internecie ?
Jak używać Google

PS: To się co najwyżej do newbie nadaje.

0

Czyli jaką procedurę mam dokładnie wpisać do label aby wyświetlało tą nazwę?
Niestety dalej nie doszedłem ;/

Mógłby mi ktoś napisać kod?

1

Pewnie się to znowu T.R. nie spodoba, że wrzucam z exe, ale masz dołączone do tego posta archiwum i w nim przykładowy kod. Pod Windows 7 nie reguluje on głośności. W XP jak pamiętam jeszcze mi działal. Jednak na próbę wrzuciłem MediaPlayer w przekopiowanym do innego katalogu projekcie i mogłem regulować jego głośnosć oraz wyciszyć. Inne sposoby regulacji głośności globalnie w nowszych systemach niż XP pewnie da się wygooglować. Jak nie w Delphi to w innych językach i spróbować przetłumaczyć. Póki co ode mnie tyle. Może ktoś inny coś więcej Tobie doradzi, a Inne rozwiązanie to skorzystać z biblioteki bass.dll i nią odtwarzać mp3, wave'y lub moduły muzyczne, a głośnośc regulować funkcją BASS_ChannelSetAttribute. W demach bassa jest przykład w podkatalogu Delphi/BassTest.

0

A jaki masz komunikat od kompilatora? Może wrzuć gdxieś projekt. Łatwiej będzie poprawić mając to pod kompilatorem. Kod długi i nie dostrzegam błędów, ale zawsze komunikat sugeruje co jest źle.

0

Dlaczego jak wczytuje piosenkę i chce regulować głośność to program przestaje grać?
[patrz załącznik]

0

Coś musialeś źle ode mnie przekopiować. Zobacz sobie dołaczony kod, odtwarza bez problemów i można regulować głośność. U mnie Twój kod pod Windows 7 pokazuje na mixerze, że program na starcie wycisza glośność do zera. Czyli pewnie źle pobierasz głośnośc. Sam nie wiem. A teraz dłuższa chwila prawdy :) Po 1: za tak "sformatowany" kod ocena niżej wedlug mnie, jak nie umiesz samodzielnie formatowac kodu to użyj: http://olesio.eu/delfor . Po 2: za takie nazewnictwo modulów i komponentów kolejna ocena niżej. Po 3: nie wiem jakie dokladnie było Twoje zadanie, ale taki odtwarzacz powinineś zrobić w oparciu o bibliotekę dll bass lub fmod. Do obu są przykłady i dokumentacje. Można odtwarzać również moduły muzyczne, w najpopulatniejszych formatach trackerowych - na przykład z www.modules.pl (nie liczę Renoise i tym podobnych, ale to jakieś xmle w zipie, a nie amigowy oldskool :)). We wspomnianych bilbiotekach można wygodnie regulować głośność, nie wyskoczy błąd jeżeli będzie skopany na XP sterownik MCI i nie można go naprawić, a taki przypadek miałem na starym komputerze, a widomo chciałem uniknąc reinstallu systemi. A jakbyś się pobawił z fmodem mógłbyś robić ładne wykresy dźwiękowe. Także tyle ode mnie, chciałem dojść czym się różni Twój kod od mojego przykłądu, ale nie wiem coś musiałeś źle wkleić, bo jak widzisz nowy załącznik do tego posta, to wszystko w nim działa jak należy i reguluje głośność dla tej konkretnie aplikacji pod Windows 7.

1 użytkowników online, w tym zalogowanych: 0, gości: 1