• Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


Иллюстрированный самоучитель по Delphi 7 для начинающих

Воспроизведение звука

Звуковые фрагменты находятся в файлах с расширением WAV. Например, в каталоге C:\Winnt\Media можно найти файлы со стандартными звуками Windows.

Следующая программа (вид ее диалогового окна приведен на рис. 11.6, а текст – в листинге 11.2) демонстрирует использование компонента MediaPlayer для воспроизведения звуковых фрагментов, находящихся в WAV-файлах.

Помимо компонента MediaPlayer на форме находится компонент ListBox и два компонента Label, первый из которых используется для вывода информационного сообщения, второй – для отображения имени WAV-файла, выбранного пользователем из списка.

Работает программа следующим образом. После появления диалогового окна воспроизводится "Звук Microsoft", затем пользователь может из списка выбрать любой из находящихся в каталоге C:\Windows\Media звуковых файлов и после щелчка на кнопке Воспроизведение услышать, что находится в этом файле.

Иллюстрированный самоучитель по Delphi 7 для начинающих › Мультимедиа-возможности Delphi › Воспроизведение звука
Рис. 11.6. Форма программы Звуки Microsoft Windows

Значения измененных свойств компонента MediaPlayer1 приведены в табл. 11.6, значения остальных свойств оставлены без изменения.

Таблица 11.6. Значения свойств компонента MediaPlayer1.

Компонент Значение
DeviceType DtAutoSelect
FileName C:\Winnt\Media\3вук Microsoft.wav
AutoOpen True
VisibleButtons.btNext False
VisibleButtons.btPrev False
VisibleButtons.btStep False
VisibleButtons.btBack False
VisibleButtons.btRecord False
VisibleButtons.btEject False
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.