Wav dosyası oluşturma.

[SieS]

Merhaba

seskartından aldığım sesi wav olarak nasıl kaydedebilirim.
Bu işlerle uğraşan arkadaşlardan yardım lütfen.

Teşekkürler

[ssoyut]

Merhaba,
Bu PASCAL programı mikrofondan sesi alip bir wav dosyasi içine kayit ediyor. ses kartından almak için farklı bir yol gerekir mi bilmem?
hadi kolay gele...


uses
MMSystem,
WinCrt;
function RecordSound(MMSecs: LongInt): LongInt;
var
DeviceID: Word;
Return: LongInt;
MciOpen: TMCI_Open_Parms;
MciRecord: TMCI_Record_Parms;
MciPlay: TMCI_Play_Parms;
MciSave: TMCI_SaveParms;
Result2: LongInt;
Flags: Word;

begin
MciOpen.lpstrDeviceType := 'waveaudio';
MciOpen.lpstrElementName := '';
Flags := Mci_Open_Element or Mci_Open_Type;
Result2 := MciSendCommand(0, MCI_OPEN, Flags, LongInt(@MciOpen));
DeviceID := MciOpen.wDeviceId;

WriteLn('Kayit');
MciRecord.dwTo := MMSecs;
Flags := Mci_To or Mci_Wait;
Result2 := MciSendCommand(DeviceID, Mci_Record, Flags, LongInt(@MciRecord));

WriteLn('Durdur');
mciPlay.dwFrom := 0;
Flags := Mci_From or Mci_Wait;
MciSendCommand(DeviceId, Mci_Play, Flags, LongInt(@MciPlay));

mciSave.lpfileName := 'Ses.Wav';
Flags := MCI_Save_File or Mci_Wait;
Result := MciSendCommand(DeviceID, MCI_Save, Flags, LongInt(@MciSave));
MciSendCommand(DeviceID, Mci_Close, 0, LongInt(nil));

end;

begin
WriteLn('Basla');
RecordSound(10000);
WriteLn('Bitir');

[SieS]

Çok teşekkür ederim sayın ssoyut bu yöntemi biliyorum ,işimi görmedi .
Yinede ilginize çok teşekkür ederim.
blobstrimlerle çözeceğim galiba şimdilik iyi diyor.