The DVD burner functionality makes it possible to burn ISO and DVD images or regular data folders on recordable and writable media.
To begin burning, follow the steps:
|
1. |
Create an instance of the LTDVDBurner object. |
VB Source
Public gLDVDBurner As
LTDVDBurner
Set gLDVDBurner = New LTDVDBurner
|
2. |
The burner object can burn an ISO/DVD image or regular data folder (for example, a DVD at “C:\DVDImage” or an ISO file at "C:\ISOFile\Image.iso"). |
|
3. |
To burn a DVD image, use an empty writable or rewritable DVD. To burn ISO files, use either an empty writeable or rewritable CD or DVD. |
|
4. |
Eject the drive tray and insert the empty disc: |
VB Source
gLDVDBurner.EjectDisc
|
5. |
Load the tray: |
VB Source
gLDVDBurner.LoadDisc
|
6. |
Associate the DVD image path, ISO file or regular data folder to the burner object: |
VB Source
' For the DVD Image
TxtInputPath.Text = "C:\DVDImage"
gLDVDBurner.InputPath
= TxtInputPath.Text
' For the ISO file
TxtInputPath.Text = "C:\ISOFile\Image.iso"
gLDVDBurner.InputPath
= TxtInputPath.Text
|
7. |
Set the Volume name for the disc: |
VB Source
TxtVolumeName.Text =
"DRIVE-1"
gLDVDBurner.VolumeName
= TxtVolumeName.Text
|
8. |
Retrieve the available speeds for the drive and the empty target disk: |
VB Source
Dim lCount As Long
gLDVDBurner.RefreshSpeedList
' Get the number of available speeds
lCount = gLDVDBurner.SpeedCount
' For each index value, retrieve the name of the speed
' Use this feature to display the names of the available speeds
For i = -1 To lCount - 1
strSpeed = gLDVDBurner.GetSpeedName(i)
' Do something with the name.
Next i
|
9. |
Select the burning speed: |
VB Source
' Select the speed that
you want
gLDVDBurner.CurrentSpeed
= lCount – 1;
|
10. |
Erase the disc if it is required and if the disc is an erasable type: |
VB Source
Dim bEraseable As Boolean
bEraseable = gLDVDBurner.Eraseable
If (bEraseable = True)
gLDVDBurner.Erase
|
11. |
Test the burning process, if it is required. Testing the burning process is a simulation of the burning process but without a real burning of the disc. It is much safer when you use a high speed with certain types of discs: |
VB Source
Dim bTestwriteable As
Boolean
bTestwriteable = gLDVDBurner.TestWriteable
If (bTestwriteable = True)
gLDVDBurner.TestWrite
|
12. |
Now, start burning: |
VB Source
gLDVDBurner.Write