Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Звуковая карта   Найти похожие ветки 

 
darha ©   (2002-04-23 21:59) [0]

Помогите, пожалуйста! Есть ли у кого процедура, которая могла бы определить наличие звуковой карты на компьютере, чтобы исключить ошибку, при выполнения воспроизведения звукового файла. Заранее спасибо!


 
Anatoly Podgoretsky ©   (2002-04-23 22:23) [1]

waveOutGetNumDevs


 
Sergo ©   (2002-04-24 16:47) [2]

Вот примерный код:

uses Windows, MMSystem;
type
TModeDescr=record
mode: DWORD; // код режима работы
descr: string[32]; // словесное описание
end;

const
// массив содержит сопоставления режима работы и словесного описания
modes: array [1..12] of TModeDescr=((mode: WAVE_FORMAT_1M08; descr:"11.025 kHz, mono, 8-bit"),
(mode: WAVE_FORMAT_1M16; descr:"11.025 kHz, mono, 16-bit"),
(mode: WAVE_FORMAT_1S08; descr:"11.025 kHz, stereo, 8-bit"),
(mode: WAVE_FORMAT_1S16; descr:"11.025 kHz, stereo, 16-bit"),
(mode: WAVE_FORMAT_2M08; descr:"22.05 kHz, mono, 8-bit"),
(mode: WAVE_FORMAT_2M16; descr:"22.05 kHz, mono, 16-bit"),
(mode: WAVE_FORMAT_2S08; descr:"22.05 kHz, stereo, 8-bit"),
(mode: WAVE_FORMAT_2S16; descr:"22.05 kHz, stereo, 16-bit"),
(mode: WAVE_FORMAT_4M08; descr:"44.1 kHz, mono, 8-bit"),
(mode: WAVE_FORMAT_4M16; descr:"44.1 kHz, mono, 16-bit"),
(mode: WAVE_FORMAT_4S08; descr:"44.1 kHz, stereo, 8-bit"),
(mode: WAVE_FORMAT_4S16; descr:"44.1 kHz, stereo, 16-bit"));
procedure ShowInfo;
var
WaveNums, i, j: integer;
WaveInCaps: TWaveInCaps; // структура в которую помещается информация об устройстве
begin
WaveNums:=waveInGetNumDevs;
if WaveNums>0 then // если в системе есть устройства аудиоввода,то
begin
for i:=0 to WaveNums-1 do // получаем характеристики всех имеющихся устройств
begin
waveInGetDevCaps(i,@WaveInCaps,sizeof(TWaveInCaps));
// добавляем наименование устройства
MainForm.Memo.Lines.Add(PChar(@WaveInCaps.szPname));
for j:=1 to High(modes) do
begin
// выводим поддерживаемые устройством режимы работы
if (modes[j].mode and WaveInCaps.dwFormats)=modes[j].mode then
Memo.Lines.Add(modes[j].descr);
end;
end;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-95835
Бегемотик Йо
2002-08-16 23:29
2002.08.29
Сращиввание экзешников


3-95638
Mike Kouzmine
2002-08-07 15:30
2002.08.29
Для Johnmena. Нумерация записи.


1-95899
CCCatch
2002-08-18 19:38
2002.08.29
Удаление всех символов кроме цифр.


1-95852
snoup
2002-08-17 22:00
2002.08.29
Как сделать чтобы в мемо определенный текст был например красного


3-95695
sdram
2002-08-08 16:29
2002.08.29
Как добавить запись с пустыми полями?