ByteScout SWF To Video SDK – VB6 – SWF to PNG

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

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

SWF to PNG in VB6 with ByteScout SWF To Video SDK

SWF to PNG in VB6

The sample source codes on this page will demonstrate you how to make SWF to PNG in VB6. ByteScout SWF To Video SDK helps with SWF to PNG in VB6. ByteScout SWF To Video SDK is the specialized software development kit for programmers who need to add SWF (Flash Macromedia) to video conversion into their app. Supports WMV and AVI video output with sound as can take input flash movies with variables, actionscripts, dynamic files as input. You can control output video size, framerate, video and audio 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. Follow the instruction from the scratch to work and copy and paste code for VB6 into your editor. Code testing will allow the function to be tested and work properly with your data.

Trial version can be obtained from our website for free. It includes this and other source code samples for VB6.

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"


    ' uncomment to enable PNG with transparency
    ' converter.RGBAMode = true ' enable BEFORE setting InputSWFFileName property

    ' 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 movie dimensions
    converter.OutputWidth = 640
    converter.OutputHeight = 480

    converter.StartFrame = 25

    converter.ConvertToPNG "output.png"

    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