Or this may help. Select the YouTube MP4 link at the top of the form
******************
* Start of Program
*
public oform
oform=createObject("ywmp")
oform.show
read events
return
DEFINE CLASS ywmp AS form
Top = 53
Left = 164
Height = 430
Width = 460
ShowWINDOW=2
DoCreate = .T.
ShowTips = .T.
Caption = "Windows mediaplayer"
Name = "form1"
ADD OBJECT wmp AS olecontrol WITH ;
oleclass="WMPlayer.OCX.7", ;
Top = 30, ;
Left = 2, ;
Height = 406, ;
Width = 457, ;
enableContextmenu=.f.,;
StretchtoFit=.t.,;
visible=.f., ;
Name = "wmp"
ADD OBJECT combo1 AS combobox WITH ;
Height = 24, ;
Left = 348, ;
ToolTipText = "Some links (video,tv,musique..)", ;
Top = 1, ;
Width = 100, ;
Name = "Combo1"
ADD OBJECT text1 AS textbox WITH ;
Height = 25, ;
Left = 36, ;
ToolTipText = "Type an UrL OR DISC FILE", ;
Top = 2, ;
Width = 216, ;
Name = "Text1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 2, ;
Left = 254, ;
Height = 24, ;
Width = 24, ;
FontBold = .T., ;
Caption = ">", ;
ToolTipText = "Play/Pause", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 1, ;
Left = 7, ;
Height = 25, ;
Width = 25, ;
Caption = "...", ;
ToolTipText = "Open a disc file ", ;
Name = "Command2"
ADD OBJECT command3 AS commandbutton WITH ;
Top = 2, ;
Left = 279, ;
Height = 24, ;
Width = 34, ;
FontBold = .T., ;
FontSize = 8, ;
Caption = "Stop", ;
ToolTipText = "Stop", ;
Name = "Command3"
ADD OBJECT command4 AS commandbutton WITH ;
Top = 3, ;
Left = 321, ;
Height = 24, ;
Width = 24, ;
FontBold = .T., ;
Caption = "Fs", ;
ToolTipText = "Fullscreen ", ;
Name = "Command4"
ADD OBJECT timer1 AS timer WITH ;
interval=200,;
name="timer1"
PROCEDURE Load
_screen.windowstate=1
ENDPROC
PROCEDURE TIMER1.TIMER
with thisform.wmp
.settings.autoStart = .f.
.settings.volume=80
.settings.setMode("Loop",.f.) && no loop
.uimode="none" &&full,...
.anchor=15
.visible=.t.
endwith
thisform.resize()
this.enabled=.f.
ENDPROC
PROCEDURE Resize
try
with this.wmp
.left=1
.top=.parent.text1.top+.parent.text1.height+5
.width=.parent.width-2
.height=.parent.height-.parent.text1.top -.parent.text1.height-5
endwith
catch
endtry
ENDPROC
PROCEDURE wmp.STATUSCHANGE
try
thisform.resize()
catch
endtry
ENDPROC
PROCEDURE combo1.Click
thisform.text1.value=this.value
thisform.command1.caption=">"
thisform.command1.click
ENDPROC
PROCEDURE combo1.Init
this.additem("http://www.youtube.com/v/OIz3TUWdP_8&hl=fr_FR&fs=1&";)
this.additem("http://www.bfmtv.com/divers/player_bfmtv.asx";)
this.additem("http://radio-dzair.net:8000";)
this.listindex=1
ENDPROC
PROCEDURE command1.Click
with thisform.wmp
.url=thisform.text1.value
do case
case this.caption=">"
this.caption="II"
.controls.play()
case this.caption="II"
this.caption=">"
.controls.pause()
endcase
.parent.resize()
endwith
ENDPROC
PROCEDURE command2.Click
thisform.text1.value=getfile()
ENDPROC
PROCEDURE command3.Click
with thisform.wmp
.controls.stop
.parent.command1.caption=">"
.parent.resize()
endwith
ENDPROC
PROCEDURE command4.Click
with thisform.wmp
try
if thisform.wmp.playstate=3 &&video playing
wait window ("Fullscreen is accessible if the video is already
loaded.Press ESC to go back") at srows()/2,scols()/2 timeout 1
.fullscreen=.t.
endi
catch
endtry
endwith
ENDPROC
PROCEDURE DESTROY
clea events
ENDPROC
ENDDEFINE
* End of Program
*************
-----Original Message-----
From: ProFox [mailto:[email protected]] On Behalf Of Gary
Sent: 13 October 2015 15:53
To: [email protected]
Subject: MP4
Is there a tool or container in fox pro9 that I can insert an .mp4 movie. I
building a gymnastic skill data base and in some cases I have a picture and or
drawing and in many other instances I have a video. Ideally, I would like
scroll through multiple views and then press play as the desired title is
selected.
Gary Jeurink
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
