Author Topic: DELPHI+ BASS_INPUT_LEVEL  (Read 3013 times)

Chris

  • Posts: 1866
DELPHI+ BASS_INPUT_LEVEL
« on: 29 Jun '03 - 07:31 »
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)

Code: [Select]

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
« Last Edit: 29 Jun '03 - 08:10 by Chris »

Ian @ un4seen

  • Administrator
  • Posts: 22396
Re: DELPHI+ BASS_INPUT_LEVEL
« Reply #1 on: 29 Jun '03 - 11:47 »
You need to use the BASS_RecordGetInput function...
Code: [Select]
    VOL := LOWORD(BASS_RecordGetInput(TheInputToGetTheLevelOf));

Chris

  • Posts: 1866
Re: DELPHI+ BASS_INPUT_LEVEL
« Reply #2 on: 29 Jun '03 - 14:14 »
Thanks Ian will working perfekt...

Chris