So mistical =8/

vbimport

#1

I can’t understand that:
If i use NEROCMD for write multisession dvd - then all work fine, but if i use neroCOM - worked not fully.

When i write on blank dvd+rw disc first session - all ok, but when i try write next session on that disk - i get stop with result “Disk Is Not Empty”. Why?

Soft Version:
Nero 6.3.1.6

My comand line for nerocmd and some most part of source code for neroCOM here (if someone will be need some other part of that code for understanding - post me):

  1. Nerocmd:
    nerocmd --write --real --drivename “i” --detect_non_empty_cdrw --recursive --dvd --iso “test” c: est1.txt

nerocmd --write --real --drivename “i” --detect_non_empty_cdrw --import --recursive --dvd --iso “test” c: est2.txt

  1. NeroCom:

Private Sub Form_Initialize()
Dim myIndex As Integer
Set Nero = New Nero
NeedSpace = 0
pgs_progress1.Value = 0
lst_Messages.Clear
Set Drives = Nero.GetDrives(NERO_MEDIA_DVD_P_RW)
lst_Messages.AddItem “Get DVD Devices”
For myIndex = 0 To Drives.Count - 1
lst_AvailableDevices.AddItem Drives(myIndex).DeviceName, myIndex
Next
lst_AvailableDevices.ListIndex = 1
Set Drive = Drives(lst_AvailableDevices.ListIndex)
Set Folder = New NeroFolder
ErrHandler:
Exit Sub
End Sub

Private Sub cmd_Burn_Click()
Dim Source_Dir As String
Dim X As Boolean
Dim temp
Dim FSO As New FileSystemObject
Dim DateFolder As NeroFolder
Dim ObjCDInf As NEROLib.INeroCDInfo

Source_Dir = “C: emp1”
lst_Messages.Clear
cmd_Abort.Enabled = True
cmd_Burn.Enabled = False
Set DateFolder = New NeroFolder
Set isotrack = New NeroISOTrack

Dim Y As Long
DriveFinished = False
Call GetInfo
While Not DriveFinished
Y = DoEvents()
Wend
For ImpIsoCount = 0 To NumExistingTracks - 1
DriveFinished = False
Drive.ImportIsoTrack ImpIsoCount, NERO_IMPORT_ISO_ONLY

While Not DriveFinished
Y = DoEvents()
Wend
Next

DateFolder.Name = "REBUS BACKUP " + Format(Now, “YYYY_MM”) ’ + “(” + Trim$(CInt(Rnd * 1000)) + “)”
Folder.Folders.Add DateFolder
If edtFileName.Text = “” Then
Call BuildFileFolderTree(DateFolder, FSO.GetFolder(Source_Dir))
Else
Call BuildFileTree(DateFolder, edtFileName.Text)
End If

lst_Messages.AddItem “Check Requred space on disk”
If FreeSpace < (NeedSpace + 5000) / 1000 Then
lst_Messages.AddItem “Check space if failed!”
Exit Sub
Else
lst_Messages.AddItem “Check space is done”
End If
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If

isotrack.Name = “Rebus Backup CD”
isotrack.Copyright = “SH MICEX”
isotrack.Application = “Rebus 3”
isotrack.RootFolder = Folder

isotrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET + NERO_BURN_OPTION_USE_MODE2
Drive.BurnIsoAudioCD “SH MICEX”, “Rebus Backup”, 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT + NERO_BURN_FLAG_CLOSE_SESSION, 0, NERO_MEDIA_DVD_P_RW
End Sub


#2

You have to provide the NeroCDStamp to BurnIsoAudioCD. You get the cdstamp when importing the last session.


#3

Yes, i have - i use Drive_OnDoneImport2. But what the link event of imoprting prev session data and event “Disk Is Not Empty”. May be i don’t understand something? :bow:

P.S. -Matze, i must get info about prev session with some different method? :confused:
Matze , please, help me if you can… :bow: :bow:


#4

According to your first post, you don’t give a cdstamp to BurnIsoAudioCD. Instead of “Nothing” you have to give the cdstamp as parameter to BurnIsoAudioCD.


#5

May be, Matze, but why with CD-R/RW disk that code work fine, and with DVD+R/DVD+RW when i try to record next session on disk i catch “Disk Is Not Empty”? I mean, what if problem in importing, then i can see only last session data, but not “Disk Is Not Empty” status on disk. I’m not right? :confused:

P.S. - Matze, may be i send you my source code fully on your mail? :wink: