ByteScout Image To Video SDK – VB.NET – Multiple Videos At Once

Home
/
Articles
/
ByteScout Image To Video SDK – VB.NET – Multiple Videos At Once

printable version:
ByteScout-Image-To-Video-SDK-VB-NET-Multiple-Videos-At-Once.pdf

multiple videos at once in VB.NET with ByteScout Image To Video SDK

multiple videos at once in VB.NET

These source code samples are listed and grouped by their programming language and functions they use. ByteScout Image To Video SDK helps with multiple videos at once in VB.NET. ByteScout Image To Video SDK is the library for conversion of images into video slideshow. Provides built-in support for more than hundred of 2D and 3D transition effects. Output formats supported are AVI,WMV and WEBM video files. You may adjust output video size, quality, framerate and add audio.

This rich sample source code in VB.NET for ByteScout Image To Video SDK includes the number of functions and options you should do calling the API to implement multiple videos at once. Follow the instruction from the scratch to work and copy and paste code for VB.NET into your editor. 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.

ByteScout Image To Video SDK is available as free trial. You may get it from our website along with all other source code samples for VB.NET applications.

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 System.Threading
Imports BytescoutImageToVideo

Class Program

    Private Shared numBusy As Integer
    Private Shared doneEvent As ManualResetEvent

    Friend Shared Sub Main(ByVal args As String())

        doneEvent = New ManualResetEvent(False)

        Console.WriteLine("Converting JPG slides to video in multiple threads, please wait...")

        numBusy = 10 ' 10 threads to start

        ' starting threads one by one
        For i As Integer = 1 To numBusy
            ThreadPool.QueueUserWorkItem(AddressOf DoWork, i)
        Next

        ' wait for all threads finished
        doneEvent.WaitOne()

        Console.WriteLine("All threads are finished. Press any key to continue..")
        Console.ReadKey()

    End Sub



    Private Shared Function GetRandomEffect() As TransitionEffectType
        Dim rr As New Random
        GetRandomEffect = rr.Next(CType(TransitionEffectType.teZoomOut, Integer), CType(TransitionEffectType.teBlinds3DHorz, Integer))
    End Function

    Private Shared Sub DoWork(ByVal data As Object)

        Dim index As Integer = CInt(Data)

        Try
            Console.WriteLine("Thread {0} started...", index)

            ' Create BytescoutImageToVideoLib.ImageToVideo object instance
            Dim converter As New ImageToVideo()

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

            ' Add images and set the duration for every slide
            Dim slide As Slide
            slide = DirectCast(converter.AddImageFromFileName("..\..\..\..\slide1.jpg"), Slide)
            slide.Duration = 3000  ' 3000ms = 3s
            slide.InEffect = GetRandomEffect()
            slide.OutEffect = GetRandomEffect()


            slide = DirectCast(converter.AddImageFromFileName("..\..\..\..\slide2.jpg"), Slide)
            slide.Duration = 3000
            slide.InEffect = GetRandomEffect()
            slide.OutEffect = GetRandomEffect()

            slide = DirectCast(converter.AddImageFromFileName("..\..\..\..\slide3.jpg"), Slide)
            slide.Duration = 3000
            slide.InEffect = GetRandomEffect()
            slide.OutEffect = GetRandomEffect()

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

            ' Set output video file name
            converter.OutputVideoFileName = String.Format("result_{0}.wmv", index)

            ' Run the conversion
            converter.RunAndWait()

            ' Release resources
            System.Runtime.InteropServices.Marshal.ReleaseComObject(converter)

            Console.WriteLine("Thread {0} finished.", index)

        Catch ex As Exception
            Console.WriteLine("Thread {0} failed: {1}", index, ex.Message)
        End Try

        If Interlocked.Decrement(numBusy) = 0 Then
            doneEvent.Set()
        End If

    End Sub
End Class