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