Главная » Как можно получить звук с микрофона?

---

Сначала надо создать пустой аудио файл, допустим windows audio recorder, причем какие у него будут параметры, такие будут и у результирующего файла, затем с помощью var media:tmediaplayer

procedure tform1.btrecordclick(sender: tobject);
begin
with media do
begin
{ set filename to the test.wav file to }
{ get the recording parameters. }
filename := 'd:test.wav';
{ open the device. }
open;
{ start recording. }
wait := false;
startrecording;
end;
end;
procedure tform1.btstopclick(sender: tobject);
begin
with media do
begin
{ stop recording.}
stop;
{ change the filename to the new file we want to write. }
filename := 'd:new.wav';
{ save and close the file. }
save;
close;
end;
end;
Ну вот и все, правда у меня качество такой записи было просто ужасным, удачи!
»»» jammy - jammy@okclub.org (27.11.00 16:52) Читай multimedia api в msdne.
Инициализируешь устройство ввода на нужный формат (то есть на нужное качество), запускаешь в отдельном потоке и читаешь из stream'а.
Можно и через tmediaplayer, однако тогда надо выставить желаемый формат в настройках multimedia. Категория: Языки программирования | Просмотров: 171