Ich nutze die Komponente TBassDllPlayerEx, Version 2.0 von Omata.
Nun wollte ich auch einen Equalizer einbauen, bekomme dabei jedoch immer Fehlermeldungen.
Ich hoffe, dass ihr mir ein wenig weiterhelfen könnt.
Hier mal ein paar markante Stellen des Quellcodes:
Delphi-Quellcode:
procedure TChannelForm.EqualizerClick(Sender: TObject); // Equalizer ist eine Checkbox
begin
if Equalizer.Checked then
Channel.UpdateEQ(20-EQ1.Value, 20-EQ2.Value, 20-EQ3.Value, 20-EQ4.Value,
20-EQ5.Value, 20-EQ6.Value, 20-EQ7.Value, 20-EQ8.Value,
20-EQ9.Value, 20-EQ10.Value) // Bei diesem Aufruf meldet er immer einen Fehler:
// Es ist ein Fehler aufgetreten. EQ kann nicht eingestellt werden
else
Channel.RemoveEQ;
end;
Delphi-Quellcode:
procedure TChannelForm.EQ1Change(Sender: TObject);
begin
if Equalizer.Checked then
Channel.UpdateEQ(20-EQ1.Value, 20-EQ2.Value, 20-EQ3.Value, 20-EQ4.Value,
20-EQ5.Value, 20-EQ6.Value, 20-EQ7.Value, 20-EQ8.Value,
20-EQ9.Value, 20-EQ10.Value);
end;
EQ1 - EQ10 sind TJvxSlider.