Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MediaWriter
Public Sub DriveSpeedsExample()
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.LoadDisc()
System.Threading.Thread.Sleep(1000)
Dim speedIndex As Integer = -1
For Each speed As MediaWriterSpeed In drive.Speeds
If speed.Index > speedIndex Then
speedIndex = speed.Index
End If
Next speed
If speedIndex > -1 Then
drive.CurrentSpeedIndex = speedIndex ' fastest speed
End If
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
Catch ex As Exception
Assert.Fail("Test Failed: " & ex.Message)
End Try
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 DriveSpeedsExample()
{
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.LoadDisc();
System.Threading.Thread.Sleep(1000);
int speedIndex = -1;
foreach (MediaWriterSpeed speed in drive.Speeds)
{
if (speed.Index > speedIndex)
speedIndex = speed.Index;
}
if (speedIndex>-1)
drive.CurrentSpeedIndex = speedIndex; // fastest speed
drive.BurnDisc(disc);
// wait loop for demonstration purposes
while (drive.State != MediaWriterState.StateIdle)
{
System.Windows.Forms.Application.DoEvents();
System.Threading.Thread.Sleep(10);
}
}
catch (Exception ex)
{
MessageBox.Show("Test Failed: " + ex.Message);
}
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}