Pop-Up Video

[SMcNeill]

Code: QB64: [Select]

1. PlayVideo _CWD$ + "\" + "test.mp4"
2.  
3. SUB PlayVideo (file$)
4.     ff = FREEFILE
5.     OPEN "playmovie.ps1" FOR OUTPUT AS #1
6.  
7.     PRINT #1, "Add-Type -AssemblyName presentationCore"
8.     PRINT #1, "$filepath = [uri] " + CHR$(34) + file$ + CHR$(34)
9.     PRINT #1, "$wmplayer = New-Object System.Windows.Media.MediaPlayer"
10.     PRINT #1, "$wmplayer.Open($filepath)"
11.     PRINT #1, "$duration = $wmplayer.NaturalDuration.TimeSpan.Seconds"
12.     PRINT #1, "$wmplayer.Close()"
13.     PRINT #1, ""
14.     PRINT #1, "$proc = Start-process -FilePath wmplayer.exe -ArgumentList $filepath"
15.     CLOSE
16.     SHELL _HIDE "Powershell.exe -File playmovie.ps1"
17. END SUB
18.  
19.  

A quick little powershell script to pop up a video and play it in Windows.  Personally, I'm a little disappointed in this here, as I still haven't sorted out a good method to know when to close the external program, position it, or size it, but I'm certain those options are probably all in Powershell somewhere -- even if I don't know where, yet!  ;P

Anyone with more experience with powershell and this sort of thing, is more than welcome to help expand on this little demo and hopefully highlight the things I'm missing out on.  ;D

[Pete]

Isn't just easier to SHELL to an installed media player, or your default media player?

Example:

Code: QB64: [Select]

1. SHELL _HIDE _DONTWAIT "vlc.exe myvid.mp4"

Pete

[Pete]

Oh, and to terminate it, for Windows, you might want to look into using the API to get the handle, and then terminate it with taskkill.

Pete

[SMcNeill]

Isn't just easier to SHELL to an installed media player, or your default media player?

Example:

Code: QB64: [Select]

1. SHELL _HIDE _DONTWAIT "vlc.exe myvid.mp4"

Pete

But are you certain someone else’s PC will have VLC installed?  All my windows machines run powershell, but not all of them use the same video playback programs.

[Pete]

Ah, but I also stated you can just use whatever default media player is installed...

Code: QB64: [Select]

1. SHELL _HIDE _DONTWAIT "myvid.mp4"

In the old days, we used to have to use CMD / C, and in Win98 and below COMMAND /C along with START to accomplish that...

Code: QB64: [Select]

1. SHELL "cmd /c START myvid.mp4"

Note that QB64 still supports START. START was meant to use the operating system to find the program, regardless of the directory, and to use a default device, if none was specified. That's the way I remember it, anyway.

Pete

[SpriggsySpriggs]

@SMcNeill

Hooray for PowerShell!

[SMcNeill]

