[vladislav147]

Может тема названа неправильно, а так смысл понятен ...

Вот как реализовать получения названия радиостанции через модуль - Bass.pas (Bass.dll) ?

Вот насчёт Битрейта и названия песни всё понятно, также смена громкости ...

Кому нужно:

Uses : Bass.

1 - (Битрейт):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
bitrate, len: Word;
begin
len:=BASS_StreamGetFilePosition(stream, BASS_FILEPOS_END);
bitrate:=round(len/(125*time)+0.5); // bitrate (Kbps) Довольно интересно он сложил и вычел :DDD
Label1.Caption:='Bitrate '+IntToStr(bitrate)+' Kbps';
end;

2 - (название песни):

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  meta: PAnsiChar;
  p: Integer;
begin
  meta := BASS_ChannelGetTags(stream, BASS_TAG_META);
  if (meta <> nil) then
  begin
    p := Pos('StreamTitle=', String(AnsiString(meta)));
    if (p = 0) then
      Exit;
    p := p + 13;
    meta:=PAnsiChar(AnsiString(Copy(meta, p, Pos(';', String(meta)) - p - 1))); // Рабочее :DDDDD
label2.caption:=meta;
end;
End;

3 - (Громкость с помощью ТракБар(TrackBar)):

Код:

procedure TForm2.TrackBar1Change(Sender: TObject);
var
  pos : double;
begin
  with TrackBar1 do begin
    BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, TrackBar1.Position/100);
    slabel1.Caption:='Volume : '+IntToStr(Position)+' %';
  end;
end;

А вот название радио станции ... ?
P.S. Спасибо !