ByteScout SWF To Video SDK - VB.NET - 32bit RGBA AVI - ByteScout

ByteScout SWF To Video SDK – VB.NET – 32bit RGBA AVI

  • Home
  • /
  • Articles
  • /
  • ByteScout SWF To Video SDK – VB.NET – 32bit RGBA AVI

ByteScout SWF To Video SDK – VB.NET – 32bit RGBA AVI

Module1.vb

[vb]
‘ x64 IMPORTANT NOTE: set CPU to x86 to build in x86 mode.

Imports BytescoutSWFToVideo

Module Module1

Sub Main()

‘ 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 RGBA Mode. IMPORTANT: Set .RGBAMode = True BEFORE calling .SetMovie()
converter.RGBAMode = True

‘ Set input SWF file
converter.InputSWFFileName = “circles.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 = 640
converter.OutputHeight = 480

‘ 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 Module

[/vb]


  Click here to get your Free Trial version of the SDK

Tutorials:

prev
next