サウンドを録音して遅らせて再生する方法は？

Question

私はMedia Playerコンポーネントでサウンドを録音できることを知っていますが、録音後にはそれを保存してから再生する必要があります。しかし、それを即座に演奏するか、またはカスタムディレイで演奏する方法はありますか？

Answer 1

LakeofSoft VC componentsで簡単に実行できます。彼らのvoice recording demoは好きなように動作します。

Answer 2

あなたがでオーディオライブラリを試してみてください：http://www.un4seen.com/

「BASS」のDLLは、Windows XPとのWin 7で正常に動作彼らは非商用利用は無料です。ダウンロードには、オーディオファイルがまだメモリに保存されている間にオーディオファイルを保存せずに、オーディオファイルとして「保存」するか、オーディオファイルとして即座に「再生」できるようにするオーディオレコーダの単純なデルファイの例が含まれています。 「BASS」はDelphi 2007でうまく動作します。ここで

Answer 3

はあなたがun4seenからRecordTest例を使用して、このような以下の機能を変更することができますhttp://www.un4seen.com/

からbass.dllでそれを行う方法です：

function RecordingCallback(Handle: HRECORD; buffer: Pointer; length: DWORD; user: Pointer): boolean; stdcall; 
begin 
    BASS_StreamPutData(chan, buffer, length); // added: pass the captured data to the push stream 
    // Copy new buffer contents to the memory buffer 
    Form1.WaveStream.Write(buffer^, length); 
    // Allow recording to continue 
    Result := True; 

    Form1.WaveStream.Write(WaveHdr, SizeOf(WAVHDR)); 
    chan := BASS_StreamCreate(44100, 2, 0, STREAMPROC_PUSH, nil); // added: create a push stream 
    BASS_ChannelPlay(chan, False); // added: start it 
    // start recording @ 44100hz 16-bit stereo 
end; 


procedure TForm1.StopRecording; 
var 
    i: integer; 
begin 
    BASS_ChannelStop(rchan); 
    BASS_StreamFree(chan); // added: free the push stream 
    bRecord.Caption := 'Record'; 
    // complete the WAV header 
    WaveStream.Position := 4; 
    i := WaveStream.Size - 8; 
    WaveStream.Write(i, 4); 
    i := i - $24; 
    WaveStream.Position := 40; 
    WaveStream.Write(i, 4); 
    WaveStream.Position := 0; 
    // create a stream from the recorded data 
    chan := BASS_StreamCreateFile(True, WaveStream.Memory, 0, WaveStream.Size, 0); 
    if chan <> 0 then 
    begin 
     // enable "Play" & "Save" buttons 
     bPlay.Enabled := True; 
     bSave.Enabled := True; 
    end 
    else 
     MessageDlg('Error creating stream from recorded data!', mtError, [mbOk], 0); 
end; 

あなたが変更した後、レコードを押すと録音中に同時に音を鳴らします。

フォーラムでIanからこのコードを入手しました。