20 Апреля 2024 09:46 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
19.04.2024
Apollo
09:50:26
offline
19.04.2024
Samurai97
10:46:21
offline
19.04.2024
Aloha123
18:35:52
offline
15.04.2024
fukkinside
5 дней
offline
14.04.2024
V1ad
5 дней
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео THE WORLD LIVE -  since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры:  THE WORLD LIVE - since 2008 | earthTV

Видео The Best Of Norway's Railway Cab Views : I\

Онлайн камеры:  The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры:  130 LIVE World Cameras

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
RU CLICKSРусский трафик
Автор темы: Warhangel
ID темы: 668
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 16166 раз.
Реклама
Обменник Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Тематические » Программирование » Java
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Исходник приложения онлайн радио вконтакте
Наверх Распечатать сообщение #1
Опубликовано 17-04-2011 19:11
Аватар пользователя

Супер Администратор



Сообщений: 2689
Вас поблагодарили: 23
раз(а) в 23 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 5141
Откуда: Россия

Скрыть награды


Пожаловаться на это сообщение 

Main.as

 /*
        http://flapps.ru/forum/ – форум о создании приложений
        */
        package {
        import flash.display.*;
        import flash.media.*;
        import flash.events.*;
        import flash.geom.*;
        import flash.net.*;
        import flash.ui.*;
        import flash.utils.*;
        import flash.text.*;
        public class Main extends Sprite {
        private var api_id:Number=1676336;// id вашего приложения
        private var url:String=”http://flapps.ru/live”;// ссылка на ваше радио
        private var sound:Sound;
        private var music:SoundChannel;
        private var bounds:Rectangle;
        private var maxMove:Number;
        private var minuteTimer:Timer=new Timer(1000);
        public function Main():void {
        if (LoaderInfo(root.loaderInfo).parameters.api_id!=api_id) {
        is_copy_mc.is_copy_tf.text=’Приложение находится здесь\nhttp://vkontakte.ru/app’+api_id;
        is_copy_mc.x=0;
        is_copy_mc.y=0;
        } else {
        var cm = new ContextMenu();
        cm.hideBuiltInItems();
        var p1:ContextMenuItem=new ContextMenuItem(‘«Радио»’);
        var p2:ContextMenuItem=new ContextMenuItem(‘flapps.ru’);
        p2.addEventListener(MouseEvent.CLICK, function(){;
        navigateToURL(new URLRequest(‘http://flapps.ru’));
        });
        p2.separatorBefore=true;
        cm.customItems.push(p1,p2);
        this.contextMenu=cm;
        time_tf.autoSize=TextFieldAutoSize.LEFT;
        play_btn.addEventListener(MouseEvent.CLICK,playSound);
        pause_btn.addEventListener(MouseEvent.CLICK,pauseSound);
        addEventListener(Event.ENTER_FRAME, enterHandler);
        volumeSlider.addEventListener(MouseEvent.MOUSE_DOWN, startScroll);
        stage.addEventListener(MouseEvent.MOUSE_UP, stopScroll);
        maxMove=35;
        bounds=new Rectangle(volumeSlider.x,volumeSlider.y,- maxMove,0);
        var scrolling:Boolean=false;
        function startScroll(e:Event):void {
        scrolling=true;
        volumeSlider.startDrag(false,bounds);
        }
        function stopScroll(e:Event):void {
        scrolling=false;
        volumeSlider.stopDrag();
        }
        function enterHandler(e:Event):void {
        if (scrolling==true) {
        setVolume(1-((bounds.x-volumeSlider.x)/maxMove));
        }
        }
        function setVolume(vol:Number) {
        if (music!=null) {
        var mod:SoundTransform = new SoundTransform();
        mod.volume=vol;
        music.soundTransform=mod;
        }
        }
        }
        }
        private function playSound(e:MouseEvent):void {
        play_btn.visible=false;
        var request:URLRequest=new URLRequest(url+’?'+Math.random());
        sound = new Sound();
        sound.addEventListener(HTTPStatusEvent.HTTP_STATUS,onError);
        sound.load(request);
        music=sound.play();
        var mod:SoundTransform = new SoundTransform();
        mod.volume=1-((bounds.x-volumeSlider.x)/maxMove);
        music.soundTransform=mod;
        minuteTimer.addEventListener(TimerEvent.TIMER, onTick);
        minuteTimer.start();
        }
        private function onError(event:Event):void {
        status_tf.text = ‘Ошибка’;
        }
        private function pauseSound(e:MouseEvent):void {
        play_btn.visible=true;
        music.stop();
        minuteTimer.stop();
        minuteTimer.reset();
        time_tf.text=”0:00:00″;
        }
        function onTick(event:TimerEvent):void {
        var sec=event.target.currentCount;
        var min=Math.floor(sec/60);
        var hour=Math.floor(min/60);
        sec%=60;
        if (sec<10) {
        sec=’0&#8242;+sec;
        }
        min%=60;
        if (min<10) {
        min=’0&#8242;+min;
        }
        hour%=24;
        time_tf.text=hour+”:”+min+”:”+sec;
        }
        }
        }


Исходник [ ссылка скрыта ] ( регистрация | вход )
Инструкция
В файле Main.as заменить:
- api_id – на ID своего приложения
- url – на ссылку на mp3 поток
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
АО «Карельский окатыш», АО «Олкон» и ООО «Яковлевский ГОК» продают неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Другой18.04.2024
(на 1 месяц)
АО «Обуховский завод» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Санкт-Петербург29.03.2024
(на 1 месяц)
Облако тегов тем форума
Майнинг на профессиональных картах, ЦБ Индии: «запрет на обслуживание криптовалютных компаний введен с целью оградить банки от рисков», Marathon купила у Bitmain еще 10 000 Antminer S19 Pro, Mortal Kombat: Legacy - четвертый эпизод, Первая в мире солнечная велодорожка построена в Нидерландах, TOP-10 лайфхаков для iPhone, Адреналин: для пве, 1503 А.D., Мобильная Blade and Soul выйдет вместе с РС версией, Как сказать по-японски, CSS размер текта и блоков, Клубы (неформалам), Бьем ножом на расстоянии, Голографические карты или революция в настольных играх, Birks Group в Канаде начинает принимать биткоины
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Powered by PHP-Fusion copyright © 2002 - 2024 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.