ذخیره صوت از کارت صوتی در دلفی

[nimaken]

با سلام
چگونه می توانم در دلفی صوت ورودی از Line in و یا میکروفون را به یکی از فرمت های صوتی ذخیره کنم. آیا می توان از توابع MCI استفاده نمود ؟ به چه طریقی ؟ متشکر

[dkhatibi]

ابزارهای این کار وجود دارند.
فکر کنم kdtele این کار را می کنه.

[حرفه ای]

من MediaPlayer دلفی در پوشه System رو پیشنهاد می کنم

امتحان کن آسونه اگه مشکل داشتی ! درخدمتیم

[Inprise]

از بسته خوبی که کامبیز نوشته میتونی استفاده کنی :
http://www.delphiarea.com/products/waveaudio

[dkhatibi]

VideoGrobber هم چیز خوبی است.
http://www.datastead.com/vidgrab/faq.htm

[حرفه ای]

زمان ضبط
CopyFile(_PathPro+'\Null.wav',_PathPro+'\TempNull. wav');
MediaPlayer1.FileName:=_PathPro+'\TempNull.wav';
MediaPlayer1.Open;
MediaPlayer1.StartRecording;
زمان استپ
MediaPlayer1.Pause;
MediaPlayer1.Stop;
MediaPlayer1.Save;
MediaPlayer1.Close;
If SaveDialog1.Execute then
Begin
CopyFile(_PathPro+'\TempNull.wav',SaveDialog1.File Name);
DeleteFile(_PathPro+'\TempNull.wav');
End;

تابع کپی

Procedure CopyFile(const Source,Target : String);
const
BufferSize = 4096;
type
TBuffer = array[0..pred(BufferSize)] of byte;
PBuffer = ^TBuffer;
Var
Buffer : PBuffer;
SF,TF : ^File;
BytesRead : Integer;
Begin
{$IfDEF DebugApfGen}
WriteLn(DebugFile, 'Entering CopyFile(' + Source + ', ' + Target);
{$EndIf}
SF := nil;
TF := nil;
Buffer := nil;
New(SF);
New(TF);
New(Buffer);
Try
AssignFile(SF^,Source);
Reset(SF^,1);
AssignFile(TF^,Target);
Rewrite(TF^,1);
BlockRead(SF^,Buffer^,sizeof(Buffer^),BytesRead);
While BytesRead > 0 Do Begin
BlockWrite(TF^,Buffer^,BytesRead);
BlockRead(SF^,Buffer^,sizeof(Buffer^),BytesRead);
End;
CloseFile(SF^);
CloseFile(TF^);
finally
If Assigned(Buffer) Then
Dispose(Buffer);
If Assigned(TF) Then
Dispose(TF);
If Assigned(SF) Then
Dispose(SF);
End;
End;

[nimaken]

با سلام
جگونه می توان در داخل دلفی از ابزارهای رایت بر روی DVD و یا CD بکار برد؟ آیا برای این کار VCL ی وجود دارد و یا نرم افزار معروف Nero ، برای این کار Activex ی برای دلفی دارد؟

[dkhatibi]

آره کامپوننتی برای این منظور هست.
لینک زیر را ببین
http://www.torry.net/quicksearchd.php?String=burn+cd&Title=Yes