Hallo
urbanbruhin,
das geht (mit deiner jetzigen Version) minimal so...
Delphi-Quellcode:
uses ... BassPlayerExU, BassChannelU ...
:
private
FBassPlayerEx:TBassPlayerEx;
:
procedure TForm.FormCreate(Sender: TObject);
var BassChannel:TBassChannel;
begin
FBassPlayerEx:=TBassPlayerEx.Create(1, Self);
BassChannel:=FBassPlayerEx.addChannel(100);
BassChannel.LoadFromFile('Lied.mp3');
BassChannel.Play;
end;
procedure TForm.FormDestroy(Sender: TObject);
begin
FBassPlayerEx.free;
end;
procedure TForm.ButtonClick(Sender: TObject);
begin
FBassPlayerEx.ShowVisControlForm;
end;
Mit
ShowVisControlForm wird das Kontrollfenster für die Visualisierungen geöffnet. Die Plugins müssen in einem Ordner
Plugins der im Programmverzeichnis liegen muss, liegen.
Ich habe gerade eine neue Version hochgeladen, jetzt kannst du auch ohne
VisControlForm Plugins laden...
Delphi-Quellcode:
procedure TForm.ButtonRunClick(Sender: TObject);
begin
FBassPlayerEx.RunVisPlugin('vis_dizzy.dll', 0);
end;
procedure TForm.ButtonQuitClick(Sender: TObject);
begin
FBassPlayerEx.QuitVisPlugin;
end;
Gruss
Thorsten