1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type TOpenAlRecorder = class
  private
    pCaptureDevice    : pALCDevice;                          //- Device used to capture audio
    pPlaybackDevice   : pALCDevice;                          //- Device used to playback audio
    pPlaybackContext  : pALCContext;                         //- Playback context
    pPlaybackSource   : TALuint;                             //- Source for playback (in 3D sound would be located)
    CaptureBuffer     : array of TALubyte;                   //- Capture buffer external from openAL, sized as calculated above for 5 second recording
    PlayBuffer: TALInt;                                       //- openAL internal playback buffer

    fSeconds    : Integer;
    fFrequency  : Integer;
    fFormat     : Integer;
    fBufferSize : Integer;

    //- These two are used to control when to begin/end recording and playback
    Samples: TALInt;                                          //- count of the number of samples recorded
    PlayState: TALInt;                                        //- playback state
  public
    property Seconds   : Integer read fSeconds;
    property Frequency : Integer read fFrequency;
    property Format    : Integer read fFormat;
    property BufferSize: Integer read fBufferSize;

    procedure Prepare(ASeconds,AFrequency,AFormat : Integer);

    procedure Capture();
    procedure Playback();

    constructor Create;
    destructor Destroy;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  
procedure TOpenAlRecorder.Capture;
var
  oldfreq : integer;
begin
  //Aufnahme starten
  alcCaptureStart(pCaptureDevice);

  oldfreq := fFrequency;

  //Samples aufnehmen bis Datenmenge erreicht.
  repeat
    alcGetIntegerv(pCaptureDevice, ALC_CAPTURE_SAMPLES, TALsizei(sizeof(TALint)), @Samples);
  until Samples>=fSeconds*fFrequency;


  //Samples in Aufnahmebuffer schreiben.
  alcCaptureSamples(pCaptureDevice, @CaptureBuffer, Samples);

  //Aufnahme abgeschlossen.
  alcCaptureStop(pCaptureDevice);
  fFrequency := oldfreq;
end;