ByteScout SWF To Video SDK – VB.NET – Conversion Progress

Home
/
Articles
/
ByteScout SWF To Video SDK – VB.NET – Conversion Progress

printable version:
ByteScout-SWF-To-Video-SDK-VB-NET-Conversion-Progress.pdf

conversion progress in VB.NET and ByteScout SWF To Video SDK

Tutorial: how to do conversion progress in VB.NET

On this page you will learn from code samples for programming in VB.NET. ByteScout SWF To Video SDK was made to help with conversion progress 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.

VB.NET code snippet like this for ByteScout SWF To Video SDK works best when you need to quickly implement conversion progress in your VB.NET application. Follow the instruction from the scratch to work and copy and paste code for VB.NET into your editor. Code testing will allow the function to be tested and work properly with your data.

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 System.Threading
Imports BytescoutSWFToVideo

Class Program
    Friend Shared Sub Main(ByVal 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"

        ' Set the converter to the live data conversion mode
        ' (it will fully load the embedded video stream before the conversion)
        converter.SWFConversionMode = SWFConversionModeType.SWFWithLiveData

        ' set input SWF file 
        converter.InputSWFFileName = "shapes.swf"

        ' set output AVI or WMV video filename
        converter.OutputVideoFileName = "result.wmv"

        ' Don't let it run infinitely
        converter.ConversionTimeOut = 5000
        ' 5000ms = 5 seconds 
        ' set FPS 
        converter.FPS = 29.97F


        ' 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 = 320
        converter.OutputHeight = 240

        ' Run the conversion
        converter.Run()

        ' Show conversion progress:

        Dim i As Integer = 0
        Dim spin As Char() = New Char() {"|"c, "/"c, "-"c, "\"c}

        While Not Console.KeyAvailable AndAlso converter.IsRunning
            Dim progress As Single = converter.ConversionProgress
            Console.WriteLine([String].Format("Converting images {0}% {1}", progress, spin(i)))
            Console.CursorTop -= 1
            i = i + 1
            i = i Mod 4
            Thread.Sleep(50)
        End While

        If converter.IsRunning Then
            converter.Stop()
            Console.WriteLine("Conversion aborted by user.")
        Else
            Console.WriteLine("Conversion competed successfully.")
        End If

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


        ' Open the result in default media player
        Process.Start("result.wmv")

        Console.WriteLine()
        Console.WriteLine("Hit any key...")
        Console.ReadKey()
    End Sub
End Class