CD burnering Plugin?

[vicom]

GEFORCE + DGEMILY

To burn albums into CDA (audio) is possible and works like a charm.

[1] make a copy of the BurnIt.txt and call it BurnAudio.txt
[2] open BurnAudio.txt
[3] find the line that says: batch_action = xxxxxxx
[4] replace it with the following line

batch_action = """c:\Program Files\Nero\Nero 7\Core\nerocmd"" --write --drivename " + DriveLetter + enplus_finalise + " --real --detect_non_empty_disc --underrun_prot --force_erase_disc --recursive --audio """ + burn_path + "\*.mp3"

[5] Var3:Source path should be "%music>parameter%"

the key to this is the use of --recursive. NeroCmd will scan the path you've passed recursively for all mp3s (*.mp3) and burn them as Audio...

Now is there a way to burn .m3u playlist from command line?? NeroCmd refuses to burn .m3u files (the content there of) NeroCmd gives me unrecognised file format error

[GFORCE]

it doesnt work for me.

Are you able to upload the file and show me the expression used int he Plugin command?

[vicom]

Code: Select all

Module Script

'**********************************************************************************
'
' Ce script permet de graver en ligne de commande directement depuis XL
' Il utilise NEROCMD fourni avec NERO 6 et +
' Pour connaitre la liste complete des fonctions de NEROCMD :
'    en mode dos tapez ...nerocmd.exe /?
'
'**********************************************************************************
'
' Xlobby Variable Syntaxe : BurnIt.txt Var1 Var2 Var3
'
' Var1 : Drive Letter (E for example)
'
' Var2 : Name of the CD (12 chars max)
'
' Var3 : Source Path
'
' Exemple : BurnIt.txt E MY_VIDEO_1 D:\Holyday-2005.avi
'
'**********************************************************************************

Public Sub Main( DriveLetter As String, CDName As String, burn_path As String)

   Xlobby.ExecCommand("xlobby", "button set text", "BurnIt~Starting to burn")

   Dim en_plus_dvd As String
   en_plus_dvd = ""
   'en_plus_dvd = " --DVD" a mettre obligatoirement si on grave un dvd ,sinon en_plus_dvd=""
   
   Dim Import As String
   Import = ""
   'Import = " --import " pour importer les sessions precedentes (multi session), sinon import=""
   
   Dim enplus_finalise As String
   enplus_finalise = " --close_session" 
   'pour finaliser la session
   
   Dim batch_action As String
   batch_action = """c:\Program Files\Nero\Nero 7\Core\nerocmd"" --write --drivename " + DriveLetter + enplus_finalise + " --real --detect_non_empty_disc --underrun_prot --force_erase_disc --recursive --audio """ + burn_path + "\*.mp3"""

'dim lresult as integer

'lResult = MsgBox(Prompt:=batch_action,Title:="Confirm File Deletion")
 

   ' la fonction --recursive permet de graver l'interieur des dossier, sous dossiers ....
   ' --real permet de graver reellement, si on ne le met pas, ca fait juste une simulation
   ' --iso permet de nommer votre cd
   
' ******************************************************************************
'   Test si lecteur cd / dvd valide
' ******************************************************************************
' A faire

' ******************************************************************************
'   Lance NeroCmd
' ******************************************************************************
   Dim myProcess As New System.Diagnostics.Process
   myProcess.StartInfo.UseShellExecute = False
   myProcess.StartInfo.RedirectStandardOutput = True
   myProcess.StartInfo.Arguments = ""
   myProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
   myProcess.StartInfo.FileName = batch_action
   myProcess.Start()

' ******************************************************************************
'   Active XL
' ******************************************************************************
   Dim myStreamReader As System.IO.StreamReader = myProcess.StandardOutput
   Dim myTexte        As String = ""
   Dim myString       As String = ""
   Dim myGauge        As String = ""
   Dim myCar          As Integer

   AppActivate("Xlobby")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnIt~Burn Process Started")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnItGauge~ ")
   AppActivate("Xlobby")

