Strange error when calling BurnIsoAudioCD

Nevermalchik · February 14, 2017, 1:11am

When I try to burn the CD, I got this error message :

Error:
Cannot connect TRF

The StatusCode of the OnDoneBurn even returns 3

The error occur when the code reach this line:
NDrv.BurnIsoAudioCD “TrkName”, “Test”, 0, ISOTrack, Nothing, Nothing, _
NERO_BURN_FLAG_WRITE +
NERO_BURN_FLAG_CLOSE_SESSION + _
NERO_BURN_FLAG_DISABLE_EJECT, 0, NERO_MEDIA_CD

does anybody knows what can cause this error?
thanks for your help

unison · February 14, 2017, 1:43pm

Status code 3 is NERO_BURN_FAILED.

What is your Nero version?

Can you post some more of your code?

Mike

Nevermalchik · February 14, 2017, 1:43pm

Thanks Unison, The Nero version is 6.6.06 Actually, I think I used your code from somewhere in the forum, I must tripped somewhere. Basically, I’m creating a DLL which I can include in my applications, so I can use the CD burning capability. Once done, I will post the complete code here… Thanks for your help . Here is the code realted to Nero:

Private Sub InitializeNERO()
Dim sTmp As String

On Error GoTo ErrorHandler

Open App.Path & "\NeroDll.ini" For Input As #1
    Line Input #1, sTmp
    lblDrive.Caption = Trim(sTmp)
    Line Input #1, sTmp
    lblDrive.Tag = Trim(sTmp)
Close #1

Set Nero = New Nero
Set lstNDrive = Nero.GetDrives(NERO_MEDIA_CDRW)

Exit_Sub:
Exit Sub

ErrorHandler:
If Err.Number = 53 Then
If iLanguage = eLang.eEnglish Then
MsgBox “No drive has been set”
Else
MsgBox “Aucun bruleur n’a Ã©tÃ© sÃ©lectionnÃ©”
End If
Err.Clear
Unload Me
End If
End Sub

Private Sub BuildFileFolderTree(ByRef nroFolderToUse As NeroFolder, ByRef folCurrent As Folder)
Dim folTMP As Folder
Dim filTMP As File
Dim nroFolTMP As NeroFolder
Dim nroFilTMP As NeroFile

For Each filTMP In folCurrent.Files
    Set nroFilTMP = New NeroFile
    nroFilTMP.Name = filTMP.Name
    nroFilTMP.SourceFilePath = filTMP.Path
    nroFolderToUse.Files.Add nroFilTMP
Next filTMP

For Each folTMP In folCurrent.SubFolders
    Set nroFolTMP = New NeroFolder
    nroFolTMP.Name = folTMP.Name
    nroFolderToUse.Folders.Add nroFolTMP
    Call BuildFileFolderTree(nroFolTMP, folTMP)
Next folTMP

End Sub

Private Sub BurnCD()
Dim Folder As NeroFolder
Dim sSource_Dir As String
Dim FSO As New FileSystemObject
Dim DateFolder As NeroFolder
Dim i As Integer
Dim result

Set NDrv = lstNDrive(CLng(lblDrive.Tag))
sSource_Dir = "c:	emp"

'Multisession
isDriveFinished = False
NDrv.CDInfo NERO_READ_ISRC
While Not isDriveFinished
    DoEvents
Wend

If iNbSession &gt; 0 Then
    i = iNbSession - 1
    isDriveFinished = False
    NDrv.ImportIsoTrack i, NERO_IMPORT_ISO_ONLY
    While Not isDriveFinished
        DoEvents
    Wend
End If

Set Folder = New NeroFolder
Set DateFolder = New NeroFolder
Set ISOTrack = New NeroISOTrack

DateFolder.Name = "Back " & Format(Date, "yyyy-mm-dd") & ":" & _
                  Format(Time, "hh:mm:ss")
Folder.Folders.Add DateFolder

Call BuildFileFolderTree(DateFolder, FSO.GetFolder(sSource_Dir))

ISOTrack.Name = "Never"
ISOTrack.RootFolder = Folder
ISOTrack.BurnOptions = NERO_BURN_OPTION_CREATE_HFS_FS + _
                       NERO_BURN_OPTION_USE_JOLIET

'NDrv.BurnIsoAudioCD "Never", "Backup", 0, ISOTrack, Nothing, Nothing, _
                    NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_CLOSE_SESSION, 0, _
                    NERO_MEDIA_CD
                    
NDrv.BurnIsoAudioCD "Pearson", "(c)2005", 0, ISOTrack, Nothing, Nothing, _
                     NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_CLOSE_SESSION + _
                     NERO_BURN_FLAG_DISABLE_EJECT, 0, NERO_MEDIA_CD

End Sub

Private Sub NDrv_OnProgress(ProgressInPercent As Long, Abort As Boolean)
pBar(0).Value = ProgressInPercent
DoEvents
End Sub

