Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Общие вопросы по интернет радио вещанию
7   •   Посмотреть все темы

Скрипты!

 
1 2

40
DJ_Pelmen @DJ_Pelmen

0
410
Евгений @Drakkar
MarkDaiven пишет:

  1. var Song : TSongInfo;
  3. //скрипт будет выполнятся постоянно(многократно)
  4. PAL.Loop := True;
  5. //ставим задержку на 3 песни
  6. PAL.WaitForTime('+00:30:00');
  7. //выбираем трек наугад
  8. Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
  9. //добавляем его в начало очереди
  10. Aux.QueueSong(Song);
  11. Aux.play;
  12. Song.Free;


Это PAL-скрипт. Сохраняешь его с расширением *.pal и прописываешь путь через SAM Broadcaster.

В этом скрипте ошибка при компиляции возникает на строчке Aux.QueueSong(Song);

0
6245
Тарас @tarasian666
Aux := Aux1;
Aux.QueueSong(Song);
Aux.play;
Song.Free;

0
410
Евгений @Drakkar
  1. var Song : TSongInfo;
  3. PAL.Loop := True;
  5. PAL.WaitForTime('+00:40:00');
  7. Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
  9. Aux := Aux1;
  10. Aux.QueueSong(Song);
  11. Aux.play;
  12. Song.Free;


Ошибка: Неизвестное имя Aux

0
40
DJ_Pelmen @DJ_Pelmen
ну так что ставить?

0
6245
Тарас @tarasian666
var Aux : TPlayer;

вы что гуглом пользоваться не умеете?

0
40
DJ_Pelmen @DJ_Pelmen
дайте пожалуста полный код!

0
40
DJ_Pelmen @DJ_Pelmen
heeeeeeeeeeeelp

0
6245
Тарас @tarasian666
все нужное уже есть, а дальше сам

0
40
DJ_Pelmen @DJ_Pelmen
куда и как лепить блин вы можете нормально сказать? у меня неполучилось он не выводит файл

0
40
DJ_Pelmen @DJ_Pelmen
  1. var Song : TSongInfo;
  2. //скрипт будет выполнятся постоянно(многократно)
  3. PAL.Loop := True;
  4. //ставим задержку на 3 песни
  5. PAL.WaitForTime('+00:01:00');
  6. //выбираем трек наугад
  7. Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
  8. //добавляем его в начало очереди
  9. var Aux : TPlayer;
  10. Aux.QueueSong(Song);
  11. Aux.play;
  12. Song.Free;

0
6245
Тарас @tarasian666
если давать все сразу готовое то так ничему и не научитесь

Aux := Aux1; пропустил

0
1572
KyPIIaToB @KyPIIaToB
К сожалению у нас люди разбираться не хотят и даже такое чувство не пытаются.. Смотрят тупым взглядом на код и молят о помощи. печально (

0
40
DJ_Pelmen @DJ_Pelmen
Смори я код слепил. включаю он робит но невоспроизводит! \\\ вот учусь))) что нужно добавить или убрать?

0
6245
Тарас @tarasian666
подумай сам, ты ведь учишся ))

у меня все работает, этот же скрипт только со всеми моими замечаниями

0
40
DJ_Pelmen @DJ_Pelmen
я просто не пойму. строчки заменить или дописать? кинь пожалуста код я буду знать 9((

0
410
Евгений @Drakkar
Пельмень, ну ты вообще лошара, тебе так подробно объяснили, даже я понял с первого раза(смеюсь). Тебе тупо лень самому экспериментировать, менять местами строчки, пытаться компилировать. При компиляции у тебя возникнет ошибка и сэм коричневой строчкой укажет на то место, где косяк. НЕ надо бояться, этим ты Сэм не удалишь, если ты уж так трясёшься что нить нечаянно сделать не так. Если ты на такой простой трудности валишься, то какого хрена ты вообще затеял всё это. Учи сначала мат.часть, а потом уже доставай людей по форумам. Разжевать и в рот положить?

0
40
DJ_Pelmen @DJ_Pelmen
какой коричневой строчкой? не понимаю я язык етот((( lua знаю

0
40
DJ_Pelmen @DJ_Pelmen
Еееееееееееееееееееее разобрался)))

  1. var Song : TSongInfo;
  2. //ñêðèïò áóäåò âûïîëíÿòñÿ ïîñòîÿííî(ìíîãîêðàòíî)
  3. PAL.Loop := True;
  4. //ñòàâèì çàäåðæêó íà 3 ïåñíè
  5. PAL.WaitForTime('+00:01:00');
  6. //âûáèðàåì òðåê íàóãàä
  7. Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
  8. //äîáàâëÿåì åãî â íà÷àëî î÷åðåäè
  9. var Aux : TPlayer;
  10. Aux := Aux1;
  11. Aux.QueueSong(Song);
  12. Aux.play;
  13. Song.Free;

0
410
Евгений @Drakkar
Можешь, когда хочешь

0





Согласие на обработку данных на нашем сайте

Продолжая просматривать страницу, вы соглашаетесь с использованием файлов «Cookie» и с Политикой конфиденциальности «Privacy».
Наверху или внизу страницы вы можете изменить валюту и язык по умолчанию. Английская версия сайта ещё находится в доработке и доступна не полностью.