' ******************************************************************************
'   Lecture du flux de sortie
' ******************************************************************************
   While (myProcess.HasExited = False)
      myCar = myStreamReader.Read()
      Select Case myCar
         Case 10, 46, 35
         Case 13
            myString = myString.Trim()
            If myString.EndsWith("%") Then
               myString = myString.Replace("%", "")
               myGauge = ""
               for cc as integer = 1 to System.Convert.ToInt32(System.Convert.ToInt32(myString) / 2)
                  myGauge = myGauge & "|"
               next
               Xlobby.ExecCommand("xlobby", "button set text", "BurnItGauge~" & myGauge)   
               Xlobby.ExecCommand("xlobby", "button set text", "BurnItGaugeValue~" & System.Convert.ToChar(myCar))   
        else
               myTexte = myTexte & myString & chr(10) & chr(13)         
               Xlobby.ExecCommand("xlobby", "button set text", "BurnIt~" & myTexte)
            End If
            AppActivate("Xlobby")
            System.Windows.Forms.Application.DoEvents()
            myString = ""
         Case Else
            myString = myString & System.Convert.ToChar(myCar)
         End Select
   End While

dim lresult as integer
lResult = MsgBox(Prompt:="CD Burning Complete...",Title:="CD Burning")
AppActivate("Xlobby")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnIt~ ")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnItGauge~ ")
   AppActivate("Xlobby")

End Sub

End Module

also change the NeroCmd path, I'm using Nero7 : c:\Program Files\Nero\Nero 7\Core\nerocmd

[vicom]

Is it working now ??

[GFORCE]

it doesnt do anything for music, but for Movies it works.

I have a button in an overlay saying BURN

'BurnAudio.txt G AudioCD "%music>parameter%"

[vicom]

it doesnt do anything for music, but for Movies it works.

I have a button in an overlay saying BURN

'BurnAudio.txt G AudioCD "%music>parameter%"

could you remove the ' (comments) infront of the following lines

'dim lresult as integer
'lResult = MsgBox(Prompt:=batch_action,Title:="Confirm File Deletion")

and paste the ouput of the messagebox here

also remove the lines

Code: Select all

dim lresult as integer
lResult = MsgBox(Prompt:="CD Burning Complete...",Title:="CD Burning")
AppActivate("Xlobby")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnIt~ ")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnItGauge~ ")
   AppActivate("Xlobby")

[GFORCE]

i had it working, but all i get now is a window and nothing happens.

[vicom]

i had it working, but all i get now is a window and nothing happens.

I'm getting the same thing all of a sudden... It used to work perfectly...
it can't be Nero since I haven't updated it or installed a new version. Do u think it might be linked to the version of XL?? and it can't be a XScript since I never updated it either...

I also wrote a Xlobby playlist burning script (also using NeroCmd) and used to work but now I only get a the DOS box.

The box shouldn't even appear because of the line

Code: Select all

myProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden

which hides the window in the firstplace....
hmmm very weird

[GFORCE]

What if the script is executing the script to hide the window before the window appears?

[vicom]

not possible....

I'm going to do a clean XL installation this weekend from
-.NET 1 with Xscript then
-.NET 2 with Xscript then
-.NET 2 with Xscript plus new Xlobbyscreentest 2

then try the Burn script to see if it works.. just to pin-point what changed...

[GFORCE]

I think its .Net 2.0 which is causing the problems

[rembetis]

FWIW, I just posted a guide to burning a CD with Foobar/Nero from within Xlobby here. Kind of rough-n-ready at the moment, but it works.

[rembetis]

Just a little heads up... this script seems to be working again. At least for me, burning mp3s to audio. Thanks to everyone involved, especially viacom who added the mp3 recursive twist.

[vicom]

You are welcome.. I've also added functionality to burn M3U playlist to audio. if you are intersted i can post the script.

[rembetis]

You are welcome.. I've also added functionality to burn M3U playlist to audio. if you are intersted i can post the script.

Very interested! I played around briefly and couldn't get it working, so yes please do post the script.