Поиск и просмотр видео
Онлайн
поиск и просмотр видео файлов
с помощью Google API функции.
Архив с
программой
YouTube онлайн плеер
API инструменты для редактирования
формы и фунцкий на странице:
http://code.google.com/intl/ru-RU/apis/youtube
...
Выбераем, что нам подходит...
Полученный код скрипта вставляем в WebGadget()
|
Enumeration
#Window_0
#Web
EndEnumeration
name.s= "L2GaCnAiuvo" ; видео по
умолчанию 'Depeche Mode'
Procedure SCRIPT(name.s)
HTML.s +
"<style type='text/css'>"
HTML + "body {margin: 10;
padding: 0;background-color: #000000;} "
HTML + "#viDiv
{width : 650px;height: 515px;border: 1px solid #333333;padding:
5px;}"
HTML + "</style>"
HTML +
"<div id='viDiv'>"
HTML + "<object style='height:
390px; width: 640px'>"
HTML + "<param name='movie'
value='http://www.youtube.com/v/"+name+"?version=3?version=3&color1=0xb1b1b1&color2=0xcfcfcf&fs=1&feature=player_embedded'>"
HTML
+ "<param name='allowFullScreen' value='true'>"
HTML
+ "<param name='allowScriptAccess'
value='always'>"
HTML + "<embed
src='http://www.youtube.com/v/"+name+"?version=3?version=3&color1=0xb1b1b1&color2=0xcfcfcf&fs=1&feature=player_embedded'"
HTML
+ "type='application/x-shockwave-flash'"
HTML +
"allowfullscreen='true'"
HTML +
"allowScriptAccess='always'"
HTML +
"width='640'"
HTML + "height='505'>"
HTML
+ "</object>"
HTML +
"</div>"
SetGadgetItemText(#Web,#PB_Web_HtmlCode,HTML)
EndProcedure
OpenWindow (#Window_0, 0, 0, 670,535,
"YouTube плеер",
#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_Invisible)
SetWindowColor(#Window_0,RGB(0,
0, 0))
WebGadget(#Web,0,0,750,535,"")
SCRIPT(name.s)
HideWindow(#Window_0,0)
Repeat
Event= WaitWindowEvent()
Until Event=
#PB_Event_CloseWindow |
Архив 