BASS.dll (FX): BPM aus RecordStream

[Delphi-Narr]

Hallo,

ich bin noch recht neu in der Verwendung der BASS.dll (und der BASS_FX ebenso).

Ich möchte den Ton, welcher via LineIn den PC erreicht, hinsichtlich BPM analysieren (oder bei jedem Beat benachrichtigt werden).

Bisher analysiere ich nur die Gesamtlautstärke (Peak) des Streams und versuche mir da mit diversen Algorithmen etwas auszulesen - klappt meistens auch, ist aber sehr störanfällig.

Hier erstmal die Initialisierung des Streams:

Delphi-Quellcode:

if (not BASS_RecordInit(-1)) then
begin
    Error('Error init record');
end else begin
    ChannelR := BASS_RecordStart(44100, 1, 0, @DuffRecording, NIL);
    if ChannelR = 0 then
      begin
        startedR := False;
          Error('Error starting recording!');
      end
    else
      begin
        // BASS_FX_BPM_CallbackSet(ChannelR, @bpmproc, 4, Makelong(45,230), BASS_FX_BPM_MULT2, 0); <- Problem
        startedR := True;
      end;
end;

Sobald ich die kommentierte Zeile wieder benutze, wird das Callback einmal aufgerufen und gibt einen recht beliebig wirkenden Wert aus. Anschließend bricht das Programm mit einer Array Index out Of Bounds ab.

Delphi-Quellcode:

procedure bpmproc(aStream: DWord; bpm: single; user: DWord);
begin
    Form3.Label3.Caption := FloatToStr(bpm);
end;

Benutze ich eine falsche Methode der bass_fx.dll oder wo liegt das Problem?!

Viele Grüße

[EWeiss]

Einfach zu wenig Informationen.

Bass, Bass_FX Version..
Was gibst du im Callback DuffRecording zurück.
Welche Parameter für FX wurden gesetzt ?

gruss

[Delphi-Narr]

Jeweils Version 2.4

Im DuffRecording gebe ich immer True zurück:

Delphi-Quellcode:

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

Ansonsten habe ich keine weiteren Parameter gesetzt - vielleicht liegt das dann daran?!

Viele Grüße

[EWeiss]

EDIT:
Ich denke es liegt hier dran.
BASS_FX_BPM_BeatCallbackSet nicht BASS_FX_BPM_CallbackSet.

BASS_FX_BPM_CallbackSet = return(Beat Position)
BASS_FX_BPM_CallbackSet(chan, @GetBPM_Callback, StrToFloat(ebPeriod.Text), 0, BASS_FX_BPM_MULT2, nil)

BASS_FX_BPM_BeatCallbackSet = return(BPM pro definierter Sekunden)
BASS_FX_BPM_BeatCallbackSet(chan, @GetBeatPos_Callback, nil)

gruss

[Delphi-Narr]

Danke,

das sollte auf jeden Fall schonmal nen Unterschied machen - leider klappt es immer noch nicht.

Ich habe mal die Bass Units aus dem Projekt von dir genommen und hoffentlich alles angepasst.

Dennoch tritt nach
  BASS_FX_BPM_BeatCallbackSet(ChannelR, @bpmproc, 0); eine Zugriffsverletzung in der DLL auf...

Anbei mal die gesamte Unit, die ist betzüglich des Ablaufs mit deinem Beispielprojekt identisch soweit ich das sehe...

EDIT
Doch nicht...

[EWeiss]

Habe meinen Beitrag editiert..


Nebenbei
BASS_FX_BPM_BeatCallbackSet(ChannelR, @bpmproc, 0);

gleicht
BASS_FX_BPM_BeatCallbackSet(ChannelR, @bpmproc, nil);

gruss