Here you may find thousands pre-made source code pieces for easy implementation in your own programming VB.NET projects. ByteScout SWF To Video SDK helps with video length setting in VB.NET. ByteScout SWF To Video SDK is the SDK that is capable of converting SWF macromedia files into WMV and AVI video. Supports dynamic flash movies, can transmit variable values. Options to change output video size, framerate, quality are available.
This rich sample source code in VB.NET for ByteScout SWF To Video SDK includes the number of functions and options you should do calling the API to implement video length setting. In order to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. Enjoy writing a code with ready-to-use sample VB.NET codes to implement video length setting using ByteScout SWF To Video SDK.
Trial version can be obtained from our website for free. It includes this and other source code samples for VB.NET.
' x64 IMPORTANT NOTE: set CPU to x86 to build in x86 mode Imports BytescoutSWFToVideo Module Module1 Sub Main() ' Create an instance of SWFToVideo ActiveX object Dim converter As New SWFToVideo() ' Set debug log 'converter.SetLogFile("log.txt") ' Register SWFToVideo converter.RegistrationName = "demo" converter.RegistrationKey = "demo" ' Set input SWF file converter.InputSWFFileName = "HelloWorld.swf" ' Set output video file converter.OutputVideoFileName = "result.avi" ' This property is for one-frame or endless SWF movies. ' Will stop conversion after specified time (milliseconds). converter.ConversionTimeOut = 5000 ' 5000ms = 5s ' you may calculate output video duration using information about the the source swf movie ' WARNING #1: this method to calculate the output video duration is not working for movies with dynamic scenes ' and interactive scripts as in these movies it is not possible to calculate the precise duration of the movie ' WARNING #2: you should set the input swf or flv filename (or url) before this calculation ' So the movie duration is calculated as the following: ' as swf frame count (number of frames in the swf) / movieFPS (frames per second defined in swf) ' and then multiplied by 1000 (as we are setting the .ConverstionTimeout in milliseconds) ' as the following (uncomment if you want to set the length of the output video to the same as the original swf) ' or as the following source code (uncomment to enable): ' converter.ConversionTimeout = 1000 * (converter.FrameCount / converter.MovieFPS) ' Set output movie dimensions converter.OutputWidth = 640 converter.OutputHeight = 480 ' Run conversion converter.RunAndWait() ' release resources System.Runtime.InteropServices.Marshal.ReleaseComObject(converter) converter = Nothing ' Open the result movie in default media player Process.Start("result.avi") End Sub End Module