MP4 Movies
Posted: Sat Apr 05, 2014 8:19 am
Might PB someday handle MP4 movie playback?
Code: Select all
Video: MPEG4 Video (H264) 1280x720 23.976fps 2772kbps [Video]
ID : 1
Format : AVC
Format/Info : Advanced Video Codec
Format profile : High@L3.1
Format settings, CABAC : Yes
Format settings, ReFrames : 1 frame
Codec ID : avc1
Codec ID/Info : Advanced Video Coding
Duration : 3mn 17s
Bit rate : 2 773 Kbps
Maximum bit rate : 5 029 Kbps
Width : 1 280 pixels
Height : 720 pixels
Display aspect ratio : 16:9
Frame rate mode : Constant
Frame rate : 23.976 fps
Color space : YUV
Chroma subsampling : 4:2:0
Bit depth : 8 bits
Scan type : Progressive
Bits/(Pixel*Frame) : 0.125
Stream size : 65.3 MiB (93%)
Code: Select all
EnableExplicit
InitNetwork() : InitMovie()
Define.s video = "http://www.annettlouisan.de/1/video/deinding.mp4"
Define.s file = GetTemporaryDirectory() + GetFilePart(video)
If FileSize(file) <= 0
ReceiveHTTPFile(video, file)
EndIf
If LoadMovie(0, file)
OpenWindow(0, #PB_Ignore, #PB_Ignore, MovieWidth(0), MovieHeight(0), "Annett Louisan - www.annettlouisan.de")
PlayMovie(0, WindowID(0))
While MovieStatus(0) <= 0
Delay(10)
Wend
Repeat
Select WaitWindowEvent(100)
Case #PB_Event_CloseWindow
Break
Case 0
If Not MovieStatus(0)
Break
EndIf
EndSelect
ForEver
EndIf