How to use NeroFreestyleTracks? or how to burn DataCD ? - Club CDFreaks

sureei666 · 31-03-2004

my head is burning when i attempt to use NeroFreeStyleTracks and also guide me how to manage multisession. when i tried to burn next time the same CD , the previous contents were lost & looks like a newly burned CD with only new contents.

Set Folder = New NeroFolder
Dim drives As INeroDrives

Set drives = nero.GetDrives(NERO_MEDIA_CDR)
Set drive = drives(AvailableDevices.ListIndex)
Set isoTrack = New NeroISOTrack
Set FreeTrack = New NeroFreestyleTrack

Dim FreeTracks As New NeroFreestyleTracks
Set NFSDC = New NeroFileSystemDescContainer

NFSDC.BurnOptions = NERO_BURN_OPTION_USE_JOLIET

FreeTrack.Title = "DataCD"
FreeTrack.Artist = "NewArtist"
FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1

FreeTracks.Add FreeTrack

(My error comes here : Class does not support Automation or does not support expected interface )

isoTrack.Name = "NewTest"
isoTrack.Copyright = "Elgi"
isoTrack.RootFolder = Folder

Dim file As New NeroFile
Folder.Files.Add file
file.Name = NameFromPath(edtFileName.Text)
file.SourceFilePath = edtFileName.Text

drive.BurnFreestyleCD NFSDC, "SK", "MyTitle", 0, isoTrack, FTs, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_CLOSE_SESSION, 8, NERO_MEDIA_CD
GoTo quit

*alexp* · 31-03-2004

I presume you are saying the error occurs at FreeTracks.Add FreeTrack. If this is so, how did you declare a FreeTrack variable?

Which NeroCOM version are you using?

I am not a VB expert but its syntax is sometimes confusing. Could you also please try FreeTracks.Add (FreeTrack).

sureei666 · 01-04-2004

I bow for ur response.
I'm using latest nerocom version v6.3.0.6c.
I need another help too. how to append contents to same CD.

Can i have any samples or any other SDK otherthan NeroSDK or previous thread or forum or tips?

Set Folder = New NeroFolder
Dim drives As INeroDrives
Dim FreeTrack As NeroFreestyleTrack

Set drives = nero.GetDrives(NERO_MEDIA_CDR)
Set drive = drives(AvailableDevices.ListIndex)
Set isoTrack = New NeroISOTrack
Set FreeTrack = New NeroFreestyleTrack

Dim FreeTracks As New NeroFreestyleTracks
Set NFSDC = New NeroFileSystemDescContainer

NFSDC.BurnOptions = NERO_BURN_OPTION_USE_JOLIET

FreeTrack.Title = "DataCD"
FreeTrack.Artist = "NewArtist"
FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1

FreeTracks.Add FreeTrack

(My error comes here : Class does not support Automation or does not support expected interface )

sureei666 · 01-04-2004

Hi alexp,
I tried with all combination of obj intiating and declaration.
But still the same error arising.

*alexp* · 01-04-2004

I can now confirm that there is a problem with this issue. It will be resolved in the next version.

sureei666 · 01-04-2004

Thks for response!
How long shd i wait for newer version. Is there any other soultion for making raw DataCd.
Is there any combination of flags or options to butn DataCd with "BurnIsoAudioCD" ?

31-03-2004	#1 (permalink)
sureei666 New on Forum Join Date: Mar 2004 Location: India,Chennai. Posts: 10	How to use NeroFreestyleTracks? or how to burn DataCD ? <a href='http://adstats.cdfreaks.com/www/delivery/ck.php?n=a13febf7&cb=INSERT_RANDOM_NUMBER_HERE' target='_blank'><img src='http://adstats.cdfreaks.com/www/delivery/avw.php?zoneid=30&cb=INSERT_RANDOM_NUMBER_HERE&n=a13febf7' border='0' alt='' /></a> my head is burning when i attempt to use NeroFreeStyleTracks and also guide me how to manage multisession. when i tried to burn next time the same CD , the previous contents were lost & looks like a newly burned CD with only new contents. Set Folder = New NeroFolder Dim drives As INeroDrives Set drives = nero.GetDrives(NERO_MEDIA_CDR) Set drive = drives(AvailableDevices.ListIndex) Set isoTrack = New NeroISOTrack Set FreeTrack = New NeroFreestyleTrack Dim FreeTracks As New NeroFreestyleTracks Set NFSDC = New NeroFileSystemDescContainer NFSDC.BurnOptions = NERO_BURN_OPTION_USE_JOLIET FreeTrack.Title = "DataCD" FreeTrack.Artist = "NewArtist" FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1 FreeTracks.Add FreeTrack (My error comes here : Class does not support Automation or does not support expected interface ) isoTrack.Name = "NewTest" isoTrack.Copyright = "Elgi" isoTrack.RootFolder = Folder Dim file As New NeroFile Folder.Files.Add file file.Name = NameFromPath(edtFileName.Text) file.SourceFilePath = edtFileName.Text drive.BurnFreestyleCD NFSDC, "SK", "MyTitle", 0, isoTrack, FTs, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE + NERO_BURN_FLAG_CLOSE_SESSION, 8, NERO_MEDIA_CD GoTo quit __________________ Thks, Sureei

