DELPHI+ BASS_INPUT_LEVEL

Started by Chris,

Chris

Hi......Does anybody know how i add the BASS_INPUT_LEVEL ??

I have compiled the Record-Sample works fine
But how can I add the BASS_INPUT_LEVEL ???

I have add the following at the RecordTest-Sample
(will NOT work)

procedure TForm1.RecordVol(var aValue : Integer);
var
Vol : DWORD;
begin
    
     VOL := LOWORD(BASS_INPUT_LEVEL);
     aValue :=Vol;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
i : Integer;
begin
   i := Trackbar1.Position;
   RecordVol(i);
end;


 Greets Chris

Ian @ un4seen

You need to use the BASS_RecordGetInput function...
    VOL := LOWORD(BASS_RecordGetInput(TheInputToGetTheLevelOf));

Chris