This code demonstrates how to use UseMP4EncoderPlugin property.
Private Sub Capture_Click() VideoCap1.UseMp4EncoderPlugin = True VideoCap1.Mp4Videobitrate = 4600000 VideoCap1.Mp4Audiobitrate = 224000 VideoCap1.Mp4AudioSamplerate = 48000 VideoCap1.Mp4Audiochannel = 2 VideoCap1.Mp4Width = 1280 VideoCap1.Mp4Height = 720 VideoCap1.Mp4FrameRate =25 VideoCap1.Mp4Album = "My Album" VideoCap1.Mp4Author = "My Author" VideoCap1.Mp4Comment ="My Comment" VideoCap1.Mp4Copyright = "My Copyright" VideoCap1.Mp4Title = "My Title" VideoCap1.CaptureFileName = "c:\output\yourfile.mp4" result = Me.VideoCap1.Start End Sub
|