[Lbvf]

ув. форумчане, помогите с задачей. нужно реализовать прием сигнала с микрофона (или лайн-ин, без разницы) и чисельно (не обязательно в дБ) показывать амплитуду уровня сигнала (или силу звука, неважно) в данный момент. помогите, плз.

[SCrat.ORS]

Актуально или нет, но мало ли кому понадобится.

Код:

uses bass;

var
Chan	: DWORD;

function DuffRecording(handle : HRECORD; const Buffer : Pointer; Length : DWORD; user : Pointer) : Boolean; stdcall;
begin
  Result := True;	// continue recording
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   BASS_RecordInit(-1);
  Chan := BASS_RecordStart(44100, 2, 0, @DuffRecording, NIL);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
level:cardinal;
l,r:word;
begin
level:=BASS_ChannelGetLevel(chan);
   L:=HIWORD(level); //уровень левого канала
   R:=LOWORD(level);//уровень правого канала
end;