ByteScout Image To Video SDK – VB.NET – Batch Video Generation

Home
/
Articles
/
ByteScout Image To Video SDK – VB.NET – Batch Video Generation

printable version:
ByteScout-Image-To-Video-SDK-VB-NET-Batch-Video-Generation.pdf

batch video generation in VB.NET and ByteScout Image To Video SDK

Make batch video generation in VB.NET

Tutorial on how to do batch video generation in VB.NET

Here you may find thousands pre-made source code pieces for easy implementation in your own programming VB.NET projects. Batch video generation in VB.NET can be implemented with ByteScout Image To Video SDK. ByteScout Image To Video SDK is the SDK that is designed to generate video slideshow with 100+ 2d and 3D transition effects. Can generate WMV, AVI, WEBM video file with adjustable quality, framerate, output video size.

The SDK samples like this one below explain how to quickly make your application do batch video generation in VB.NET with the help of ByteScout Image To Video SDK. In order to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. VB.NET application implementation typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.

Free trial version of ByteScout Image To Video SDK is available on our website. Get it to try other samples for VB.NET.

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

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

Program.vb

      Imports BytescoutImageToVideo

Class Program
	Friend Shared Sub Main(args As String())
		Try
            Console.WriteLine("Converting JPG slides to video, please wait...")

			For i As Integer = 0 To 4
				' Create BytescoutImageToVideoLib.ImageToVideo object instance
				Dim converter As New ImageToVideo()

				' Activate the component
				converter.RegistrationName = "demo"
				converter.RegistrationKey = "demo"

				' Set output video size
				converter.OutputWidth = 640
				converter.OutputHeight = 480

				' Add images and set duration and effects for every slide
				Dim slide As Slide
				slide = converter.AddImageFromFileName("..\..\..\..\slide1.jpg")
				slide.Duration = 3000
				' 3000ms = 3s
                slide.InEffect = TransitionEffectType.teFade
                slide.OutEffect = TransitionEffectType.teFade
				Release(slide)
				' useful to decrease memory consumption during the batch conversion but not critical
				slide = converter.AddImageFromFileName("..\..\..\..\slide2.jpg")
				slide.Duration = 3000
                slide.InEffect = TransitionEffectType.teWipeLeft
                slide.OutEffect = TransitionEffectType.teWipeRight
				Release(slide)

				slide = converter.AddImageFromFileName("..\..\..\..\slide3.jpg")
				slide.Duration = 3000
                slide.InEffect = TransitionEffectType.teWipeLeft
                slide.OutEffect = TransitionEffectType.teWipeRight
				Release(slide)

				' Set output video file name
				converter.OutputVideoFileName = "result" & i & ".wmv"

				' Run the conversion
				converter.RunAndWait()

				Console.WriteLine("Created " + converter.OutputVideoFileName)

				' CRITICAL! 
				' Releases all resources consumed during the conversion
				Release(converter)
			Next

			Console.WriteLine("Done. Press any key to continue..")
			Console.ReadKey()
		Catch e As Exception
			Console.WriteLine("Error: " & e.ToString())
			Console.WriteLine(vbLf & "Press any key to exit")
			Console.ReadKey()
		End Try
	End Sub

	Private Shared Sub Release(o As Object)
		Try
			System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
		Catch
		Finally
			o = Nothing
		End Try
	End Sub
End Class