ByteScout SWF To Video SDK – VB6 – SWF To Video

Home
/
Articles
/
ByteScout SWF To Video SDK – VB6 – SWF To Video

printable version:
ByteScout-SWF-To-Video-SDK-VB6-SWF-To-Video.pdf

SWF to video in VB6 with ByteScout SWF To Video SDK

SWF to video in VB6

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout SWF To Video SDK was made to help with SWF to video in VB6. ByteScout SWF To Video SDK is the library that can take SWF (Flash Macromedia) files and convert into WMV or AVI video with sound. Dynamic flash movie scenes, variables, actionscripts are supported and you also may adjust output video size, framerate and quality.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. To do SWF to video in your VB6 project or application you may simply copy & paste the code and then run your app! You can use these VB6 sample examples in one or many applications.

Our website provides free trial version of ByteScout SWF To Video SDK. It comes along with all these source code samples with the goal to help you with your VB6 application implementation.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Form1.frm

      VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1
      Caption         =   "Convert"
      Height          =   975
      Left            =   1440
      TabIndex        =   0
      Top             =   960
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

    ' Create an instance of SWFToVideo ActiveX object
    Set converter = CreateObject("BytescoutSWFToVideo.SWFToVideo")

    ' Set debug log
    'converter.SetLogFile "log.txt"

    ' Register SWFToVideo
    converter.RegistrationName = "demo"
    converter.RegistrationKey = "demo"


    ' Set input SWF file
    converter.InputSWFFileName = "SlideShowWithEffects.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.wmv"

    ' Set output movie dimensions
    converter.OutputWidth = 640
    converter.OutputHeight = 480

    ' Run conversion
    converter.RunAndWait

    ' Open result in default media player
	Set shell = CreateObject("WScript.Shell")
	shell.Run "result.wmv", 1, false
	Set shell = Nothing

	Set converter = Nothing

End Sub

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout SWF To Video SDK Home Page

Explore ByteScout SWF To Video SDK Documentation

Explore Samples

Sign Up for ByteScout SWF To Video SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Project1.vbp

      Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1