Hallo!
Leider funktioniert das nicht
Code:
outputcallbackStruct.inputProcRefCon := KlugerVariablenName
Egal ob man nun 'nil', oder die Referenzvariable übergibt geht er im Anschluss immer in das if
Code:
class function TMyCallbackClass.OutputCallback(inRefCon: Pointer; ioActionFlags: PAudioUnitRenderActionFlags; inTimeStamp: PInteger; inBusNumber, inNumberFrames: UInt32; ioData: PInteger): OSStatus;
var
Instance: TMyCallbackClass;
begin
if inRefCon <> nil then
begin
Instance := TMyCallbackClass(inRefCon);
Instance.RufeVUMeterEventAuf(); // Beispiel!
end;
end;
rein.
Da scheint der Pointer nicht richtig gesetzt zu werden, denn auch wenn ich die Referenz übergebe, dann erhalte ich eine Ausnahmeverletzung bei der Abarbeitung des Events, denn der Compiler erkennt die Membervariable 'FVUMeterEvent' als Assigned, obwohl sie nicht Assigned ist
Code:
procedure TMyCallbackClass.RufeVUMeterEventAuf;
begin
if Assigned(FVUMeterEvent) then
begin
FVUMeterEvent;
end;
end;
also an dem Event nichts angehängt wurde.