>I'm able to access the functions like eject, but I am still unable to write audio disks. Here is the code that I am using for writing audio disks:
>
>THISFORM.ole1.object.opendrive(0)
>THISFORM.ole1.object.insertaudiotrack(filename,1)
>THISFORM.ole1.object.closedisc=.t.
>THISFORM.ole1.object.closesession=.t.
>THISFORM.ole1.object.writetype=0
>THISFORM.ole1.object.writedisc
>
>Is there something that I'm missing???
>
>TIA
>Rob
Rob,
Try something like:
WITH THISFORM.Ole1.Object
.OpenDrive(0)
.insertaudiotrack(filename,1)
.LockDrive()
Store .T. to .CloseDisc
Store .T. to .CloseSession
Store 0 to .WriteType
.writedisc()
ENDWITH
In the WritingComplete event of the ActiveX object (Ole1)
ThisForm.WriteCompleted()
In ThisForm.WriteCompleted
WITH THISFORM.Ole1.Object
.UnlockDrive()
.Eject()
ENDWITH
The settings would not change on the ActiveX until I used the STORE .. TO calls. To see the process, I also entered updates inside the following:
CachingTrack, ClosingSession, ClosingTrack, TrackWriteStart, TrackWriteStatus.
I only currently use this in the Backup of our program. It does work for several of our clients, as long as the disc is not already formated for read-write by the operating system.
HTH,
Tracy