Тема: Метаданные с различной информацией.
Наткнулся тут на одно радейко http://rushit.pro/ , дак что мне понравилось, они засунули в метаданные инфо о количестве слушателей.. как? ) http://imgradio.pro/RusHit.m3u тут можно наглядно посмотреть)
Первый русскоязычный форум посвященный интернет-радиовещанию
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Наткнулся тут на одно радейко http://rushit.pro/ , дак что мне понравилось, они засунули в метаданные инфо о количестве слушателей.. как? ) http://imgradio.pro/RusHit.m3u тут можно наглядно посмотреть)
Очень любопытно.... ГЛЮКОЗА - БАБОЧКИ // ON LINE: 1530
А они в настройках метаданных в СЭМЕ ... не применили ли случаем какой то секретный код $, где указали бы ссыль с логином и паролем на айскаст?)
как - зависит от того чем вещают
в сэме думаю вполне реально, он же парсит инфу с icecast и метаданные можно изменять
да и в других порядных вещателях такое должно быть реально
Пере ковырял, так и не нашел что либо в том же СЕМ по этому поводу,
а вот пал скрипт
и еще http://support.spacialaudio.com/wiki/Ch … ream_Title
самое подходящее ))
Да эти скрипта старые я про них знаю, только я не могу найти какой либо команды в том же пале отображения слушателей. А так я уже думал, попытаться сделать скрипт, который мне будет записывать в файл с айса кол слушателей и от туда уже эти скриптом подставлять, но это танцы с бубном, должно быть лучше решение.. Пока думаю как, но решения найти не могу. SAM даже в базу не фиксирует количество слушателей.
Можно также через html output выводить трек, опять же, там тоже нет парсинга слушателей, беда)
пишет tarasian666:
$Viewers$ = колво слушателей
Спасибо, реализовал)
Жаль генерация идет каждый трек только (((
А просто pal может парсить слушателей?
for I := 0 to Relays.Count-1 do
begin
relayCount := Relays[i].Viewers;
totalCount := totalCount + relayCount;
end;
пишет tarasian666:
for I := 0 to Relays.Count-1 do begin relayCount := Relays[i].Viewers; totalCount := totalCount + relayCount; end;
Кинь пожалуйста ссылку на исходную информацию
Цуко не получается (
Ну что то получается уже, вот есть CurSong := ActivePlayer.GetSongInfo ; как тут получается мне нужно подписать, что бы они название + слушатели показывал, если слушатели это I ?
CurSong := ActivePlayer.GetSongInfo + "количество слушателей: " + totalCount;
Encoders.SongChange(CurSong);
так наверное
Неа ( Не хочет он так понимать
Короче, кто поможет реализовать нормально, залью на пиво и отблагодарю)))
Кстати, мне кажется проще брать тогда стату так
Listeners := Relays.Viewers;
Но почему то, не получается не как добавить эти данные при создании данных CurSong := ActivePlayer.GetSongInfo; Как не пытался, ошибка и все тут ((((
Отредактировано KyPIIaToB (23-03-2012 19:01:17)
я кажется понял, во первых string и integer не совмещаются, во вторых там титлы в определенном формате, а именно массив или тп
пишет tarasian666:
я кажется понял, во первых string и integer не совмещаются, во вторых там титлы в определенном формате, а именно массив или тп
И как же тогда выйти из ситуации? )
Krueger подсказал
Song := TSongInfo.Create;
Song['artist'] := 'Current Listeners';
Song['title'] := IntToStr(currlisteners);
Encoders.SongChange(Song);
Song.Free;
это все впринципе паскалевская банальщина, но я его забыл уже давно
пишет tarasian666:
Krueger подсказал
Song := TSongInfo.Create; Song['artist'] := 'Current Listeners'; Song['title'] := IntToStr(currlisteners); Encoders.SongChange(Song); Song.Free;
это все впринципе паскалевская банальщина, но я его забыл уже давно
Ну мне это не дало, на место артиста мы пишем Current Listeners понятно, но нужно к треку artis - title подставь еще и Listeners в конец, вот именно это у меня не получается.
Есть контакт)
PAL.Loop := True;
var Listeners: integer;
var Song : TSongInfo;
var CurSong : TSongInfo;
CurSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create ;
Listeners := Relays.Viewers;
Song['artist'] := CurSong['Artist'];
Song['title'] := CurSong['Title'] + '[' + 'Listen:' + IntToStr(Listeners) + ']';
Encoders.SongChange(Song);
Song.Free;
Отредактировано KyPIIaToB (24-03-2012 01:09:17)
Да я реально затупил на моменте, когда он данные не мог писать вместе ибо разные, типа комбайна его не понмиала)) Спасибо за подсказку.
Отличная штука, думаю много кого заинтересует
Отредактировано KyPIIaToB (24-03-2012 01:17:58)
Чтобы отправить ответ, вы должны войти или зарегистрироваться