Zitat von
Eichhoernchen:
geht das so?
Ja.
Du kannst es etwas vereinfachen, da Klassenvariablen ohnehin schon Zeiger sind.
Delphi-Quellcode:
//...
var
Klasse: TSysEx;
begin
Klasse := TSysEx(aData);
Klasse.Variable := Wert;
//...
midiInOpen(..., Integer(Self), ...);
Oder eine Zeile weniger
Delphi-Quellcode:
//...
var
Klasse: TSysEx absolute aData;
begin
Klasse.Variable := Wert;
//...
midiInOpen(..., Integer(Self), ...);