76

Re: Скрипты PAL для Sam Broadcaster

А скажите можно ли с помощью скрипта принудительно остановить деку А и В??
И если можно хотелось бы глянуть на этот скрипт))

RADIO-SET - это интернет портал посвящённый музыке и всему, что связано с ней. Наш проект это рабочая площадка дающая возможность начинающим талантливым музыкантам, диджеям и творческим людям сделать первые шаги и реализовать себя в мире медиа!
От организации танцевальных вечеринок до выпуска собственной музыки. Авторские программы, новости о клубной жизни городов России.
Мы открыты для всех 24 часа.
support@radio-set.ru
Веб-сайт: www.radio-set.ru

Re: Скрипты PAL для Sam Broadcaster

Ребят помогите! Вот есть pal скрипт который выводит в плеерах инфу вида:

Релиз: [название текущего трека] Заказал(а): [текст] ну потом через некоторое время строчка меняется и показывается просто название станции и название трека и сообветственно все сначало.

Вот код :

var D : TDataSet;
var P : TPlayer;
var Song : TSongInfo;
var S : TSongInfo;

PAL.Loop := true;

procedure pause();
begin
PAL.WaitForTime ('+00:00:07');
end;

S:=TSongInfo.Create;

P:= ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
S['title'] := 'Трек: ' + Song['artist'] + ' - ' + Song['title'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:15');

P := ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
if StrToInt(Song['albumyear'])>1980 then S['title'] := 'Релиз: ' + Song['album']+' ('+Song['albumyear']+')' else S['title'] := 'Релиз: ' + Song['album'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:07');

if song['requestid'] > 0 then

D := Query('SELECT * FROM requestlist WHERE ID = :J AND SongID = :I',[Song['requestID'],Song['ID']],true);

if D['name'] <> '' then
begin
S['artist']   := '';
S['title']    := 'Заказал(а): '+D['name'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
end;

if D['msg'] <> '' then
begin
S['artist']   := '';
S['title']    := 'Текст: '+D['msg'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
pause();
end;

D.Free;
P.Free;
Song.Free;

Но проблема в том что я что то не пойму как именно пользоваться этим скриптом и куда вводить Имя того кто заказал трек. 
Рассшифруйте плз.

Сам придумал или из гугла скопировал?
========================================================================
FMGAMERADIO.RU - Уж както стараемся выделится big_smile

78

Re: Скрипты PAL для Sam Broadcaster

данй скрипт вы пихаете в СЕМ.
Если по стандарту, то в Desktop B находиться меню PAL Script ..туда и добавляете файл. Расширение файла (в названии после точки) должно быть ".pal" .Добавив просто запускаете скрпит.
Скрипт сам выводит имя заказавшего если он указал последнее при заказе песни.

79

Re: Скрипты PAL для Sam Broadcaster

пишет Всё-просто:

Ребят помогите! Вот есть pal скрипт который выводит в плеерах инфу вида:

Релиз: [название текущего трека] Заказал(а): [текст] ну потом через некоторое время строчка меняется и показывается просто название станции и название трека и сообветственно все сначало.

Вот код :

var D : TDataSet;
var P : TPlayer;
var Song : TSongInfo;
var S : TSongInfo;

PAL.Loop := true;

procedure pause();
begin
PAL.WaitForTime ('+00:00:07');
end;

S:=TSongInfo.Create;

P:= ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
S['title'] := 'Трек: ' + Song['artist'] + ' - ' + Song['title'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:15');

P := ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
if StrToInt(Song['albumyear'])>1980 then S['title'] := 'Релиз: ' + Song['album']+' ('+Song['albumyear']+')' else S['title'] := 'Релиз: ' + Song['album'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:07');

if song['requestid'] > 0 then

D := Query('SELECT * FROM requestlist WHERE ID = :J AND SongID = :I',[Song['requestID'],Song['ID']],true);

if D['name'] <> '' then
begin
S['artist']   := '';
S['title']    := 'Заказал(а): '+D['name'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
end;

if D['msg'] <> '' then
begin
S['artist']   := '';
S['title']    := 'Текст: '+D['msg'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
pause();
end;

D.Free;
P.Free;
Song.Free;

Но проблема в том что я что то не пойму как именно пользоваться этим скриптом и куда вводить Имя того кто заказал трек. 
Рассшифруйте плз.

Этот скрипт привязан к samPHPweb Если там, человек заказал трек, он указывает имя, которое в свою очередь и показывается в метадате!

Первая сумская интернет радиостанция "LIVE" - http://www.radiolive.sumy.ua

80

Re: Скрипты PAL для Sam Broadcaster

Помогите нужно написать скрипт который будет перед тем как пускать название песни на сервер если есть русские символы менять их на английские т.к шоткаст не понимает русского языка

81

Re: Скрипты PAL для Sam Broadcaster

шоуткаст понимает, надо просто скриптом перекодировать

82

Re: Скрипты PAL для Sam Broadcaster

покажи как. очень жду ответа

83

Re: Скрипты PAL для Sam Broadcaster

банальний скрипт статистики

84

Re: Скрипты PAL для Sam Broadcaster

есть ли скрипт позволяющий ставить треки из определенной папки в строго определенное время например пятница 23.00

http://twilightradio.ru/radio/userbar/index.png

85

Re: Скрипты PAL для Sam Broadcaster

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

86

Re: Скрипты PAL для Sam Broadcaster

intervision достаточно задать в schedule
metra52 "поиграйте" с кодировками

87

Re: Скрипты PAL для Sam Broadcaster

у меня уже на самом шоткаст сервере кракозябры... вещаю sam+ free.freeshoutcast.com

88

Re: Скрипты PAL для Sam Broadcaster

пишет metra52:

у меня уже на самом шоткаст сервере кракозябры

поменяйте в браузере кодировку на windows 1251

89

Re: Скрипты PAL для Sam Broadcaster

уже стоит отображаются символы типа ????.. ??? ?????

90

Re: Скрипты PAL для Sam Broadcaster

расшифровал - Меня.. Дед Мороз
дальше думайте как

91

Re: Скрипты PAL для Sam Broadcaster

если вам не сложно подскажите пожалуйста как сделать просто очень надо... с изменением кодировки страницы фокус не проходит...

92

Re: Скрипты PAL для Sam Broadcaster

пишет Rainbow_Demon:

Да, включить мозг не мешало бы.

$content = html_entity_decode($content, 0, "cp1251");

P.S. Вообще-то функция должна возвращать значение, это по-моему даже в школе учат.

не пашет...

93

Re: Скрипты PAL для Sam Broadcaster

Блин ребят подскажите как...

94

Re: Скрипты PAL для Sam Broadcaster

дайте сцыль на страницу шоуткаста

95

Re: Скрипты PAL для Sam Broadcaster

http://free.freeshoutcast.com:7950/ вот

96

Re: Скрипты PAL для Sam Broadcaster

я опоздал на 2 часа ))

97

Re: Скрипты PAL для Sam Broadcaster

сервер по возможности будет включен весь день

98

Re: Скрипты PAL для Sam Broadcaster

ну включите какую нибуть композицию с "кирилицой"

99

Re: Скрипты PAL для Sam Broadcaster

сейчас

Добавлено спустя     2 минуты   14 секунд:
в течении минуты будут 3 песни с русскими тегами

100

Re: Скрипты PAL для Sam Broadcaster

http://i.piccy.info/i4/f1/8a/418f6493d78bdd7eba103e3775fc.png
http://i.piccy.info/i4/f9/18/5972818722a84b8682f5b7a3a582.png
есть вопросы еще??

Отредактировано tarasian666 (09-03-2010 14:15:48)