Форум: "Media";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

Ещё вопросик по BASS.DLL   Найти похожие ветки 

← →
Axer ©   (2004-11-22 16:36) [0]

Здравствуйте, Мастера. С помощью каких функций можно получить данные с микрофона? Примеры и файл BASS.CHM не помогли. Подскажите, пожалуйста. Спасибо.

---

← →
programania ©   (2004-11-22 20:30) [1]


PROCEDURE iniBASSmicro;
var
dName: PChar; i,n,dl,r:integer;
begin
BASS_Init(-1, 44100, 0, form1.handle);
BASS_RecordInit(-1);
i:=0; n:=-1;
dName:=BASS_RecordGetInputName(i);
while dName<>nil do begin
 s:=copy(ansiLowerCase(StrPas(dName)),1,5);
 if (s="micro")or(s="микро") then n:=i;
 inc(i);
 dName:=BASS_RecordGetInputName(i);
end;

i:=0; while BASS_RecordSetInput(i, BASS_INPUT_OFF) do inc(i);
BASS_RecordSetInput(n, BASS_INPUT_ON);
if not BASS_RecordStart(11000, 0, @RecordCallback, 0) then  showMessage("Не нашла микрофона") ;
end;

type tb=array[0..$FFFF] of smallInt; var utb=^tb;

function RecordCallback(Buffer: utb; Length, User: DWord): Bool; stdcall;
var
i,z: integer;
begin
for i := 0 to length div 2 - 1 do begin
 if odd(i) then begin
   z:=buffer^[i];
//тут обработка одного канала
 end;
end;
end;


---

← →
Axer ©   (2004-11-23 10:13) [2]

Ой, спасибо мастер Progamania. Теперь мне всё ясно.

---

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

Форум: "Media";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c