API fails with new DELL notebooks

vbimport

#1

At the moment, we have the NERO Software licenced and we use it on its own or we use it with the SDK´s API for an application developed in Windows Forms with Visual .NET This application manages songs in wav format associating data to each song. It works fine mostly in Windows 2000 Professional Desktops and XP but it fails in some DELL notebooks. In these notebooks the NERO works fine most of the times but our application, the one that works with API fails. During the process of recording songs, in the second or third song, the system stops the recording leaving the CD incomplete and showing a message error in the log:

11:33:01 AM #29 CDR -1135 File Writer.cpp, Line 311
Write error

11:33:01 AM #30 Text 0 File ThreadedTransfer.cpp, Line 229
all writers idle, stopping conversion

11:33:01 AM #31 CDR -201 File WriterStatus.cpp, Line 200
Invalid write state
_NEC DVD+RW ND-6100A\H0 T0

11:33:01 AM #32 TRANSFER -18 File WriterStatus.cpp, Line 200
Could not perform EndTrack

11:33:01 AM #33 Text 0 File Mmc.cpp, Line 15477
<_NEC DVD+RW ND-6100A > start Close Session

The Visual .NET Code:
Option Explicit On
Imports NEROLib
Imports System.Threading.WaitHandle
Public Class FrmCDCopier
Inherits System.Windows.Forms.Form
Public WithEvents nero As Nero
Public WithEvents drive As NeroDrive
Private AudioTracks As NeroAudioTracks
Private IdDisk As Integer

#Region “Nero_Events”

Private Sub drive_OnDoneBurn(ByRef StatusCode As NEROLib.NERO_BURN_ERROR) Handles drive.OnDoneBurn
    Dim oRec As Recordings = New Recordings

    Dim res As String
    If StatusCode &lt;&gt; NERO_BURN_ERROR.NERO_BURN_OK Then
        Select Case StatusCode
            Case NERO_BURN_ERROR.NERO_BURN_INVALID_DRIVE
                res = "Dispositivo de grabación inválido"
            Case NERO_BURN_ERROR.NERO_BURN_UNKNOWN_CD_FORMAT
                res = "Formato de CD inválido"
            Case NERO_BURN_ERROR.NERO_BURN_USER_ABORT
                res = "Abortado por el usuario"
            Case NERO_BURN_ERROR.NERO_BURN_DRIVE_NOT_ALLOWED
                res = "Dispositivo no disponible"
            Case NERO_BURN_ERROR.NERO_BURN_FAILED
                res = "Falla en la grabación"
            Case Else
                res = ""
        End Select

        lblmessaje.Text = "Error de Grabacion - " & res

    Else
        lblmessaje.Text = "Grabación finalizada con éxito"
    End If

End Sub

Private Sub drive_OnDoneWaitForMedia(ByRef Success As Boolean) Handles drive.OnDoneWaitForMedia
    lblmessaje.Text = "Finalizada la espera de medio magnético"
    Me.LogWrite(lblmessaje.Text, False)
End Sub

Private Sub drive_OnProgress(ByRef ProgressInPercent As Integer, ByRef Abort As Boolean) Handles drive.OnProgress
    ProgressBar.Value = ProgressInPercent
    Abort = False
End Sub

Private Sub drive_OnSetPhase(ByRef Text As String) Handles drive.OnSetPhase
    lblmessaje.Text = Text
    Me.LogWrite(lblmessaje.Text, False)
End Sub

Private Sub nero_OnMegaFatal() Handles nero.OnMegaFatal
    lblmessaje.Text = "Error fatal!"
    Me.LogWrite(lblmessaje.Text, False)
End Sub

Private Sub nero_OnNonEmptyCDRW(ByRef Response As NEROLib.NERO_RESPONSE) Handles nero.OnNonEmptyCDRW
    lblmessaje.Text = "CD-RW no está vacio!"
    Me.LogWrite(lblmessaje.Text, False)
    Response = NERO_RESPONSE.NERO_RETURN_EXIT
End Sub

Private Sub nero_OnRestart() Handles nero.OnRestart
    lblmessaje.Text = "El sistema se está reiniciando"
    Me.LogWrite(lblmessaje.Text, False)
End Sub

Private Sub drive_OnAborted(ByRef Abort As Boolean) Handles drive.OnAborted
    Abort = False
End Sub

Private Sub nero_OnFileSelImage(ByRef Filename As String) Handles nero.OnFileSelImage
    Filename = Application.StartupPath & "/Test.nrg"
End Sub


Private Sub btnGraba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGraba.Click


    AudioTracks = New NeroAudioTracks

    AudioTrack = New NeroAudioTrack

    With AudioTrack
        .Filename = strDestinyFile
        .TrackType = NERO_AUDIO_TRACK_TYPE.NERO_AUDIO_TRACK_FILE_WAV
    End With
    AudioTracks.Add(AudioTrack)

    Dim drives As INeroDrives
    drives = nero.GetDrives(NERO_MEDIA_TYPE.NERO_MEDIA_CDR)
    drive = CType(drives.Item(cmbDrives.SelectedIndex), NeroDrive)

    Try
        drive.BurnIsoAudioCD(strAuthor, strTitle, False, Nothing, AudioTracks, Nothing, CType(NERO_BURN_FLAGS.NERO_BURN_FLAG_WRITE + NERO_BURN_FLAGS.NERO_BURN_FLAG_BUF_UNDERRUN_PROT, NERO_BURN_FLAGS), 2, NERO_MEDIA_TYPE.NERO_MEDIA_CD)
    Catch ex As Exception
        lblmessaje.Text = nero.LastError
    Finally
        AudioTracks = Nothing
        
    End Try
End Sub

#2

What is the nero version on the systems you have trouble with - have you tried updating nero?


#3

I have the Nero version: 6.6.0.1 (Nero Express). Thks