I'm getting much closer to what I'm looking for with this here:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. _SCREENMOVE 200, 200
3.  
4.  
5.  
6.  
7. PlayVideo _CWD$ + "\" + "test.mp4", 100, 100
8.  
9.  
10. SUB PlayVideo (file$, x, y)
11.     DECLARE LIBRARY
12.         FUNCTION glutGet& (BYVAL what&)
13.     END DECLARE
14.  
15.     ff = FREEFILE
16.     OPEN "playmovie.ps1" FOR OUTPUT AS #1
17.  
18.     PRINT #ff, "WPF Library for Playing Movie and some components"
19.     PRINT #ff, "Add-Type -AssemblyName PresentationFramework"
20.     PRINT #ff, "Add-Type -AssemblyName System.ComponentModel"
21.     PRINT #ff, "#XAML File of WPF as windows for playing movie"
22.     PRINT #ff, "[xml]$XAML = @" + CHR$(34)
23.     PRINT #ff, ""
24.     PRINT #ff, "<Window xmlns=" + CHR$(34) + "http://schemas.microsoft.com/winfx/2006/xaml/presentation" + CHR$(34)
25.     PRINT #ff, "        xmlns:x=" + CHR$(34) + "http://schemas.microsoft.com/winfx/2006/xaml" + CHR$(34)
26.     PRINT #ff, "        Title=" + CHR$(34) + "PowerShell Video Player" + CHR$(34) + " Height=" + CHR$(34) + "480" + CHR$(34) + " Width=" + CHR$(34) + "640" + CHR$(34)
27.     'PRINT #ff, "        WindowStyle=" + CHR$(34) + "None" + CHR$(34)
28.     PRINT #ff, "        Left=" + CHR$(34) + _TRIM$(STR$(glutGet(100) + x)) + CHR$(34) + " Top=" + CHR$(34) + _TRIM$(STR$(glutGet(101) + y)) + CHR$(34) + " ResizeMode=" + CHR$(34) + "NoResize" + CHR$(34) + ">"
29.     PRINT #ff, "    <Grid Margin=" + CHR$(34) + "0,0,2,3" + CHR$(34) + ">"
30.     PRINT #ff, "        <MediaElement Height=" + CHR$(34) + "480" + CHR$(34) + " Width=" + CHR$(34) + "640" + CHR$(34) + " Name=" + CHR$(34) + "VideoPlayer" + CHR$(34) + " LoadedBehavior=" + CHR$(34) + "Manual" + CHR$(34) + " UnloadedBehavior=" + CHR$(34) + "Stop" + CHR$(34) + " Margin=" + CHR$(34) + "8,10,10,61" + CHR$(34) + " />"
31.     PRINT #ff, "        <Button Content=" + CHR$(34) + "Pause" + CHR$(34) + " Name=" + CHR$(34) + "PauseButton" + CHR$(34) + " HorizontalAlignment=" + CHR$(34) + "Left" + CHR$(34) + " Margin=" + CHR$(34) + "236,383,0,0" + CHR$(34) + " VerticalAlignment=" + CHR$(34) + "Top" + CHR$(34) + " Width=" + CHR$(34) + "75" + CHR$(34) + "/>"
32.     PRINT #ff, "        <Button Content=" + CHR$(34) + "Play" + CHR$(34) + " Name=" + CHR$(34) + "PlayButton" + CHR$(34) + " HorizontalAlignment=" + CHR$(34) + "Left" + CHR$(34) + " Margin=" + CHR$(34) + "236,383,0,0" + CHR$(34) + " VerticalAlignment=" + CHR$(34) + "Top" + CHR$(34) + " Width=" + CHR$(34) + "75" + CHR$(34) + "/>"
33.     PRINT #ff, "    </Grid>"
34.     PRINT #ff, "</Window>"
35.     PRINT #ff, CHR$(34) + "@"
36.     PRINT #ff, ""
37.     PRINT #ff, "#Movie Path"
38.     PRINT #ff, "[uri]$VideoSource = " + CHR$(34) + file$ + CHR$(34)
39.     PRINT #ff, ""
40.     PRINT #ff, "#Devide All Objects on XAML"
41.     PRINT #ff, "$XAMLReader=(New-Object System.Xml.XmlNodeReader $XAML)"
42.     PRINT #ff, "$Window=[Windows.Markup.XamlReader]::Load( $XAMLReader )"
43.     PRINT #ff, "$VideoPlayer = $Window.FindName(" + CHR$(34) + "VideoPlayer" + CHR$(34) + ")"
44.     PRINT #ff, "$PauseButton = $Window.FindName(" + CHR$(34) + "PauseButton" + CHR$(34) + ")"
45.     PRINT #ff, "$PlayButton = $Window.FindName(" + CHR$(34) + "PlayButton" + CHR$(34) + ")"
46.     PRINT #ff, ""
47.     PRINT #ff, "#Video Default Setting"
48.     PRINT #ff, "$VideoPlayer.Volume = 100;"
49.     PRINT #ff, "$VideoPlayer.Source = $VideoSource;"
50.     PRINT #ff, "$VideoPlayer.Play()"
51.     PRINT #ff, "$PauseButton.Visibility = [System.Windows.Visibility]::Visible"
52.     PRINT #ff, "$PlayButton.Visibility = [System.Windows.Visibility]::Hidden"
53.     PRINT #ff, ""
54.     PRINT #ff, "#Button click event"
55.     PRINT #ff, "$PlayButton.Add_Click({"
56.     PRINT #ff, "    $VideoPlayer.Play()"
57.     PRINT #ff, "    $PauseButton.Visibility = [System.Windows.Visibility]::Visible"
58.     PRINT #ff, "    $PlayButton.Visibility = [System.Windows.Visibility]::Hidden"
59.     PRINT #ff, "})"
60.     PRINT #ff, "$PauseButton.Add_Click({"
61.     PRINT #ff, "    $VideoPlayer.Pause()"
62.     PRINT #ff, "    $PauseButton.Visibility = [System.Windows.Visibility]::Hidden"
63.     PRINT #ff, "    $PlayButton.Visibility = [System.Windows.Visibility]::Visible"
64.     PRINT #ff, "})"
65.     PRINT #ff, ""
66.     PRINT #ff, "#Show Up the Window"
67.     PRINT #ff, "$Window.ShowDialog() | out-null"
68.     CLOSE
69.     SHELL _HIDE "Powershell.exe -File playmovie.ps1"
70. END SUB
71.  

The main thing I'm lacking here is now someway to calculate the movie time and then auto-close the task, and I'll have a pop-up video player to use with a few programs in windows.  :)

[Pete]

Again, why not just download a media player, that can be configured to close upon completion like VLC?

Pete

[SMcNeill]

Again, why not just download a media player, that can be configured to close upon completion like VLC?

Pete

Because I'm shooting for something native which I can share with others, without expecting them to download other programs which they might not be interested in. 

Because I'm old, and like to reinvent the wheel.  You should appreciate this, as you like to recreate text editors and word processes, rather than downloading OpenOffice, Word, or any of the other numerous ones out there.

Just because.  :P

[Pete]

What is this Open Office and Word you speak of?

Pete :D

[SpriggsySpriggs]

If the video is mp4 then you can extract the audio with Audacity and then you can determine the length with SNDLEN.

[Pete]

I can't believe you had the audacity to recommend that!

Pete