source: trunk/mediafolder/Skripte_ger/~Audio CD brennen@ 201

/****************************************/
/*                                      */
/* Burn selected tracks as an audio CD. */
/* Audio-CD-Creator must be installed.  */
/*                                      */
/* An audio folder will be created and  */
/* the selected tracks inserted.        */
/*                                      */
/****************************************/
/* Load Rexxutil functions */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

QC_FIRST=0
QC_NEXT=1
QC_LAST=2

/* Check if we are executing */
if ARG(1)\='/EXECUTE' THEN EXIT

/* Check if Audio-CD-Creator is installed */

list.0=0
found=0
rc=SysQueryClassList(list.)
DO a=1 to list.0
        if TRANSLATE(WORD(list.a,1))='CWAUDIOFOLDER' THEN DO
                found=1
                LEAVE
        END
END

IF found=0 THEN DO
        theString="Audio-CD-Creator ist nicht installiert. Das CD-Creator Paket ist Voraussetzung fr die Nutzung dieser Funktion."
        theString=theString||'0d'X||'0d'X
        theString=theString||'Es ist erh„ltlich unter http://www.os2world.com/cdwriting'||'0d'X||'  '
        rc=RxMessageBox(theString, "",'OK', "Information")
        EXIT
END

/* The media folder running this skript */
mFldr=ARG(2)
/* And the frame handle */
frameHandle=ARG(3)

/*Get the container handle */
container=WPSWizCallWinFunc( "winQueryContainerHWND", frameHandle)

if container=0 THEN DO
    rc=RxMessageBox("Container-Handle kann nicht ermittlet werden!", "",'OK', "Information")
     EXIT
END

pRec=WPSWizCallWinFunc( "winQueryContRecEmphasis", container, 16 , 1)

a=0
tracks.0=0
DO WHILE (pRec\=0 & pRec\=-1)
        /* Get object pointer */
        obj=WPSWizCallWinFunc( "winObjectFromPRec", pRec)
        /* Follow shadows to file system object */
        obj=MFldrCallFunc( "cwGetFileSystemObject", mFldr, obj)
        /* Check if it's an audio object */
        IF MFldrCallFunc( "cwIsA", obj, "CWAudio")\=0 THEN DO
                a=a+1
                tracks.a._obj=obj
        END
        pRec=WPSWizCallWinFunc( "winQueryContRecEmphasis", container, pRec , 1)
        tracks.0=a
END

if tracks.0=0 THEN DO
        rc=RxMessageBox("Keine Audio-Dateien ausgew„hlt.", "Information",'OK')
        EXIT
END

/* Try to find the desktop folder */

/* Get the persistent object handle */
hObject=WPSWizCallWinFunc( "winQueryObject" ,"<WP_DESKTOP>")

if hObject\=0 THEN DO
        /* Get the class object of the given object pointer */
        classObject=WPSWizCallWPSFunc("somGetClass",mFldr)

        /* Get the object pointer from the handle */
        theObject=WPSWizCallWPSClsFunc("wpclsQueryObject", classObject, hObject)

        /* Query the full path of the object */
        desktop=WPSWizCallFunc("cwQueryRealName", theObject, 1)

        /* The object was locked because of "wpclsQueryObject" */
        rc=WPSWizCallWPSFunc("wpUnlockObject", theObject)
END

if desktop\='' THEN
    desktop=desktop||'\audioFolder'

/* Get a name for the new folder */
folderName=WPSWizCallWinFunc( "winFileDlg", 1, "Name fr Audio-CD-Creator Ordner", desktop)

/* No name, so quit */
if foldername="" THEN exit

/* Check if an error occurred */
if foldername="ERROR:" THEN DO
  rc=RxMessageBox("Der Dateidialog gab einen Fehler zurck!", "Error",'OK', "ERROR")
  EXIT
END

/* Get the path */
thePath=FILESPEC('drive',foldername)||FILESPEC('path',foldername)
thePath=LEFT(thePath,LENGTH(thePath)-1)

/* Create a new audio folder to hold the selected tracks */
setup=''
setup='DETAILSCLASS=CWAudioShadow;SORTCLASS=CWAudioShadow;DETAILSTODISPLAY=0,1,4,12,13,14,15,16,17,18,19,20,21;SORTBYATTR=6,24,25,26,27,28,29,30,31,32,33'

newFldr=SysCreateObject("CWAudioFolder", FILESPEC('name',foldername), thePath, setup , 'update')

if newFldr=0 THEN DO
        /* Folder creation failed */
        rc=RxMessageBox("Audio-CD Ordner konnte nicht erstellt werden!", "Erstellung Audio-Ordner",'OK')
        EXIT
END


/* Now create shadows of the selected tracks */
DO a=tracks.0 to 1 by -1
        objName=MFldrCallFunc( "cwQueryRealName", tracks.a._obj, 0)
        /* When using a space as the object title the real name is used as the title. By doing it this
           way we may have several shadows to the same track in the folder. */
        rc=SysCreateObject("CWAudioShadow", " ", folderName, "SHADOWID="||MFldrCallFunc( "cwQueryRealName", tracks.a._obj,1),'update')
END
/* Open the folder */
rc=SysSetObjectData(folderName, "OPEN=DEFAULT")
rc=0

exit