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

Вниз

Почему то когда записываю звук с микрофона через TMediaPlayer кач   Найти похожие ветки 

 
Кен   (2002-11-28 07:25) [0]

ество намного хуже чем когда через SoundForger. Уровень помех намного выше. Как решить проблему ? С чем может быть связано ?

Делаю так :

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := dir1 + "calibrate.wav";
MediaPlayer1.Open;
MediaPlayer1.Wait := False;
MediaPlayer1.StartRecording;
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
MediaPlayer1.Stop;
MediaPlayer1.FileName := dir2 + "newfile.wav";
MediaPlayer1.Save;
MediaPlayer1.Close;
end;


В чём может быть ошибка ? Имеет ли значение какие параметры у файла calibrate.wav ? У меня он 16 бит 44100 герц моно.


 
Карелин Артем ©   (2002-11-28 11:07) [1]

>>У меня он 16 бит 44100 герц моно.
Когда я занимался подобными опытами, моя звуковуха плохо писала моно звук. Какая-то ESS была.



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

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

Наверх




Память: 0.46 MB
Время: 0.015 c
1-29790
Zn
2003-02-27 16:27
2003.03.10
Количество файлов в каталоге.


14-30060
Delpher_Gray
2003-02-19 10:43
2003.03.10
Появился новый сайт о Delphi !!


1-29885
jen_bond
2003-02-25 23:25
2003.03.10
Код клавиш клавиатуры


3-29763
Sectey
2003-02-19 18:11
2003.03.10
Access 2 через Ado


14-30006
DimonXP
2003-02-20 11:49
2003.03.10
Не срабатываб точки остнова