ByteScout SWF To Video SDK – VB.NET – SWF with Data to AVI

  • Home
  • /
  • Articles
  • /
  • ByteScout SWF To Video SDK – VB.NET – SWF with Data to AVI

ByteScout SWF To Video SDK – VB.NET – SWF with Data to AVI


' 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

		' 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 = ""

		' 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 = "output.avi"

		' Don't let it run infinitely
		converter.ConversionTimeOut = 3000 ' 3000ms = 3 seconds 

		' set FPS 
		converter.FPS = 29.97F

		' Set output movie dimensions 
		converter.OutputWidth = 320
		converter.OutputHeight = 240

		' Run conversion 

		' release resources
		converter = Nothing

		' Open the result in default media player
	End Sub
End Class

  Click here to get your Free Trial version of the SDK