Dave: I did something similar using the media player's activex component. This program reads the registry to get the current media player so the correct syntax is used. Older media player versions have different object addressing. When an audio file is selected the form looks as attached. When a video file is selected the video window becomes the lower 2 containers. Not sure if the attachment is allowed...if nor I apologize ahead of time... All of the other activex work to control the file playing. This includes the slider for positioning the file. Best regards Jack
________________________________________ From: ProfoxTech [[email protected]] on behalf of Dave Crozier [[email protected]] Sent: Tuesday, October 13, 2015 11:04 AM To: [email protected] Subject: RE: MP4 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/7d9e7f72b813014c8fd022cf04f820ed019fa7d...@ex06.drdad.thenewarkarena.com ** 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.
