BASS.DLL RecordingCallback in Klasse?

[Nuclear-Ping]

Hallo,

hat hier jemand schonmal mit der BASS.DLL eine Aufnahme realisiert, wo die Callback-Routine Teil einer Klasse ist?

Ich versuch das gerade. Dabei treffe ich auf folgende Probleme:

Callback-Routine lässt sich beim Start der Aufnahme nicht übergeben. Er meint "Variable erforderlich".
Dafür habe ich hier nun den Umweg über eine Variable wie folgt gewählt:

Delphi-Quellcode:

interface

type
  TRecordingCallback = function (Handle: HRecord;
                                 Buffer: Pointer;
                                 BufLength: DWord;
                                 User: DWord): Boolean of object; stdcall;

  {...}

  TXYZClass = class (...)
    constructor Create (AOwner: TComponent);
  private
    RecCallback: TRecordingCallback;

    function RecordingCallback (Handle: HRecord;
                                Buffer: Pointer;
                                BufLength: DWord;
                                User: DWord): Boolean; stdcall;   
  public
    function StartRecording: Boolean;
    {...}
  end;

implementation

constructor TXYZClass.Create (AOwner: TComponent);
begin
  {...}
  RecCallback := RecordingCallback;
end;

function TXYZClass.StartRecording: Boolean;
begin
  Flag := MakeLong (c16BitAudio, cRecordingTime);

  RecChannel := BASS_RecordStart (cSampleRate,
                                  cNumChannels,
                                  Flag,
                                  @RecCallback,
                                  cDefaultUser);  
end;

function TXYZClass.RecordingCallback (Handle: HRecord;
  Buffer: Pointer; BufLength: DWord; User: DWord): Boolean; stdcall;
var
  {...}
  LocalBuffer: TStereoBuffer;
  Sample: TAudioSample;
  i: Cardinal;
  {...}

begin

  CopyMemory (@LocalBuffer, Buffer, BufLength);

  {...}
end;

Das akzeptiert der Compiler. Allerdings ist in der Callback dann BufLength IMMER 0.

Gehe ich den "Old 'n Dirty Way", die Callback-Routine nicht als Teil der Klasse anzulegen, sondern einfach Non-OOP in den implementation-Teil zu hauen und passe BASS_RecordStart entsprechend an, funktioniert es, dann hat BufLength ordentliche Werte.

Allerdings muss die Callback-Routine Teil der Klasse sein, da dort noch andere Aktionen passieren, wo Variablen belegt und Funktionen aufgerufen werden, die Teile der Klasse sind.

Wenn ich an den Aufrufkonventionen rumspiele (stdcall z.B. mal raus), hat BufLength immer gigantische Werte (3mill+) und folglich bekomme ich hier dann eine Zugriffsverletzung.

Das muss doch gehen?