Sign in to follow this  
Followers 0
ptrex

SWF to GIF Coverter

2 posts in this topic

#1 ·  Posted (edited)

SWF to GIF Converter

Since every is getting more and more into Flash / YouTube etc.

So am I. Recenctly I had to convert an AVI to FLV format. And I stumbled upon some other candy.

Here it is :

This example converts all SWF files in the folder into GIF image files
; Copy this script to the folder with SWF flash movies and run it
; Script will generate GIF image files using extracted frames from SWF

$SWFToImage = ObjCreate("SWFToImage.SWFToImageObject")

$SWFToImage.InitLibrary ("demo", "demo")

Dim $WshShell, $fs, $f, $fc, $f1, $tsFile

$WshShell = ObjCreate("WScript.Shell")

$sCurrentFolder = $WshShell.CurrentDirectory


$fs = ObjCreate("Scripting.FileSystemObject")
$f = $fs.GetFolder($sCurrentFolder) ; current directory
$fc = $f.Files
$fs = ""

; converting SWF files to GIF image files

For $f1 in $fc
    if StringUpper(StringRight($f1.name, 3)) = "SWF" then 

    $SWFToImage.InputSWFFileName = $f1.name
    $SWFToImage.FrameIndex = 1 ; number of frame to extract
    $SWFToImage.ImageOutputType = 2 ; set output image type to Jpeg (0 = BMP, 1 = JPG, 2=GIF)
    $SWFToImage.Execute 

    $SWFToImage.SaveToFile ($f1.name & ".gif")
    EndIf
Next

$SWFToImage = ""

This uses the SWFToImage Object.

Which has a good helpfile enclosed when you install it.

Also the free SWF Printer is great stuff.

Enjoy !!

regards

ptrex

Edited by ptrex

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Sound cool ptrex...I'm wondering, what's next! ;)

BTW, thanks for the link, SWF printer is great !! :)

Edited by slayerz

AUTOIT[sup] I'm lovin' it![/sup]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0