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:profox-boun...@leafe.com] On Behalf Of Gary Sent: 13 October 2015 15:53 To: profox@leafe.com 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: ProFox@leafe.com 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/18725b8cd2d5d247873a2baf401d4ab269018...@ex2010-a-fpl.fpl.LOCAL ** 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.