ضبط صدا از طریق میکروفون

با سلام
آیا می توان در دلفی صدا را از طریق میکروفون ظبط کرد ؟ با چه کامپوننتی ؟
با تشکر

[JavanSoft]

دلفی با کامپوننت Mediaplayerنم تواند ضبط را انجام دهد
اگر می خواهید به من Email بزنید تا 1 کامپوننت برای اینکار برایتان بفرستم

جوان سافت عزیز
کامپوننت را دریافت کردم و مشکلم حل شد.
از کمکی که به من کردید با ارسال کامپوننت متشکرم.

[JavanSoft]

خواهش می کنم عزیز
------------------
من نمی دونم چطوری می تونم تو سایت ای کامپوننت رو بزارم
اگر ممکنه مدیر لطف کنند و بگویند

[Valadi]

نیازی به کامپونت نیست شما می تونید با این کد صدا را ضبط کنید

uses mmSystem;



{....}



procedure TForm1.Button1Click(Sender: TObject);     // Record

begin

  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);

  mciSendString('SET mysound TIME FORMAT MS ' +     // set time

    'BITSPERSAMPLE 8 ' +                // 8 Bit

    'CHANNELS 1 ' +                     // MONO

    'SAMPLESPERSEC 8000 ' +             // 8 KHz

    'BYTESPERSEC 8000',                // 8000 Bytes/s

    nil, 0, Handle);

  mciSendString('RECORD mysound', nil, 0, Handle)

end;





procedure TForm1.Button2Click(Sender: TObject);     // Stop

begin

  mciSendString('STOP mysound', nil, 0, Handle)

end;





procedure TForm1.Button3Click(Sender: TObject);      // Save

var 

  verz: String;

begin

  GetDir(0, verz);

  mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);

  mciSendString('CLOSE mysound', nil, 0, Handle)

end; 

[vcldeveloper]

خوبه ما اون اخطار مربوط به قدیمی بودن تاپیک رو گذاشتیم!
بعد از 5 سال تاپیک رو آوردید بالا که "کامپوننت رو برای من بفرست"؟!!

[KavehChakherloo]

خوبه ما اون اخطار مربوط به قدیمی بودن تاپیک رو گذاشتیم!
بعد از 5 سال تاپیک رو آوردید بالا که "کامپوننت رو برای من بفرست"؟!!

خسته نباشید. از دوستان یه کامپوننت خواستیم که پیاممونو حذف کردید. باید از طریق دیگه ای عمل میکردیم . راهنمایی کنید.

[KavehChakherloo]

از این کدها نتیجه نگرفتم، همچنان منتظر راهنمایی برای ضبط صدا از طریق میکروفون هستم.

[sajioo]

دوست عزیز کدها ایرادی نداره . من چک کردم سالم بود جواب داد.
می تونی تغییر زیر رو در کدها بدی
به جای GetDir(0, verz);
بذار verz:='c:\'; رو بذاری
سپس پس از ظبط صدا در درایو c به دنبال فایل test.wav بگردی