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

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

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

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.

Try ByteScout Image To Video SDK today: Get 60 Day Free Trial or sign up for Web API

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

Try ByteScout Image To Video SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout Image To Video SDK page

Explore ByteScout Image To Video SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next