Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: BassPlayerEx bzw. Winamp Visualisierungsplugins

  Alt 20. Aug 2006, 20:11
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
  Mit Zitat antworten Zitat