2 <TITLE>VLC ActiveX plugin test page</TITLE>
7 <INPUT size="80" name="targetTextField" value="">
8 <INPUT type=submit value="Go" onClick="go(targetTextField.value);">
12 Insert VideoLAN.VLCPlugin.1 activex control
14 <OBJECT classid="clsid:E23FE9C6-778E-49D4-B537-38FCDE4887D8" codebase="axvlc.cab"
15 width="640" height="480" id="vlc" events="True">
16 <param name="Src" value="" />
17 <param name="ShowDisplay" value="True" />
18 <param name="Loop" value="False" />
19 <param name="AutoPlay" value="False" />
24 Insert MSComctlLib.Slider.2 activex control
26 <OBJECT classid="clsid:F08DF954-8592-11D1-B16A-00C0F0283628"
27 width="640" height="20" id="slider" events="True">
28 <param name="TickStyle" value="3" />
29 <param name="Min" value="0" />
30 <param name="Max" value="0" />
31 <param name="Value" value="0" />
32 <param name="Enabled" value="False" />
34 <SCRIPT LANGUAGE="JScript">
36 var sliderTimerId = 0;
37 var sliderScrolling = false;
39 function formatTime(timeVal)
41 var timeHour = timeVal;
42 var timeSec = timeHour % 60;
43 timeHour = (timeHour - timeSec)/60;
44 var timeMin = timeHour % 60;
45 timeHour = (timeHour - timeMin)/60;
46 return timeHour+":"+timeMin+":"+timeSec;
48 function go(targetURL)
50 var options = new Array(":input-repeat");
51 document.vlc.addTarget(targetURL, options, 4+8, -666);
54 sliderTimerId = setTimeout("updateSlider()", 1000);
57 function updateSlider()
59 if( ! sliderScrolling )
63 slider.Enabled = true;
64 slider.Max = vlc.Length;
65 slider.Value = vlc.Time;
66 info.innerText = formatTime(vlc.Time)+"/"+formatTime(vlc.Length);
72 slider.Enabled = false;
73 slider.Value = slider.Min;
75 info.innerText = "---/---";
80 sliderTimerId = setTimeout("updateSlider()", 1000);
91 sliderTimerId = setTimeout("updateSlider()", 1000);
98 clearTimeout(sliderTimerId)
106 clearTimeout(sliderTimerId)
110 slider.Value = slider.Min;
111 slider.Enabled = false;
116 function slider::Scroll()
118 slider.Text = formatTime(slider.Value);
119 info.innerText = slider.Text+"/"+formatTime(vlc.Length);
120 if( vlc.Time != slider.Value )
122 vlc.Time = slider.Value;
124 sliderScrolling = true;
126 function slider::Change()
128 if( sliderScrolling )
130 sliderScrolling = false;
132 else if( vlc.Time != slider.Value )
134 vlc.Time = slider.Value;
141 <INPUT type=button value="Play" onClick='document.vlc.play();'>
142 <INPUT type=button value="Stop" onClick='document.vlc.stop();'>
143 <INPUT type=button value="Pause" onClick='document.vlc.pause();'>
144 <INPUT type=button value=" << " onClick='document.vlc.playSlower();'>
145 <INPUT type=button value=" >> " onClick='document.vlc.playFaster();'>
146 <INPUT type=button value="Mute" onClick='document.vlc.toggleMute();'>
147 <INPUT type=button value="Show" onClick='document.vlc.Visible = true;'>
148 <INPUT type=button value="Hide" onClick='document.vlc.Visible = false;'>
149 <INPUT type=button value="Version" onClick='alert(document.vlc.VersionInfo);'>
150 </TD><TD width="20%">
151 <DIV id="info" style="text-align:right"></DIV>