This works for me in Delphi, it’s from the code at a link in the pinned post “Delphi Wrapper for LibVLC v1.1”
Procedure EqualizerOn;
var
eqf : TSetEqualizerPresetForm;
prl p: TStringList;
begin
with mainform do
begin
prl := PasLibVlcPlayer1.EqualizerGetPresetList();
eqf := TSetEqualizerPresetForm.Create(mainform);
eqf.FVLC := PasLibVlcPlayer1.VLC;
eqf.PresetListLB.Items.AddStrings(prl);
// if eqf.ShowModal = mrOK then begin if (eqf.PresetListLB.ItemIndex > -1) then begin
PasLibVlcPlayer1.EqualizerSetPreset(Word(prl.Objects[7])); /// set “headphones” mode for good bass and treble
// end; end;
eqf.Free;
prl.Free;
end;
end;
Statistics: Posted by Gronky — 09 Jun 2024 02:00