Bass aktuelle Aufnahmelautstärke

[igel457]

Ich stehe nun echt auf dem Schlauch:

Delphi-Quellcode:

// This is called while recording audio
function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user:
  DWord): boolean; stdcall;
var i:integer;
    maxl,minl,maxr,minr:smallint;
    sample:TWaveSample;
begin
  for i := 0 to length div 4 do
  begin
    sample.l := round(sin(i/10) * high(smallint)/2);
    sample.r := round(cos(i/10) * low(smallint)/2);
    WaveStream.Write(sample,4);
  end;

  // Allow recording to continue
  Result := True;
end;

Dieser Code erzeugt ein die von mir gewünschte Cos/Sin Wellenform. Warum kann ich die Daten mit meiner Struktur nicht richtig auslesen, aber schreiben?