Re: Is there an easy way to add text to an mp4 video
Posted: Mon Jan 13, 2014 8:36 pm
Take a look at BB Flashback:
http://www.bbsoftware.co.uk/BBFlashBack ... tures.aspx
http://www.bbsoftware.co.uk/BBFlashBack ... tures.aspx
http://www.purebasic.com
https://www.purebasic.fr/english/
- Express is free and enables you to record the screen, sound, webcam, share movies online or save them as Flash and AVI files.If you'd like to be able to whip up short videos and post them online but don't quite know where to start, Blueberry's BB FlashBack Express might be the tool for you. It records your screen activity, with sound, and posts finished videos to YouTube and other sites. BB FlashBack Express lets you create instructional videos that record every onscreen step, or narrate a slideshow or series of clips to create your own documentaries and short films.
Code: Select all
Debug cvGetCaptureProperty(*capture, #CV_CAP_PROP_FOURCC)
Code: Select all
cvCreateVideoWriter(filename.p-ascii, fourcc, fps.d, width, height, is_color)
fps.d = cvGetCaptureProperty(*capture, #CV_CAP_PROP_FPS)
FrameWidth = cvGetCaptureProperty(*capture, #CV_CAP_PROP_FRAME_WIDTH)
FrameHeight = cvGetCaptureProperty(*capture, #CV_CAP_PROP_FRAME_HEIGHT)
*writer = cvCreateVideoWriter(sVideo, CV_FOURCC("D", "I", "V", "X"), fps, FrameWidth, FrameHeight, #True)
I don't have it installed, at least not directly; I wonder if it's readily accessible because I have VLC installed?CV_FOURCC("D", "I", "V", "X")
will only work if you have DIVX installed. which I did and the file is almost the same size as the original files.
I was using "System Information" (nice find with AVIcodec):cvid;Enabled;CinepakĀ® Codec;1.10.0.11;Radius Inc.;C:\Windows\system32\iccvid.dll
i420;Enabled;Intel Indeo(R) Video YUV Codec;6.1.7600.16385 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\iyuv_32.dll
iyuv;Enabled;Intel Indeo(R) Video YUV Codec;6.1.7600.16385 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\iyuv_32.dll
mrle;Enabled;Microsoft RLE Compressor;6.1.7600.16385 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\msrle32.dll
msvc;Enabled;Microsoft Video 1 Compressor;6.1.7600.16385 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\msvidc32.dll
uyvy;Enabled;Microsoft UYVY Video Decompressor;6.1.7601.17514 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\msyuv.dll
yuy2;Enabled;Microsoft UYVY Video Decompressor;6.1.7601.17514 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\msyuv.dll
yvu9;Enabled;Toshiba Video Codec;6.1.7601.17514 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\tsbyuv.dll
yvyu;Enabled;Microsoft UYVY Video Decompressor;6.1.7601.17514 (win7Microsoft Corporation;Microsoft Corporation;C:\Windows\system32\msyuv.dll
Choose any one or a combination of effects in the OpenCV package examples:now to fight "cross dissolve" from file to file
Code: Select all
BlurIn = fps * 3 * 2
BlurOut = 1
Repeat
*image = cvQueryFrame(*capture)
If *image
cvPutText(*image, "JHPJHP", 10, 30, @font, 255, 0, 0, 0)
FramePos.d = cvGetCaptureProperty(*capture, #CV_CAP_PROP_POS_FRAMES)
FrameCount.d = cvGetCaptureProperty(*capture, #CV_CAP_PROP_FRAME_COUNT)
If FramePos <= fps * 3
BlurIn - 2
cvSmooth(*image, *image, #CV_BLUR, BlurIn, 0, 0, 0)
ElseIf FrameCount - FramePos <= fps * 3
BlurOut + 2
cvSmooth(*image, *image, #CV_BLUR, BlurOut, 0, 0, 0)
EndIf
cvWriteFrame(*writer, *image)
cvShowImage(#CV_WINDOW_NAME, *image)
keyPressed = cvWaitKey(10)
Else
Break
EndIf
Until keyPressed = 27 Or ExitCV