Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 213)

...

Листинг 5.3.
Воспроизведение звука при создании формы приложения
//Функция вызывается при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//Скрываем компонент
MyMediaPlayer.Visible := false;
//Автоматически определяем устройство воспроизведения
MyMediaPlayer.DeviceType := dtAutoSelect;
//Загружаем файл воспроизведения
MyMediaPlayer.FileName := \'start.wav\
//Открываем устройство
if not MyMediaPlayer.AutoOpen then MyMediaPlayer.Open;
//Воспроизводим файл
MyMediaPlayer.Play;
end;

При создании формы Forml воспроизводится звуковой файл start. wav.

В некоторых случаях удобно хранить данные (например, звуковые записи) и использовать их прямо в запускаемом модуле (ЕХЕ-файле). Такой метод предусматривает хранение звука в файлах ресурсов (RES). На этапе сборки программы файлы ресурсов прикрепляются к запускаемому модулю, тем самым увеличивая размер модуля. Но количество файлов, необходимых для корректной работы программы, уменьшается. Так, в предыдущем случае для нормальной работы программы (воспроизведение звука при загрузке) необходим фaйлstart. wav. Следующий пример демонстрирует создание приложения, запускаемый модуль которого будет содержать все необходимые ресурсы, в нашем случае это звуковой файл.

Вначале необходимо создать файл ресурса, содержащий звуковую запись. Для этого понадобится компилятор ресурсов, который находится в кaтaлoгeBorland\ Delphi7\Bin\ и носит имяЬгсс32. ехе. Далее создаем файл ресурса. Все ресурсы (значки, указатели, изображения, таблицы строк и т. п.), используемые приложением, описываются в специальном файле. Такое описание имеет фиксированный формат: