ByteScout SWF To Video SDK – VB.NET – SWF to Lossless AVI

Home
/
Articles
/
ByteScout SWF To Video SDK – VB.NET – SWF to Lossless AVI

printable version:
ByteScout-SWF-To-Video-SDK-VB-NET-SWF-to-Lossless-AVI.pdf

SWF to lossless AVI in VB.NET with ByteScout SWF To Video SDK

Make SWF to lossless AVI in VB.NET

Tutorial on how to do SWF to lossless AVI in VB.NET

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.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      ' 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 
        ' https://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