[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[nkaaa]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);   //zum Radio starten
begin
  bassdllplayer1.Volume:=LMDspinEdit1.Value; //zB  Value = 50   (geht von 0 bis 100)
  bassdllplayer1.PlayNetStream('http://'+edit5.text);  //zB  [url]http://localhost:8000[/url]
  Bassdllplayer1.GetNetStreamInfo(memo1.lines);
end;

procedure TForm1.Button5Click(Sender: TObject); //zum Musik stoppen
begin
  bassdllplayer1.UnloadChannel;
  memo1.clear;
end;

// und jetzt funktioniert bei mir folgendes nicht, wenn ich den InetStream höre:
// die Lautstärke ändert sich nicht

procedure TForm1.Button6Click(Sender: TObject); //lauter
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume+10;
end;

procedure TForm1.Button7Click(Sender: TObject); //leiser
begin
  bassdllplayer1.Volume:=bassdllplayer1.Volume-10;
end;

hi, danke schonmal, dass du dir Zeit genommen hast..

hoffe es ist jetzt ausreichend beschrieben

nkaaa