Creating a LEADTOOLS Multimedia Video File to DVD Disc Conversion Application

Perform the following steps to create and run a multimedia video-to-DVD disc conversion application using the LEADTOOLS Multimedia ConvertCtrl control and the DVD add-on module.

Start Visual Studio.
Choose File->New->Project... from the menu.
In the New Project dialog box, choose either "Visual C# Projects" or "VB Projects" in the Projects Type List, and choose "Windows Application " in the Templates List.
Type the project name as "Multimedia Video-To-DVD Disc Converter" in the Project Name field, and then click OK. If desired, type a new location for your project or select a directory using the Browse button, and then click OK.
In the "Solution Explorer" window, right-click the "References" folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the ".NET" tab and select Leadtools.Multimedia and Leadtools.MediaWriter and click OK.

Make sure Form1 is in design view. Go to the toolbox (View->Toolbox) and drag a ConvertCtrl control on the form. NOTE: If you do not have ConvertCtrl in your toolbox, select Tools->Choose Toolbox Items from the menu. Click Browse and then select Leadtools.Multimedia.dll from "<LEADTOOLS_INSTALLDIR>\Bin\Dotnet4\Win32" and then click Open and then click OK. After adding it to the form, set the following properties on the convert control:

Property	Value
Name	_convertctrl
Anchor	Top, Bottom, Left, Right
BackColor	Black

Go to the toolbox (View->Toolbox) and drag a ProgressBar control on the form (below the convert control) and set the following properties:

Property	Value
Name	_progress
Anchor	Bottom, Left, Right
Step	1

Go to the toolbox (View->Toolbox) and drag a Text control on the form (below the progress control) and set the following properties:

Property	Value
Name	_textStatus
Anchor	Bottom, Left
BorderStyle	None
BackColor	Control
ForeColor	Highlight

Go to the toolbox (View->Toolbox) and drag two Button controls to the bottom of the form and set the following properties:

Property	Value
Name	_buttonConvert
Text	Convert
Anchor	Bottom, Right
Name	_buttonBurn
Text	Burn
Anchor	Bottom, Right

Switch Form1 to code view (right-click Form1 in the Solution Explorer then choose View Code) and add the following lines to the beginning of the file:
```
vb 
Imports Leadtools.Multimedia 
Imports Leadtools.MediaWriter 
```
C#
```
using Leadtools.Multimedia; 
using Leadtools.MediaWriter; 
```

Declare the following private variable:

vb 
Private _sourceFile As String 
Private _targetPath As String 
Private _aborted As Boolean

private string _sourceFile; 
private string _targetPath; 
Private bool _aborted;

Add an event handler to the Form1 Load event and code it as follows:

vb 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
  _sourceFile = "<LEADTOOLS_INSTALLDIR>\Media\DaDa_DVD_MPEG2.mpg" 
  _targetPath = Path.Combine(Directory.GetCurrentDirectory(), "DVD") 
                 
  _textStatus.Text = String.Empty 
  _buttonConvert.Enabled = True 
  _buttonBurn.Enabled = False 
                 
  If (Not Directory.Exists(_targetPath)) Then 
   Directory.CreateDirectory(_targetPath) 
  End If 
End Sub

private void Form1_Load(object sender, System.EventArgs e) 
{ 
   _sourceFile = @"<LEADTOOLS_INSTALLDIR>\Media\DaDa_DVD_MPEG2.mpg"; 
   _targetPath = Path.Combine(Directory.GetCurrentDirectory(), "DVD"); 
                 
   _textStatus.Text = string.Empty; 
   _buttonConvert.Enabled = true; 
   _buttonBurn.Enabled = false; 
                 
   if (!Directory.Exists(_targetPath)) 
      Directory.CreateDirectory(_targetPath); 
}

Add an event handler to the _convertctrl Progress event and code it as follows:

vb 
Private Sub _convertctrl_Progress(ByVal sender As System.Object, ByVal e As ProgressEventArgs) Handles _convertctrl.Progress 
   _progress.Value = CInt((_progress.Maximum * e.percent / 100)) 
End Sub

private void _convertctrl_Progress(object sender, ProgressEventArgs e) 
{ 
   _progress.Value = (int)(_progress.Maximum * e.percent / 100); 
}

Add an event handler to the _convertctrl Complete event and code it as follows:

vb 
Private Sub _convertctrl_Complete(ByVal sender As System.Object, ByVal e As EventArgs) Handles _convertctrl.Complete 
  _textStatus.Text = "Conversion to DVD Format Completed" 
   _buttonBurn.Enabled = True 
End Sub

private void _convertctrl_Complete(object sender, EventArgs e) 
{ 
   _textStatus.Text = "Conversion to DVD Format Completed"; 
   _buttonBurn.Enabled = true; 
}

Add an event handler to the _buttonConvert Click event and code it as follows:

vb 
Private Sub _buttonConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonConvert.Click 
   ConvertVideoToDvdFormat() 
End Sub

private void _buttonConvert_Click(object sender, System.EventArgs e) 
{ 
   ConvertVideoToDvdFormat(); 
}

Add an event handler to the _buttonBurn Click event and code it as follows:

vb 
Private Sub _buttonProcessor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonProcessor.Click 
  BurnDvdToDisc() 
End Sub

private void _buttonProcessor_Click(object sender, System.EventArgs e) 
{ 
  BurnDvdToDisc() 
}

Add the following helper methods for use by the _buttonConvert and _buttonBurn event handlers:

