Записывающие устройства

← →
Дмитрий © (2004-06-04 00:27) [0]

Я уже обращался с подобным вопросом к участникам форума, однако ответ на него не получил. Может повезет сейчас.. В общем задача состоит в следующем я получаю список записывающих устройств, и мне нужно организовать запись c выбранного пользователем из списка устройства.
И смежный вопрос: как получить DeviceID выбранного устройства (если это реализуемо, то предыдущий вопрос отпадает).. Спасибо.

← →
Jel © (2004-06-04 08:05) [1]

var WaveDevicesCaps : array of WAVEINCAPS; // Получаем список устройств procedure TForm1.Button1Click(Sender: TObject); var i : integer; TotalDevices : integer; begin ComboBox1.Clear; TotalDevices := waveInGetNumDevs; setLength(WaveDevicesCaps, TotalDevices); for i := 0 to TotalDevices - 1 do begin waveInGetDevCaps(i, @WaveDevicesCaps[i], sizeOf(WAVEINCAPS)); ComboBox1.AddItem(WaveDevicesCaps[i].szPname, nil); end; end;

Индекс элемента в списке и будет DeviceID выбранного устройства.

← →
Дмитрий © (2004-06-04 10:53) [2]

Спасибо, буду пробовать.

← →
grom (2004-06-05 15:02) [3]

Jel © (04.06.04 08:05) [1]
я хотел запистить ваш пример но делфи не знает что такое WAVEINCAPS

Может он этого не знает потому что модуль не подключен нужный :)

← →
grom (2004-06-08 14:57) [5]

а какой модуль

Записывающие устройства Найти похожие ветки