Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывод названия радио 
:(
    Опции темы
Labels
Дата 18.4.2012, 06:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 6.4.2012

Репутация: нет
Всего: нет
Добрый день. Помогите пожалуйсто в Label вывести название радио (библиотека bass). Вывод трека сделал а название нимогу , не знаю какой код.
PM MAIL   Вверх
Labels
Дата 19.4.2012, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 6.4.2012

Репутация: нет
Всего: нет
Помогите пожалуйсто. 
PM MAIL   Вверх
Чучмек
Дата 20.4.2012, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
Смотри в сторону BASS_ChannelGetTags
Название трека - с параметром BASS_TAG_META
Посмотри что вернет следующий код
Код

procedure add(p:pchar);
begin
 while (p<>nil) and (p^<>#0) do
  begin
  form1.memo1.Lines.Add(p);
  p:=p+strlen(p)+1;
  end;
end;

var radio_chn:cardinal;
add(BASS_ChannelGetTags(radio_chn, BASS_TAG_HTTP));

Особенно на строчку, которая начинается с "icy-name:"
Потом погугли по запросу ""icy-name" http заголовки"
Вообще, по логике, это должен возвращать вызов BASS_ChannelGetTags с параметром BASS_TAG_ICY. Но...



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Артем1
Дата 22.5.2012, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Не выходит как только не пробывал. smile  Если не сложно помогите пожалуйсто , вот выкладываю пример :



Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  radio_primer.rar 275,92 Kb
PM MAIL   Вверх
Чучмек
Дата 22.5.2012, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
Код

const
 NameHeader='icy-name:';
...
var
 p:pchar;
begin
...
meta:='';
p:=BASS_ChannelGetTags(stream, BASS_TAG_HTTP);
while (p<>nil)and(p^<>#0) do
 begin
 if CSTR_EQUAL=CompareString(LOCALE_SYSTEM_DEFAULT,NORM_IGNORECASE,p,strlen(NameHeader),NameHeader,strlen(NameHeader))then
  begin
  meta:=p+strlen(NameHeader);
  break;
  end;
 p:=p+strlen(p)+1;
 end;
form1.Caption:=meta;
...


Это сообщение отредактировал(а) Чучмек - 22.5.2012, 14:13


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Артем1
Дата 22.5.2012, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Пробую делать не выходит 

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  radio_primer2.rar 277,08 Kb
PM MAIL   Вверх
Чучмек
Дата 22.5.2012, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
Конечно не выходит. 
У тебя перед 
Цитата

meta := BASS_ChannelGetTags(stream, BASS_TAG_META);

meta уже содержит название радио, а ты его не выводишь


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Артем1
Дата 22.5.2012, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Получилось . Спасибо тебе огромное=) smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0683 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.