vb 
Private Sub ConvertVideoToDvdFormat() 
  Try 
   _convertctrl.Preview = True 
   _convertctrl.SourceFile = _sourceFile 
                 
   ' select video and audio compressors 
   _convertctrl.VideoCompressors.Mpeg2.Selected = True 
   _convertctrl.AudioCompressors.AC3.Selected = True 
                 
   ' select the DVD target format 
   Dim tf As TargetFormat = _convertctrl.TargetFormats(TargetFormatType.DVD) 
   tf.Selected = True 
                 
   ' set the allowed capture streams  
   _convertctrl.AllowedStreams = tf.Streams 
                 
   _convertctrl.TargetFile = _targetPath 
                 
   _convertctrl.StartConvert() 
                 
   _textStatus.Text = "Converting Video to DVD Format" 
                 
   _buttonBurn.Enabled = False 
   _buttonConvert.Enabled = False 
  Catch ex As Exception 
   MessageBox.Show(Me, ex.Message) 
  End Try 
End Sub 
                 
Private Sub BurnDvdToDisc() 
  _progress.Value = 0 
  _progress.Maximum = 10000 
                 
  Try 
   Dim dvdBurner As MediaWriter = New MediaWriter() 
   Dim dvdDrive As MediaWriterDrive = dvdBurner.Drives(1) 
   Dim dvdDisc As MediaWriterDisc = dvdDrive.CreateDisc() 
                 
   dvdDisc.VolumeName = "DVD Volume 1" 
   dvdDisc.InputPath = @"C:\InputFiles" 
                 
   dvdDrive.AutoEject = True 
                  
   AddHandler dvdDrive.OnProgress, AddressOf BurnProgress 
                  
   _progress.Value = 0 
   _textStatus.Text = String.Empty 
   _aborted = False 
                 
   dvdDrive.LoadDisc() 
   dvdDrive.BurnDisc(dvdDisc) 
                 
   Do While dvdDrive.State = MediaWriterState.StateIdle 
      Application.DoEvents() 
   Loop 
                 
   Do While dvdDrive.State = MediaWriterState.StateWriting 
      If _aborted Then 
         Throw New Exception("DVD Operation Aborted") 
      End If 
      Application.DoEvents() 
   Loop 
                 
   RemoveHandler drive.OnProgress, AddressOf BurnProgress 
                  
   _buttonConvert.Enabled = True 
   _buttonBurn.Enabled = True 
                  
  Catch ex As Exception 
     MessageBox.Show(ex.Message) 
  End Try 
End Sub 
                 
Public Sub BurnProgress(ByVal sender As Object, ByVal evt As MediaWriterProgressEventArgs) 
  _progress.Value = evt.Complete 
  _textStatus.Text = evt.Description 
  If evt.Progress = MediaWriterProgress.OperationProgressAborting Then 
     _aborted = True 
  End If 
End Sub

private void ConvertVideoToDvdFormat() 
{ 
   try 
   { 
      _convertctrl.Preview = true; 
      _convertctrl.SourceFile = _sourceFile; 
                 
      // select video and audio compressors 
      _convertctrl.VideoCompressors.Mpeg2.Selected = true; 
      _convertctrl.AudioCompressors.AC3.Selected = true; 
                 
      // select the DVD target format 
      TargetFormat tf = _convertctrl.TargetFormats[TargetFormatType.DVD]; 
      tf.Selected = true; 
                 
      // set the allowed capture streams  
      _convertctrl.AllowedStreams = tf.Streams; 
                 
      _convertctrl.TargetFile = _targetPath; 
                 
      _convertctrl.StartConvert(); 
                 
      _textStatus.Text = "Converting Video to DVD Format"; 
                 
      _buttonBurn.Enabled = false; 
      _buttonConvert.Enabled = false; 
   } 
   catch (Exception ex) 
   { 
      MessageBox.Show(this, ex.Message); 
   } 
} 
                 
private void BurnDvdToDisc() 
{ 
   _progress.Value = 0; 
   _progress.Maximum = 10000; 
                 
   try 
   { 
      MediaWriter dvdBurner = new MediaWriter(); 
      MediaWriterDrive dvdDrive = dvdBurner.Drives[1]; 
      MediaWriterDisc dvdDisc = dvdDrive.CreateDisc(); 
                        
      dvdDisc.VolumeName = "DVD Volume 1"; 
      dvdDisc.InputPath = @"C:\InputFiles"; 
                 
      dvdDrive.AutoEject = true; 
                  
      dvdDrive.OnProgress += BurnProgress; 
                  
      _progress.Value = 0; 
      _textStatus.Text = String.Empty; 
      _aborted = false; 
                 
      dvdDrive.LoadDisc(); 
      dvdDrive.BurnDisc(dvdDisc); 
                 
      while (dvdDrive.State = MediaWriterState.StateIdle) 
      { 
         Application.DoEvents(); 
      } 
                 
      While (dvdDrive.State = MediaWriterState.StateWriting) 
      { 
         if (_aborted) 
         { 
            throw new Exception("DVD Operation Aborted"); 
         } 
         Application.DoEvents(); 
      } 
                 
      drive.OnProgress -= BurnProgress; 
                  
     _buttonConvert.Enabled = true; 
     _buttonBurn.Enabled = True 
  } 
  catch (Exception ex) 
  { 
     MessageBox.Show(ex.Message); 
  } 
} 
                 
public void BurnProgress(Object sender, EventArgs evt) 
{ 
  _progress.Value = evt.Complete; 
  _textStatus.Text = evt.Description; 
  if (evt.Progress == MediaWriterProgress.OperationProgressAborting) 
  { 
     _aborted = true; 
  } 
}