Ses kartından ses kayıt

[rsimsek]

Merhaba arkadaşlar.
Ses kartından ses kayıtı ile ilgili bir istek geldi. Ses kartının mikrofon girişinden veya line-in inden giren bir sesi yakalayıp kayıt edebileceğim bir yöntemi bilen var mı?

[MicroChip]

Ramazan abi plug in kullanarak yapmak istersen basit... en basiti media playeri kullanmak veya ses kartının driverını kullanmak ama ikincisinde her ses kartında çalışır mı bilmem, birde activex ten alabilirsin sanırım. ama böyle bir uygulama yapmadım bende henüz

[fahrettin]

Receb abi
windowsun ses kaydedcisini acip kayıt tusuna basarak kaydedebilirsin...


Gerçi Recep abi biliyorum bunu kodla yapmayı soruyorsun ama.... Olsun bu mesaj eninde sonunda bir işe yarayacaktırç.....

[hakkus]

Merhabalar,
En kolay yolu bir pencerenin içinde sağ click->New->WinAmpMedia file
yada default neyse bir ses dosyası oluşturmak;
"Deneme.wav" gibi
MediaPlayer1.filename:='deneme.wav'
Programı run ettikten sonra
MediaPlayer1 in record butonuna bastıktan sonra deneme.wav üzerine kayıt yapabilirsiniz, tabii dinleyebilirsiniz de
Tabii burada bir sorun var her yeni kayıt deneme.wav ' a eklenir.
Biraz uğraşırsanız başlangıçta deneme.wav ı kendiniz create edin.
MediaPlayer runtime da bunu kullansın .
SaveDialog la kaydettikten sonra deneme.wav 'ı silin.
Böylece her defasında mediaPlayer1.position:=0 başlatarak yeni dosyalar üretilebilir.
Aşağıdaki kod size bir fikir verebilir;
Burada kendi butonlarınızı kullanıyorsunuz

Kod: Tümünü seç

procedure TForm1.recordingClick(Sender: TObject);
begin
MediaPlayer1.StartPos:=0;
MediaPlayer1.StartRecording;
end;

procedure TForm1.DurdurClick(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.kaydetClick(Sender: TObject);
begin
SaveDialog1.Execute;
MediaPlayer1.FileName:=SaveDialog1.FileName;
MediaPlayer1.Save;
end;


procedure TForm1.PlayClick(Sender: TObject);
begin
MediaPlayer1.FileName:=SaveDialog1.FileName;
MediaPlayer1.StartPos:=0;
MediaPlayer1.Play;
end;

Bunun dışında başka yolla create edebilirsiniz ancak en zor kısmı .wav dosyasını oluşturmak çünkü burada örnekleme frekansı vs tanımlanması gerekir.
Ayrıca bir link işinize yarayabilir..
http://community.borland.com/article/0, ... 27,00.html

[mepc]

Eğer işin en zor kısmı dosya oluşturmak ise bir dosya oluşturup her seferinde ondan kopyalamak suretiyle çoğaltılabilir.

copyfile('kaynak.wav','yeni.wav',true);

[rsimsek]

Ya arkadaşlar 10 gün önceki sorumun cevaplarını aratarak buldum. Sanırım onundu olarak işaretlenme sorunu oldu. Ya da gözümden kaçtın Neyse verilen bilgiler için teşekkürler. Olay program içinden yapılacağı için @hakkus arkadaşımızın önerisi en uygunu gibi görünüyor...

@MicroChip de bana Ramazan demiş

[fahrettin]

@MicroChip de bana Ramazan demiş

Abi boşuna mı

Receb abi
windowsun ses kaydedcisini acip kayıt tusuna basarak kaydedebilirsin...


Gerçi Recep abi biliyorum bunu kodla yapmayı soruyorsun ama.... Olsun bu mesaj eninde sonunda bir işe yarayacaktır.....

dedik...