ضبط صدا با فرمت mp3

[mahdy.asia]

من با دلفی xe7 کار می کنم احتیاج به ضبط صدا دارم با فرمت vaw حجم خیلی زیاد می شد می خواهم صدا را با فرمت mp3 دخیره کنم چطور می تونم این کار را انجام دهم.

[یوسف زالی]

می تونید از کامپوننت هایی مثل audiolab یا چیزای دیگه استفاده کنید، می تونید روی استریم اون رو کانورت کنید، بعد ذخیره کنید ..

[ابوالفضل عباسی]

سلام
در دلفی قسمت import activeX این رو نصب کن: Karaoke Mixer ActiveX Control
بعد کامپوننتش رو به صفحه فرمت اضافه کن.
بعد یک open dialog ,save dialog اضافه کن. بهمراه 3 عدد button
یک edit هم بگذار.
و open dialog رو فیلتراش رو این بگذار 'WAV (*.wav)|*.wav|MP3 (*.mp3)|*.mp3|WMA (*.wma)| *.wma';
و این فرمان ها رو در هریک از button ها قرار بده:

if opendialog1.Execute thenbegin
Edit1.Text :=opendialog1.FileName;
end;

در button بعدی:

KaraokeMixer1.MixerLoadBgAudio( Edit1.Text);
KaraokeMixer1.MixerEnable(true);
KaraokeMixer1.ShowWaveForm := true;
KaraokeMixer1.SetWaveWndPos (0, 0, 320, 240);
KaraokeMixer1.SetWaveWndOwner(Form1.Handle);
KaraokeMixer1.SetWaveWndPopUp(false);
KaraokeMixer1.SetWaveWndStyle(1);
KaraokeMixer1.AudioDevice:=0;
KaraokeMixer1.AudioInputPin:=0;
KaraokeMixer1.OutputType:=2;
KaraokeMixer1.MP3Channels :=2;
KaraokeMixer1.MP3AudioBitrate :=224;
KaraokeMixer1.MP3SampleRate := 44100;
SaveDialog1.Filter := 'MP3 (*.mp3)';
SaveDialog1.DefaultExt := 'mp3';
if savedialog1.Execute then begin
KaraokeMixer1.AudioFileName :=SaveDialog1.FileName;
end;
KaraokeMixer1.Start;
و در button آخر هم این کد رو:

KaraokeMixer1.Stop;
حالا باهاشون کار بکن تا قلقش دستت بیاد.هم با پسوند wav و هم با mp3 ذخیره سازی میکنه

http://www.viscomsoft.com/doc/karaoke/delphistart5.jpg

[hadisalahi2]

اگه کامپوننت ساده و خیلی عالی میخوای
از این استفاده کنه
http://www.delphiarea.com/products/delphi-packages/waveaudio/

[mahdy.asia]

می تونید روی استریم اون رو کانورت کنید منظورتون اینه که با کدنویسی می شه این کانورت رو انجام داد من که هر چی تلاش کردم کدی در این رابطه نتونستم گیر بیارم در صورتی که شما می تونید بیشتر راهنمایی کنید

[mahdy.asia]

اگه کامپوننت ساده و خیلی عالی میخوای
از این استفاده کنه
http://www.delphiarea.com/products/delphi-packages/waveaudio/

این کامپوننت امکان rcord صدا و ذخیره با فرمت mp3 رو نداره

[mahdy.asia]

در دلفی قسمت import activeX این رو نصب کن: Karaoke Mixer ActiveX Control
بعد کامپوننتش رو به صفحه فرمت اضافه کن.
بعد یک open dialog ,save dialog اضافه کن. بهمراه 3 عدد button
یک edit هم بگذار.
و open dialog رو فیلتراش رو این بگذار 'WAV (*.wav)|*.wav|MP3 (*.mp3)|*.mp3|WMA (*.wma)| *.wma';
و این فرمان ها رو در هریک از button ها قرار بده:
من دقیقا همین کار شما رو انجام دادم دو تا مشکل داشت یکی اینکه چند ثانیه طول می کشید تا عملیات رکورد رو شروع کنه دوم اینکه بعد از پایان عملیات حجم فایلی که رکورد انجام شده است صفر است و در حقیقت رکورد نشده است

[ابوالفضل عباسی]

شاید ورژن activex قدیمی باشه.
چون برای من تاخیر رو داره ولی حجمش صفر نیست

[mahdy.asia]

می تونید از کامپوننت هایی مثل audiolab یا چیزای دیگه استفاده کنید، می تونید روی استریم اون رو کانورت کنید، بعد ذخیره کنید ..من این کامپوننت رو تهیه کردم تنظیمات و کامپوننت زیاد داره من نتونستم پیدا کنم چطور باید با فرمت mp3 فایل رکورد کنم.

[developing]

باسلام

می تونید از کتابخانه‌ی زیر استفاده کنید:
United OpenLib of Sound. (https://github.com/fredvs/uos)

امیدوارم مشکلتون با این کتابخانه حل شود.