Vielen Dank maximov!
Jetzt funktioniert der Aufruf der Callbackfunktion einwandfrei.
Die Formatierung des Quelltextes ist beim kopieren ins Forum verloren gegangen. Ich bin unschudig
Jetzt hab ich nurnoch ein Problem...
Wenn ich aus dieser Callback auf Variablen der Klasse zugreifen will, sind diese irgendwie "leer". Zumindest steht nicht das drin, was eigentlich drin stehen sollte.
Ist meine Art, auf die Variablen zuzugreifen, denn überhaupt richtig so?
Delphi-Quellcode:
procedure CallbackSync(SyncHandle: HSYNC; Channel, data, user: DWORD); stdcall;
var FileName : PChar;
FTime : Integer;
begin
FileName := Tbassfader(user).AutoFadeFile; <<<---geht das so???
FTime := Tbassfader(user).AutoFadeTime; <<<---geht das so???
Tbassfader(user).PlayFadeFile(FileName,FTime);
end;
procedure Tbassfader.SetFadeSync(strX : HSTREAM);
var max_laenge : float;
fade_start : QWord;
begin
max_laenge := BASS_ChannelBytes2Seconds(strX,BASS_StreamGetLength(strX));
fade_start := BASS_ChannelSeconds2Bytes(strX, max_laenge - (AutoFadeTime/1000));
BASS_ChannelSetSync(strX,BASS_SYNC_POS,fade_start,@CallbackSync,Dword(self));
end;
Ich merke grad...das ist wohl ein anderer Fehler meinerseits. Ich suche ihn mal
Vielen Dank für eure schnelle und kompetente Hilfe!!!