ByteScout SWF To Video SDK - VB.NET - 32bit RGBA AVI - ByteScout
Announcement
Our ByteScout SDK products are sunsetting as we focus on expanding new solutions.
Learn More Open modal
Close modal
Announcement Important Update
ByteScout SDK Sunsetting Notice
Our ByteScout SDK products are sunsetting as we focus on our new & improved solutions. Thank you for being part of our journey, and we look forward to supporting you in this next chapter!

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

' 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


  Click here to get your Free Trial version of the SDK

Tutorials:

prev
next