#0
by eogsys
Какая функция в DELPHI позволяет выводить звук не на системный динамик а через звуковую карту?
#3
by kostyak
uses MMSystem; type TVolumeLevel = 0..127; procedure MakeSound(Frequency {Hz}, Duration {mSec}: Integer; Volume: TVolumeLevel); {writes tone to memory and plays it} var WaveFormatEx: TWaveFormatEx; MS: TMemoryStream; i, TempInt, DataCount, RiffCount: integer; SoundValue: byte; w: double; // omega ( 2 * pi * frequency) const Mono: Word = $0001; SampleRate: Integer = 11025; // 8000, 11025, 22050, or 44100 RiffId: string = 'RIFF'; WaveId: string = 'WAVE'; FmtId: string = 'fmt '; DataId: string = 'data'; begin if Frequency > (0.6 * SampleRate) then begin ShowMessage(Format('Sample rate of %d is too Low to play a tone of %dHz', [SampleRate, Frequency])); Exit; end; with WaveFormatEx do begin wFormatTag := WAVE_FORMAT_PCM; nChannels := Mono; nSamplesPerSec := SampleRate; wBitsPerSample := $0008; nBlockAlign := (nChannels * wBitsPerSample) div 8; nAvgBytesPerSec := nSamplesPerSec * nBlockAlign; cbSize := 0; end; MS := TMemoryStream.Create; with MS do begin {Calculate length of sound data and of file data} DataCount := (Duration * SampleRate) div 1000; // sound data RiffCount := Length(WaveId) + Length(FmtId) + SizeOf(DWORD) + SizeOf(TWaveFormatEx) + Length(DataId) + SizeOf(DWORD) + DataCount; // file data {write out the wave header} Write(RiffId[1], 4); // 'RIFF' Write(RiffCount, SizeOf(DWORD)); // file data size Write(WaveId[1], Length(WaveId)); // 'WAVE' Write(FmtId[1], Length(FmtId)); // 'fmt ' TempInt := SizeOf(TWaveFormatEx); Write(TempInt, SizeOf(DWORD)); // TWaveFormat data size Write(WaveFormatEx, SizeOf(TWaveFormatEx)); // WaveFormatEx record Write(DataId[1], Length(DataId)); // 'data' Write(DataCount, SizeOf(DWORD)); // sound data size {calculate and write out the tone signal}// now the data values w := 2 * Pi * Frequency; // omega for i := 0 to DataCount - 1 do begin SoundValue := 127 + trunc(Volume * sin(i * w / SampleRate)); // wt = w * i / SampleRate Write(SoundValue, SizeOf(Byte)); end; {now play the sound} sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC); MS.Free; end; end; // How to call the function: procedure TForm1.Button1Click(Sender: TObject); begin MakeSound(1200, 1000, 60); end;
#4
by kostyak
uses shellapi; //выключить systemparametersinfo(spi_setbeep, 0, nil, 0); а здесь просто выключаешь вывод звука на динамик
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
В этой группе 1С
- Не удалось заблокировать таблицу '_REFERENCE15'
- Как программно изменить цвет в ячейке отчета?
- Передача значения в форму выбора
- Каким образом программно можно выгрузить базу.
- Как узнать имя таблицы и имена полей на SQL-Сервере для объекта?
- Кто знает что такое "ИТС. NFR (Расширенный комплект для аттестованного спец
- Как провильно выполнить запрос (1С 7.7) ?
- Дополнительные строки в баланс
- Как сделать пять закладок на форме?
- Data Matrix в 1С
- КНИГА 1C программирование - как дважды два"
- Сваливается 1с
- Вопрос про СохранениеПериодическихРеквизитов()
- timeout expired при выполнение сложных запросов в SQL через ADO
- Учет давальческого сырья в торговле
- конфигурация "конвертация данных". не переносятся проводки ручных операций.
- 7.7 список значений из значений перечисления, сортировка
- Где хранятся параметры "Параметры базы данных SQL"?
- Сальдо, накопленная задолженность, выплата зп?
- Вопрос к тем, кто работает с векселями