Bass Klasse -> Kleiner Fehler

[kurtm1]

Also ich bin derzeit gerade dabei basierend auf die Komponenten von omata und turbopascal eine eigene Klasse für die Bass.dll zu schreiben.

Soweit funktioniert eigentlich eh alles, nur der Crossfader macht derzeit große Probleme. Ich hab schon alles debuggt, bin aber auf keinen Fehler gekommen, und bitte daher um Hilfe. Und zwar kann ich den Crossfader bei der ersten Änderung wie gewünscht einstellen, bei allen drauffolgenden werden jedoch völlig falsche Werte geschrieben...


In der zip Datei sind alle benötigten Dateien (inkl. der bass.dll und bass_fx.dll), würde mich freuen, falls sich das ma wer ansehen würde

[kurtm1]

^^push

keiner eine idee?

[kurtm1]

Letzter Aufruf dann bin offiziell verzweifelt

[turboPASCAL]

Delphi-Quellcode:

procedure TMyBass.SetCrossfader(const Value: Byte);
var Left1,Right1:Integer;
begin
        left1  := 100 - value ;                        // <-
        Right1 := 100 - left1 ;                        // <-

        A.volume := round( (Left1  * A.volume) / 100); // <-
        B.volume := round( (Right1 * B.volume) / 100); // <-

        _Crossfader := Value;
end;

Schon mal durchgerechnet und dabei die Values der beiden Lautstärkeregler angeguckt ?

[kurtm1]

Also ich hab mir den Corssfader Code ca. 20 mal mit dem Debugger angesehen, und da es beim ersten mal umstellen richtig funktioniert, kann in der Funktion eigentlich kein Fehler sein.

Was mir jedoch aufgefallen ist, dass der Aufruf, der Volume auslesen Funktion (A.Volume, B.Volume) (beim Lesen) in diesen Statements anscheinend Probleme macht:

Delphi-Quellcode:

A.volume := round( (Left1  * A.volume) / 100); // <-
B.volume := round( (Right1 * B.volume) / 100); // <-

Aber wie schon gesagt, ich weiß inzwischen nichts mehr, was da falsch sein kann..

[turboPASCAL]

zB. GetVolume und SetVolume hast du als Byte aber

Delphi-Quellcode:

function TMyBass.GetWaveVolume: Byte;
begin
        Result:= BASS_GetVolume; // BASS_GetVolume aus der Bass ist
                                 //  Cardinal oder Integer oder so...
end;

[kurtm1]

Zitat von turboPASCAL:

zB. GetVolume und SetVolume hast du als Byte aber

Ich habe diese Stellen mal probehalber auf Cardinal geändert, gibt aber genau das selbe Verhalten..

[kurtm1]

so letzter push, dann geb ich auf

[kurtm1]

Hätte mal wieder eine Frage zum Thema Bass / Bass_fx.

Und zwar hab ich ein kleines Programm zum abspielen von Sounds mit DSP Effekten. Wenn ich die Bass dll's in der Version 2.2 verwende funktioniert eigentlich alles (soweit ich gesehen habe).

Bei der Version 2.3 bekomme ich allerdings wenn ich eine bestimmte Datei abspiele und mit dem Effekt "Reverb" versehe ständig eine Fehlermeldung bis das Programm abstürzt. Alle anderen Effekte gehen auch mit Version 2.3?!?

Tipps?

[Wishmaster]

Hi

Was für ein feiler?