Просмотров: 1297 | Дата: 29.03.2024 | Коментарии (0)

Радио на сайт




Тема не относится к PureBasic, но тем не менее -

Не большой код на JavaScript, позволяющий установить кнопку любимой радиостанции на страничку сайта.

Мой вариант имеет вид такой, но его можно при желании изменить под свой вкус,  перерисовать кнопки и выбрать свой стиль оформления, а также  выбрать адрес на онлайн поток 

у меня Чешская  радиостанция  AB Radio

поток звука    http://www.abradio.cz/asx/depechemode32.asx 


  

на картинке показано два состояния - вкл и выкл.



Сам код:


 <STYLE>
 body {background-color: #141414;}
 #name { position: relative; color:#999999; font-family:Verdana; font-size:10px; left:40px; top:-37px;} /* стиль текста */
 #img {position: relative;top:2px;}
 #blok {position: absolute; left:50px; top:30px; border:1px solid #333333; width:125px; height:42px; } /* положение и стиль блока */
 </STYLE>

<script type="text/javascript">
 var State = 1;
 function triger(href) {
 if (State == 1) {
 if(href!='') { /* если равен пустой строке */
 document.getElementById('mus').innerHTML="<EMBED type=application/x-mplayer2 src="+href+" width=1 height=1>"; /* загружаем плеер, если ширина и высота равны 0 - не работает*/
 document.forms["foto_inter"].getElementsByTagName("IMG")[0].src='выключенно.png'; /* меняем изображение */
 document.getElementById('name').innerHTML = 'Depeche Mode'; /* меняем текст */
 }
 State = 0;
 } else {
 document.getElementById('mus').innerHTML="";
 document.forms["foto_inter"].getElementsByTagName("IMG")[0].src='включить.png'; /* меняем изображение */
 document.getElementById('name').innerHTML = ''; /* меняем текст */
 State = 1;
 }
 }
 </script>

<DIV id="blok">
 <FORM name="foto_inter">
 <A href="#" onclick="triger('http://www.abradio.cz/asx/depechemode32.asx');"> 
 <IMG id="img" src="включить.png" width="37" height="37" border="no"> 
 </A>
 </FORM>
 <P id="name">Вкл. радио ?</P> 
</DIV>
 <DIV id="mus"></DIV> 



Скачать    



Ну и чтоб как-то связать с PB - оконный вариант:


 

(внешний вид рамки зависит от стиля системы например  Black Lite)



Enumeration
 #Window_0
 #Web
EndEnumeration

img$ =GetTemporaryDirectory()+"OFF.png"
img2$ =GetTemporaryDirectory()+"ON.png"
htm$ =GetTemporaryDirectory()+"DM.htm"

If CreateFile(1,img$)
 WriteData(1,?Im1, ?Im1End-?Im1)
 CloseFile(1)
EndIf
If CreateFile(2,img2$)
 WriteData(2,?Im2, ?Im2End-?Im2)
 CloseFile(2)
EndIf
If CreateFile(3,htm$)
 WriteData(3,?Im3, ?Im3End-?Im3)
 CloseFile(3)
EndIf


patch.s="file://localhost/"+GetTemporaryDirectory()+"DM.htm" ; полный путь к html файлу

If OpenWindow(#Window_0,0,0,165,70,"Радио DM",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered |#PB_Window_Invisible)
 WebGadget(#Web,0,0,380,200,patch)
 SetWindowLongPtr_(WindowID(#Window_0),#GWL_EXSTYLE, #WS_EX_TOOLWINDOW)
 HideWindow(#Window_0,0)
EndIf

Repeat
Event= WaitWindowEvent()
Until Event= #PB_Event_CloseWindow

DataSection
 Im1:
 IncludeBinary "OFF.png"
 Im1End:
 Im2:
 IncludeBinary "ON.png"
 Im2End:
 Im3:
 IncludeBinary "DM.htm"
 Im3End:
EndDataSection
;-------------------------

Скачать архив      











Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.