ByteScout SWF To Video SDK – VB.NET – SWF to PNG (All Frames)

Home
/
Articles
/
ByteScout SWF To Video SDK – VB.NET – SWF to PNG (All Frames)

printable version:
ByteScout-SWF-To-Video-SDK-VB-NET-SWF-to-PNG-(All-Frames).pdf

SWF to PNG (all frames) in VB.NET using ByteScout SWF To Video SDK

SWF to PNG (all frames) in VB.NET

Today we will explain the steps and algorithm of implementing SWF to PNG (all frames) and how to make it work in your application. SWF to PNG (all frames) in VB.NET can be implemented with ByteScout SWF To Video SDK. 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.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. Follow the instruction from the scratch to work and copy and paste code for VB.NET into your editor. Test VB.NET sample code examples whether they respond your needs and requirements for the project.

On our website you may get trial version of ByteScout SWF To Video SDK for free. Source code samples are included to help you with your VB.NET application.

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())
        ' 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"

        ' Enable trasparency - set BEFORE setting input SWF filename
        converter.RGBAMode = True

        ' Set input SWF file
        converter.InputSWFFileName = "Shapes.swf"
    

        ' Extract all frames to .\Output sub-folder
        converter.ConvertAllToPNG(".\Output")

        ' release resources
        System.Runtime.InteropServices.Marshal.ReleaseComObject(converter)
        converter = Nothing

        ' Open the first extracted frame in default application
        Process.Start("frame0.png")
    End Sub
End Class