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

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

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

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.

Try ByteScout SWF To Video SDK today: Get 60 Day Free Trial or sign up for Web API

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

Try ByteScout SWF To Video SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout SWF To Video SDK page

Explore ByteScout SWF To Video SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next