01-04-2004	#3 (permalink)
sureei666 New on Forum Join Date: Mar 2004 Location: India,Chennai. Posts: 10	I bow for ur response. I'm using latest nerocom version v6.3.0.6c. I need another help too. how to append contents to same CD. Can i have any samples or any other SDK otherthan NeroSDK or previous thread or forum or tips? Set Folder = New NeroFolder Dim drives As INeroDrives Dim FreeTrack As NeroFreestyleTrack Set drives = nero.GetDrives(NERO_MEDIA_CDR) Set drive = drives(AvailableDevices.ListIndex) Set isoTrack = New NeroISOTrack Set FreeTrack = New NeroFreestyleTrack Dim FreeTracks As New NeroFreestyleTracks Set NFSDC = New NeroFileSystemDescContainer NFSDC.BurnOptions = NERO_BURN_OPTION_USE_JOLIET FreeTrack.Title = "DataCD" FreeTrack.Artist = "NewArtist" FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1 FreeTracks.Add FreeTrack (My error comes here : Class does not support Automation or does not support expected interface ) __________________ Thks, Sureei

01-04-2004	#4 (permalink)
sureei666 New on Forum Join Date: Mar 2004 Location: India,Chennai. Posts: 10	Again the same error Hi alexp, I tried with all combination of obj intiating and declaration. But still the same error arising. __________________ Thks, Sureei

01-04-2004	#6 (permalink)
sureei666 New on Forum Join Date: Mar 2004 Location: India,Chennai. Posts: 10	When will be Next Version releases? Thks for response! How long shd i wait for newer version. Is there any other soultion for making raw DataCd. Is there any combination of flags or options to butn DataCd with "BurnIsoAudioCD" ? __________________ Thks, Sureei

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
LiteOn Fast Burn Dual format and Ultra Fast Burn Patch (12x burn < 6:30)	C0deKing	LiteOn / PLDS/ Sony Burner	374	07-05-2008 18:18
Lite on SHM 165P6S wont burn dvd but can burn cds need some help.	gemz23	General Hardware Forum	2	13-03-2007 03:01
Philips dvdr1648p1 wont burn dvd's via nero (but will burn cd's such as music)	samplayford	BenQ / Philips Burner	5	21-02-2007 01:21
Have you had bad Liteon 1693 burns following a 16X burn (visible burn ring)?	chas0039	LiteOn / PLDS/ Sony Burner	0	30-12-2005 16:42
AnyDVD shows blank DVD media as dataCD	dcmossano	AnyDVD	1	23-01-2005 00:48

Commercial message
<a href='http://adstats.cdfreaks.com/www/delivery/ck.php?n=a5c5554b&cb=INSERT_RANDOM_NUMBER_HERE' target='_blank'><img src='http://adstats.cdfreaks.com/www/delivery/avw.php?zoneid=29&cb=INSERT_RANDOM_NUMBER_HERE&n=a5c5554b' border='0' alt='' /></a>

31-03-2004	#2 (permalink)
alexp Nero Developer Join Date: Oct 2003 Posts: 605	I presume you are saying the error occurs at FreeTracks.Add FreeTrack. If this is so, how did you declare a FreeTrack variable? Which NeroCOM version are you using? I am not a VB expert but its syntax is sometimes confusing. Could you also please try FreeTracks.Add (FreeTrack).

01-04-2004	#5 (permalink)
alexp Nero Developer Join Date: Oct 2003 Posts: 605	I can now confirm that there is a problem with this issue. It will be resolved in the next version.