Private Sub NDrv_OnSubTaskProgress(ProgressInPercent As Long, Abort As Boolean)
pBar(1).Value = ProgressInPercent
DoEvents
End Sub

Private Sub NDrv_OnAddLogLine(TextType As NEROLib.NERO_TEXT_TYPE, Text As String)
AddToLog Text, Process
End Sub

Private Sub NDrv_OnDoneBurn(StatusCode As NEROLib.NERO_BURN_ERROR)
If StatusCode = NERO_BURN_OK Then
AddToLog “Burning completed with success”, Process
Else
AddToLog “An error occure:” & StatusCode, FatalError
End If
isDriveFinished = True
End Sub

Private Sub NDrv_OnDoneWaitForMedia(Success As Boolean)
AddToLog “Done waiting for media”, Process
End Sub

Private Sub NDrv_OnSetPhase(Text As String)
AddToLog Text, Process
End Sub

Private Sub Nero_OnNonEmptyCDRW(Response As NEROLib.NERO_RESPONSE)
AddToLog “Please inser a blank CDRW”, Warning
End Sub

Private Sub Nero_OnWaitCD(WaitCD As NEROLib.NERO_WAITCD_TYPE, WaitCDLocalizedText As String)
AddToLog WaitCDLocalizedText, Warning
End Sub

Private Sub NDrv_OnDoneCDInfo(ByVal pCDInfo As NEROLib.INeroCDInfo)
isDriveFinished = True
End Sub

Private Sub NDrv_OnDoneImport2(ByVal bOk As Boolean, ByVal pFolder As NEROLib.INeroFolder, ByVal pCDStamp As NEROLib.INeroCDStamp, ByVal pImportInfo As NEROLib.INeroImportDataTrackInfo, ByVal importResult As NEROLib.NERO_IMPORT_DATA_TRACK_RESULT)
If bOk Then
Set lstNFolder = pFolder
Else
AddToLog “Error Reading Data”, FatalError
End If
isDriveFinished = True
End Sub

Nevermalchik · February 14, 2017, 1:43pm

Sorry, I forgot. As you notice, i’m loading some info from an INI file, this file is created by a form (see code below) that is automaticaly called if the INI do not exist. The file contains only the name of the selected burner and its ID (so the user won’t have to select the burner all the time).

Private Sub Form_Load()
Dim iCount As Integer

Call GetLanguage
Call CenterForm(Me)
Call SwitchLanguage

Set nDrives = Nero.GetDrives(NERO_MEDIA_CDR + NERO_MEDIA_CDRW)

If nDrives.count &gt; 0 Then
    For iCount = 0 To nDrives.count - 1
        lstDrive.AddItem nDrives(iCount).DeviceName
    Next iCount
Else
    If iLanguage = eLang.eEnglish Then
        lstDrive.AddItem "NO BURNER AVAILABLE ON THIS SYSTEM"
    Else
        lstDrive.AddItem "AUCUN BRULEUR DISPONIBLE SUR CE SYSTEM"
    End If
    lstDrive.Enabled = False
End If

End Sub

Private Sub SaveOptions()
If lstDrive.ListIndex < 0 Then Exit Sub
Open App.Path & “\NeroDLL.ini” For Output As #1
Print #1, Trim(lstDrive.List(lstDrive.ListIndex))
Print #1, Trim(lstDrive.ListIndex)
Close #1
End Sub

unison · February 14, 2017, 1:45pm

First guess - you cannot have folder names containing “:”
Hence in my code I use:
DateFolder.Name = "Unison " + Format(Now, “dd”) + “-” + Format(Now, “mm”) + “-” + Format(Now, “yyyy”) + " - " + Format(Now, “hh”) + “-” + Format(Now, “nn”) + “-” + Format(Now, “ss”)

Try that instead.

Mike

Nevermalchik · February 14, 2017, 1:45pm

I removed the : and tried with what you provided, I got the same message… I guess I’ll try to start from your project again and see what happend.

BobLafleur · February 14, 2017, 3:20pm

Just offhand I notice that you’re using the BurnISOAudioCD call, but it looks to me like you’re burning an ISO track with folders and files, not audio data. I’m myself trying to figure out how to get BurnISOAudioCD to work (documentation on it is poor at best) and I’d guess you should only pass an ISOTrack if you’re setting the “CDExtra” parameter to True, and should pass an AudioTracks object (where you are passing “Nothing”). Maybe you’re not intending to burn an audio CD?

unison · February 14, 2017, 3:20pm

You are incorrect. Despite the name the BurnISOAudioCD function is also used to burn data files and folders. I am not sure what the purpose of CDextra is - does not seem to be documented, however it is not necessary to set this to true to burn data files / folders.

Mike

Jamos · February 14, 2017, 6:05pm

This is a known new bug with nero burning rom…not sure what causes it…I am now getting it since I upgraded nero.

Jamos · February 14, 2017, 6:06pm

with 6.6.0.12 I do not get this error (6.6.1.4 i get the error Error:
Cannot connect TRF).