This sample shows how to convert JPG images to WMV video slideshow and apply Ease In and Ease Out slide effects using Bytescout Image To Video SDK.
Sample result WMV video:
Visual Basic
' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo") ' Activate the component converter.RegistrationName = "demo" converter.RegistrationKey = "demo" MsgBox "The script will now convert 3 slides into Result.wmv video file" ' Add images and set the duration for every slide Set slide = converter.AddImageFromFileName("....slide1.jpg") slide.Duration = 3000 ' 3000ms = 3s Slide.Effect = 1 ' 1 = EaseIn slide.EffectDuration = 3000 ' 3000ms = 3s Set slide = converter.AddImageFromFileName("....slide2.jpg") slide.Duration = 3000 Slide.Effect = 2 ' 2 = EaseOut slide.EFfectDuration = 3000 Set slide = converter.AddImageFromFileName("....slide3.jpg") slide.Duration = 3000 Slide.Effect = 1 ' 1 = EaseIn Slide.EffectDuration = 3000 ' Set output video size converter.OutputWidth = 320 converter.OutputHeight = 240 ' Set output video file name converter.OutputVideoFileName = "result.wmv" ' Run the conversion converter.RunAndWait() MsgBox "Result.wmv is ready. Script will try to open the video in default media player" ' Open result in default media player Set shell = CreateObject("WScript.Shell") shell.Run "result.wmv", 1, false Set shell = Nothing Set converter = Nothing
Sorry! This product is not available.
Please click here to visit main page for the list of all available products and solutions.
Product Links: