CD burnering Plugin?

[mattdisaster]

Hey everyone-
I just noticed that ainamp 5.07 or whatever the newest version fo winamp is offers cd burning as an option, has anyone looked into using it as with xlobby in order to burn cds and such? Just An idea for someone who might want one.

-matt

[vicom]

any new developments on this?

[dgemily]

To inform you:
Ptrinchi build a VB script to use it with Xscript plugin,
This script is for nero burning ( in fact nerocmd.exe)
For the Xscript plugin look at there : http://www.xlobby.com/forum/viewtopic.php?t=3758
And the script is here : http://www.france.xlobby.com/forum/ptri ... BurnIt.zip ( unzip it in plugin\Xscript\script\
You can edit the script to make some changes, but by default, it is configured to use nerocmd from program files\ahead\nero\
To use it create an event with the xscript command.
In Variable case use a parameter like: BurnIt.txt Var1 Var2 Var3
Where
BurnIt.txt : is the name of the script
Var1 : Drive Letter (E for example)
Var2 : Name of the CD (12 chars max)
Var3 : Source Path


Then to start the burn, create a button to execute this event
you can also use a xlobby variable as parameter like "movies>parameter"
In a screen you can display a progress bar and information:
- Create a text zone with as ID BurnIt = for information about the burn
- Create a text zone with as ID BurnIt BurnItGauge for the progress bar ( you have to configure the font ( for example font as middle left and bold, color = #1AC91A, Outline color = #1AC91A and outline = 2 )


of course you can modify the script to burn everything you want ( audio, dvd, playlists etc...) and with nero command lines that you want.

later

[vicom]

Wow Awesome I'll give it a try .. thanx!

[GFORCE]

anyway to have a button in the album page, that we can burn off the album into AudioCD Mode?

Would be good.

[dgemily]

anyway to have a button in the album page, that we can burn off the album into AudioCD Mode?

Would be good.

I tried it, and that was working well. also, you can build a a playlist via xlobby then burn it...
as the same way you can burn movie, dvd, audio cd, etc....
the only thing that we can not burm is files using the browser of xlobby... that was Iposted this : http://www.xlobby.com/forum/viewtopic.p ... ht=browser

you have to edit and modify the script... anyway I will try to post the script modified when I will back to home...

[GFORCE]

can u upload the files or tell me what skin you are using for this and what plugin's you are using?

[dgemily]

can u upload the files or tell me what skin you are using for this and what plugin's you are using?

it was a skin test, and I'm at office right now....
I was using Xscript plugin...
I will try to give you more information when I will go back...

later

[dgemily]

Sorry In fact I was wrong I’m confused , I tried why a script but I burned the files into mp3 format not cda …
I can’t figure out how can I burn a full album using command lines, it’s look like we have to specify all tracks that you want burn and not only a repertory…
I’m surprise I was sure that it was working, but maybe I didn’t check correctly the extension file maybe it was mp3… (I did a lot of test to burn movies and less for audios)
Anyway, I think if we know the VB we can find a solution to indicate all files from a repertory.

[GFORCE]

Can i have the section of the skin which burns them as MP3's and movies as DVD's?

[dgemily]

donwload http://www.france.xlobby.com/forum/ptrinchi/XScript.zip
then the script http://www.france.xlobby.com/forum/ptri ... BurnIt.zip

instalation :
\plugins\Xscript\Xscript.dll
and \plugins\Xscript\Scripts\BurnIt.txt

then add a button burm on your movi or moviedetails screen and assign to this button an event with the command:
"plugin" select Xscript
in "command" : ExecScript
and in variable put :

Code: Select all

BurnIt.txt E testVIDEO1 "%movies>parameter%"

where "E" is the drive letter and "testVIDEO1" will be the name of your cd

thats it, anyway, if you really need it, I will try to send you some part og screen

later

[GFORCE]

http://club.cdfreaks.com/showthread.php?t=140976


Maybe that will help you dgemily

[dgemily]

thank, I already saw this post but I can get this can of structure "track1.mp3 track2.mp3 track3.mp3 " using xlobby variables...
May be it's possible by adding code in the script .... but I'm not sure to be able to changing it by myself...

did you get the script working for your movies ?

[GFORCE]

it works for dvd's.

but i wouuld make the changes to the file if i could read french!!!
LOL

[dgemily]

it works for dvd's.

but i wouuld make the changes to the file if i could read french!!!
LOL

here is the translated script ( BurnIt)

Code: Select all

Module Script

'**********************************************************************************
'
' This script let you burn by command line directly from xlobby
' it use nerocmd, available with nero 6 and more
' to know the full command line list of nerocmd, use :
'    in dos type ...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
'
' Example : 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" needed if you want burn on dvd,if not use en_plus_dvd=""
   
   Dim Import As String
   Import = ""
   'Import = " --import " to import your lasts sessions (multi session), if not import=""
   
   Dim enplus_finalise As String
   enplus_finalise = " --close_session" 
   'to finalize the session
   
   Dim batch_action As String
   batch_action = """c:\program files\Ahead\nero\nerocmd"" --write --audio --drivename " + DriveLetter + en_plus_dvd + Import + enplus_finalise + " --real --recursive --iso " + CDName + " """ + burn_path + """"
   ' the fonction --recursive let your burn all files in a repertory, and under repertories....
   ' --real let you burn really,if we didn't use it il will be a simulation not a real burn
   ' --iso let you give a name to your cd
   
' ******************************************************************************
'   Test if the diver cd / dvd is available
' ******************************************************************************
' not done

' ******************************************************************************
'   Start 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~ ")
   Xlobby.ExecCommand("xlobby", "button set text", "BurnItGauge~ ")
   AppActivate("Xlobby")

' ******************************************************************************
'   reading the exit flow
' ******************************************************************************
   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)   
            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

End Sub

End Module