Фонова музика в приложението Delphi, VR-онлайн - безплатен e-zine за всички
Хей! Сега е моментът да се справите с фоновата музика в приложенията на Delphi. Вероятно веднага ще кажете: „Патице, можеш просто да вземеш TMediaPlayer и да го направиш невидим.“ Мога. Не споря. Но по този начин програмата ще консумира повече компютърни ресурси. А звуковите файлове, отделно от EXE файла, не са удобни за носене: те могат да бъдат променяни или изтривани изцяло.
Днес ще ви покажа как да натъпкате WAV файлове в EXE и как да ги възпроизвеждате без компонента MediaPlayer. Ако сте готови, създайте нов проект и незабавно го запазете в отделна директория.
Sound01 RCDATA LOADONCALL Sound01.wav
Sound02 RCDATA LOADONCALL Sound02.wav
Както вероятно вече сте разбрали, това са имена и пътища към файлове. Нашите файлове се съхраняват директно в директорията с ресурса, така че не е необходимо да указвате пътя, а просто посочете името. В този пример два файла са Sound01 и Sound02. Но можете да ги поставите там, колкото искате, въпреки че албумът на любимия ви певец се усмихва.
Сега преименувайте нашия текстов файл на „Sound.rc“. Така. Сега трябва да съставим цялото нещо. Ще компилираме ресурсите чрез BRCC32.exe (Borland Resource CommandLine Compiler), който се предлага в стандартната дистрибуция на Delphi. Пътят и името на файла с ресурси трябва да бъдат посочени като параметър. В нашия случай трябва да изпълним реда:
C: \ - директория Delphi- \ BIN \ BRCC32.EXE C: \ - директория на проекта- \ Sound.rc