Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MediaWriter
<Test> _
Public Sub BurnDiscExample()
   Try
      Dim writer As MediaWriter = New MediaWriter()
      Dim drives As List(Of MediaWriterDrive) = writer.Drives
      Dim drive As MediaWriterDrive = drives(1)
      Dim disc As MediaWriterDisc = drive.CreateDisc()
      disc.VolumeName = "TEST DISC"
      disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles")
      drive.AutoEject = True
      AddHandler drive.OnProgress, AddressOf BurnProgress
      drive.LoadDisc()
      drive.BurnDisc(disc)
      ' wait loop for demonstration purposes
      Do While drive.State <> MediaWriterState.StateIdle
         System.Windows.Forms.Application.DoEvents()
         System.Threading.Thread.Sleep(10)
      Loop
      RemoveHandler drive.OnProgress, AddressOf BurnProgress
   Catch ex As Exception
      Assert.Fail("Test Failed: " & ex.Message)
   End Try
End Sub
Public Sub BurnProgress(ByVal sender As Object, ByVal evt As MediaWriterProgressEventArgs)
   System.Diagnostics.Debug.WriteLine(evt.ToString())
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
             
   
     
            using Leadtools;
using Leadtools.Codecs;
using Leadtools.MediaWriter;
public void BurnDiscExample()
{
   try
   {
      MediaWriter writer = new MediaWriter();
      List<MediaWriterDrive> drives = writer.Drives;
      MediaWriterDrive drive = drives[1];
      MediaWriterDisc disc = drive.CreateDisc();
      disc.VolumeName = "TEST DISC";
      disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles");
      drive.AutoEject = true;
      drive.OnProgress += BurnProgress;
      drive.LoadDisc();
      // BurnDisc starts
      drive.BurnDisc(disc);
      // wait loop for demonstration purposes
      while (drive.State != MediaWriterState.StateIdle)
      {
         System.Windows.Forms.Application.DoEvents();
         System.Threading.Thread.Sleep(10);
      }
      drive.OnProgress -= BurnProgress;
   }
   catch (Exception ex)
   {
      MessageBox.Show("Test Failed: " + ex.Message);
   }
}
public void BurnProgress(Object sender, EventArgs evt)
{
   System.Diagnostics.Debug.WriteLine(evt.ToString());
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}