I trying to code cd burner in vb application using NeroCom.dll. But everytime I get to this line of code
(Drive.BurnIsoAudioCD "Pop Star", "Title", 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE, 4, NERO_MEDIA_CD) it comes back with FATAL memory error
(The instruction at "0x1000f27" referenced memory at "0x00000010". The memory could not be "written". Can anyone HELP me get pass this? Thanks in advance for everyone help.

Are you using the most recent NeroCOM version? Which Nero version do you currently have installed?

Could you post some relevant code portions? Without that it is really hard to tell.

I've got Ahead Nero Express installed on my computer which came with the LG CDRW drive. My NeroCom.dll version 1.2.0.1. Below is the VB code I'm using to get this done. Its alot of code but if you can help I would greatly appreciate it. Thanks.


Option Explicit

Public WithEvents Nero As Nero

Public WithEvents Drive As NeroDrive

Dim drives As INeroDrives
Dim Folder As INeroFolder
Dim isotrack As NeroISOTrack
Dim file As NeroFile
Dim strMessages As String

Private Sub cmd_Abort_Click()
Nero.Abort
End Sub

Private Sub cmd_Burn_Click()
Dim Source_Dir As String
Dim X As Boolean
Dim temp
Dim FSO As New FileSystemObject

Source_Dir = "C:\unison\bend"
lst_Messages.Clear

cmd_Abort.Enabled = True
cmd_Burn.Enabled = False

Set Folder = New NeroFolder
Set drives = Nero.GetDrives(NERO_MEDIA_CDR)
Set Drive = drives(lst_AvailableDevices.ListIndex)
Set isotrack = New NeroISOTrack

Call BuildFileFolderTree(Folder, FSO.GetFolder(Source_Dir))

isotrack.Name = "Unison"
isotrack.RootFolder = Folder
isotrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET
If Drive.Capabilities And NERO_CAP_BUF_UNDERRUN_PROT Then
Drive.BurnIsoAudioCD "Unison", "Backup", 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_BUF_UNDERRUN_PROT, 0, NERO_MEDIA_CD
Else
Drive.BurnIsoAudioCD "Unison", "Backup", 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_WRITE, 0, NERO_MEDIA_CD
End If

End Sub


Private Sub Form_Initialize()
Dim myIndex As Integer
Set Nero = New Nero

pgs_progress1.Value = 0
lst_Messages.Clear

Set drives = Nero.GetDrives(NERO_MEDIA_CDR)

For myIndex = 0 To drives.Count - 1
lst_AvailableDevices.AddItem drives(myIndex).DeviceName, myIndex
Next
'set to second item (normally would use first or allow to select?)
lst_AvailableDevices.ListIndex = 1
ErrHandler:
Exit Sub
End Sub

Private Sub nero_OnMegaFatal()
lst_Messages.AddItem "A mega fatal error has occurred."
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
End Sub

Private Sub nero_OnNonEmptyCDRW(Response As NEROLib.NERO_RESPONSE)
lst_Messages.AddItem "CD-RW not empty!"
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
Response = NERO_RETURN_EXIT
End Sub

Private Sub nero_OnRestart()
lst_Messages.AddItem "The system is being restarted."
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
End Sub

Private Sub nero_OnWaitCD(WaitCD As NEROLib.NERO_WAITCD_TYPE, WaitCDLocalizedText As String)
If Not SplitText(WaitCDLocalizedText) Then
MsgBox "Error Splitting Message Data!"
End If
End Sub

Private Sub nero_OnWaitCDDone()
lst_Messages.AddItem "Done waiting for CD."
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
End Sub

Private Sub nero_OnWaitCDMediaInfo(LastDetectedMedia As NEROLib.NERO_MEDIA_TYPE, LastDetectedMediaName As String, RequestedMedia As NEROLib.NERO_MEDIA_TYPE, RequestedMediaName As String)
lst_Messages.AddItem "Waiting for a particular media type:"
If Not SplitText(RequestedMediaName) Then
MsgBox "Error Splitting Message Data!"
End If
End Sub

Private Sub nero_OnWaitCDReminder()
lst_Messages.AddItem "Still waiting for CD..."
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
End Sub

Private Sub drive_OnAborted(Abort As Boolean)
Abort = False
End Sub

Private Sub drive_OnAddLogLine(TextType As NEROLib.NERO_TEXT_TYPE, Text As String)
If Not SplitText(Text) Then
MsgBox "Error Splitting Message Data!"
End If
End Sub

Private Function SplitText(ByVal Data As String) As Boolean
Dim temp As String
Dim I As Integer

SplitText = False

temp = ""
For I = 1 To Len(Data)
If Mid$(Data, I, 1) = Chr$(13) Then
lst_Messages.AddItem Trim$(temp)
temp = ""
ElseIf Mid$(Data, I, 1) <> Chr$(10) Then
temp = temp + Mid$(Data, I, 1)
End If
Next
If temp <> "" Then
lst_Messages.AddItem Trim$(temp)
End If
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
SplitText = True

End Function

Private Sub drive_OnDoneBurn(StatusCode As NEROLib.NERO_BURN_ERROR)
Dim strMessages As String

If Not SplitText(Nero.ErrorLog) Then
MsgBox "Error Splitting Message Data!"
End If
If Not SplitText(Nero.LastError) Then
MsgBox "Error Splitting Message Data!"
End If

strMessages = "Burn finished "
If StatusCode <> NEROLib.NERO_BURN_OK Then
strMessages = strMessages + "NOT Successfully (" & StatusCode & ")"
Else
strMessages = strMessages + "Successfully"
End If

lst_Messages.AddItem strMessages
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
cmd_Abort.Enabled = False

cmd_Burn.Enabled = True
pgs_progress1.Value = 0

End Sub

Private Sub drive_OnDoneWaitForMedia(Success As Boolean)
lst_Messages.AddItem "Done waiting for media."
If lst_Messages.ListCount <> 0 Then
lst_Messages.ListIndex = lst_Messages.ListCount - 1
lst_Messages.Refresh
End If
End Sub

Private Sub drive_OnProgress(ProgressInPercent As Long, Abort As Boolean)
Abort = False
pgs_progress1.Value = ProgressInPercent
End Sub

Private Sub drive_OnSetPhase(Text As String)
If Not SplitText(Text) Then
MsgBox "Error Splitting Message Data!"
End If
End Sub

I am a bit confused. In the first post you burned a "Pop star" disc and the code you sent later burned a "Unison" disc. It seems like the two code portions are unrelated.

In addition, upgrading to the latest NeroCOM version fixes several issues (perhaps yours too).

Sorry I inputted different titles for CD just as a test but in both instances it gave me the same VB Memory ERROR. So this ERROR had nothing to do with the naming of the file that I was trying to create. Can you advice or anyone advice me on where I can get the latest version of NEROCom.dll or email it to be would be cool (bqv@yahoo.com). As stated above my NEROCom.dll version 1.2.0.1. Thanks again.

So if you just disregard my different names ("Pop Star", "Title") and ("Unison", "Backup") do you see any setting problems or error with my VB coding? Do you have a sample code that actually is working for you that you can share? Thanks.

You can get the latest NeroCOM by installing the latest Nero Burning ROM from the web.