Namespaces
MediaWriter Class
Summary
Provides the functionality to write the contents of a folder or existing .ISO file to another .ISO file or DVD disc.
Syntax
public class MediaWriter : IDisposable
Public Class MediaWriter
Implements System.IDisposable
public ref class MediaWriter : public System.IDisposable
Example
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:\LEADTOOLS21\Resources\Images";
}
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MediaWriter
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:\LEADTOOLS21\Resources\Images"
End Class
