Форум: "Media";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Вниз
Записывающие устройства Найти похожие ветки
← →
Дмитрий © (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
← →
S@shka © (2004-06-08 13:57) [4]Может он этого не знает потому что модуль не подключен нужный :)
← →
grom (2004-06-08 14:57) [5]а какой модуль
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c
