These source code samples are listed and grouped by their programming language and functions they use. ByteScout SWF To Video SDK was made to help with SWF to lossless AVI in VB.NET. ByteScout SWF To Video SDK is the library that can take SWF (Flash Macromedia) files and convert into WMV or AVI video with sound. Dynamic flash movie scenes, variables, actionscripts are supported and you also may adjust output video size, framerate and quality.
The SDK samples like this one below explain how to quickly make your application do SWF to lossless AVI in VB.NET with the help of ByteScout SWF To Video SDK. This VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. You can use these VB.NET sample examples in one or many applications.
Free trial version of ByteScout SWF To Video SDK is available on our website. Get it to try other samples for VB.NET.
' x64 IMPORTANT NOTE: set CPU to x86 to build in x86 mode. Imports System.Diagnostics Imports BytescoutSWFToVideo Class Program Friend Shared Sub Main(args As String()) ' Please make sure the Bytescout Lossless Video Codec is installed on the computer ' Bytescout lossless video codec is available for free from ' http://bytescout.com/lossless_video_codec_for_avi.html ' 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 empty video codec name to get the output video uncompressed converter.CurrentVideoCodecName = "bytescout lossless" ' Set input SWF file converter.InputSWFFileName = "Shapes.swf" ' 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 video file converter.OutputVideoFileName = "result.avi" ' Set output movie dimensions converter.OutputWidth = 320 converter.OutputHeight = 240 ' 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 Class