bass.dll и радио

[cargo29]

Интересует как решить такие вопросы:
1. Как можно записать поток интернет радио в mp3
2. Как считывать текстовую инфу с радиостанции (обычно там пишется название песни и реклама радио)

[cargo29]

Поможет может кто нить???

[raxp]

ну, признайтесь, демки к либе ведь не смотрели? ...а ведь там есть ответы на ваши вопросы

[cargo29]

Сообщение от raxp

ну, признайтесь, демки к либе ведь не смотрели? ...а ведь там есть ответы на ваши вопросы

Смотрел и эту смотрел ... но там так муторно написано хотя бы как можно получить информацию с потоком которая

[raxp]

ой, ну не надо про муторно, а там одна строка для получения тегов радиостанций.

[cargo29]

Сообщение от raxp

ой, ну не надо про муторно, а там одна строка для получения тегов радиостанций.

Хм... щас пересмотрю... отпишусь сразу

[cargo29]

вот это получает название проигроваемой песни и радио???

    BASS_ChannelSetSync(chan, BASS_SYNC_META, 0, @MetaSync, 0);

если да то я сообразить не могу как ее применять и куда писать ((( можете накидать простенький код использования???

[raxp]

нет, это процедура отображения ...вот это получает данные из потока:

BASS_ChannelGetTags(chan, BASS_TAG_META);

вся процедура:

procedure DoMeta();
var
  meta: PAnsiChar;
  p: Integer;
begin
  meta := BASS_ChannelGetTags(chan, BASS_TAG_META);
  if (meta <> nil) then
  begin
    p := Pos('StreamTitle=', String(AnsiString(meta)));
    if (p = 0) then
      Exit;
    p := p + 13;

    // это посылка текста в окно с хэндлом в переменной WIN
    SendMessage(win, WM_INFO_UPDATE, 7, DWORD(PAnsiChar(AnsiString(Copy(meta, p, Pos(';', String(meta)) - p - 1)))));
  end;
end;

битрейт:

function GetChannelBitrate(Channel: DWORD): integer;
var
  FloatLen: FLOAT;
  Length: Int64;
  len: DWORD;
begin
  Length:= 0;
  Length:= BASS_ChannelGetLength(Channel, BASS_POS_BYTE);

  if Length < 0 then Length:= 0;
  FloatLen:= BASS_ChannelBytes2Seconds(Channel, Length);
  len:=BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_END);
  Result:= Round(len / (125 * FloatLen) + 0.5);
end;

сообразить не могу как ее применять и куда писать

код использования как раз и приведен в демке, внимательнее, там проще некуда.

[cargo29]

Извиняюсь за глупый вопрос что означает в делфи nil, null и еще какие то есть???

[cargo29]

а переменная win это что?? string HWND или что???