CD/DVD Burning UDF

[monoceres]

Hi!

Here's the first preview of my Disc burning UDF, it uses the windows built in COM object IMAPI2 for burning.

Features:

• Burning data CD & DVD
• Determine a drives burning capacity
• Burn ISO files
• Ejecting/Closing drives
• Erasing CD-RW / DVD-RW

XP users may have to install the KB932716 update to have this working.

Please give me feedback on this since it's the first time I seriously use COM objects.

Enjoy

IMAPI2.au3

(Previous downloads: 862)

IMAPI2_Example.au3

Edited June 20, 2009 by monoceres

[Richard Robertson]

That looks very useful. Good job.

[sandin]

Cool!!,

may I suggest something? I had this add-on for my Total Commander, in which you could burn data onto CD/DVD by copy(F5)ing files from your HDD list to CD/DVD list, so it would be cool if you could establish your script to have this option, "burn as you add data to the CD/DVD", useful for fast data adding to the CD/DVD, like small pictures or doc files, etc...

[monoceres]

Richard, thank you very much

@sandin

If you mean like "on the fly" burning I don't know if that's possible with the IMAPI2 interface.

If it's possible I add it to my to-do list

Currently I'm trying to add iso support and the possibility to choose write speed. I also need to have more error checking.

[sandin]

ya, I meant "on the fly", unfortunately I found disappointing information @ http://forums.microsoft.com/msdn/ShowPost....99&SiteID=1 (question No. 6)

[monoceres]

ya, I meant "on the fly", unfortunately I found disappointing information @ http://forums.microsoft.com/msdn/ShowPost....99&SiteID=1 (question No. 6)

That's a bit sad.

Oh and could someone with XP confirm that the example is working?

I haven't been able to test it on a xp machine.

Edited June 16, 2008 by monoceres

[sandin]

I tested it, and I get this error in imapi2.au3:

......  IMAPI2.au3 (52) : ==> Variable must be of type "Object".:
$iCount = $oDiscmaster.Count()
$iCount = $oDiscmaster^ ERROR

p.s. my OS is Win XP SP3, I have downloaded KB932716, but on installation I get this msg:

---------------------------
KB932716 Setup Error
---------------------------
Setup has detected that the Service Pack version of this system
is newer than the update you are applying.

There is no need to install this update.
---------------------------
OK   
---------------------------

[walle]

Could be useful! Thanks!

Btw, does it support .iso and .img?

[ptrex]

@monoceres

Very nice !!

Regards

ptrex

[rasim]

monoceres

Thank you for example and sharing

[monoceres]

I tested it, and I get this error in imapi2.au3:

......  IMAPI2.au3 (52) : ==> Variable must be of type "Object".:
 $iCount = $oDiscmaster.Count()
 $iCount = $oDiscmaster^ ERROR

p.s. my OS is Win XP SP3, I have downloaded KB932716, but on installation I get this msg:

---------------------------
 KB932716 Setup Error
 ---------------------------
 Setup has detected that the Service Pack version of this system
 is newer than the update you are applying.
 
 There is no need to install this update.
 ---------------------------
 OK   
 ---------------------------

Seems very weird, the discmaster object is the most basic object in the entire script. The only explanation is that IMAPI2 somehow isn't installed correctly.

Could be useful! Thanks!

Btw, does it support .iso and .img?

I'm working on it

http://www.autoitscript.com/forum/index.ph...c=73684&hl=

@All

Thank you so much for showing interest in this

[rasim]

I found a bug

After script works is done (burning done) process Autoit3.exe don`t terminate. So add this code in your UDF:

Func OnAutoitExit()
    If ProcessExists(@AutoItPID) Then
    ProcessClose(@AutoItPID)
    EndIf
EndFunc

Edited June 17, 2008 by rasim

[ludocus]

wow... nice!! thank you... There are so many includes that Autoit should add to the main list (like this one!)

[ludocus]

I tested it (the example) and got the following erro:

C:\Program Files\AutoIt3\Include\IMAPI2.au3 (52) : ==> Variable must be of type "Object".:
$iCount = $oDiscmaster.Count()
$iCount = $oDiscmaster^ ERROR
->15:29:37 AutoIT3.exe ended.rc:1

Edited June 17, 2008 by ludocus

[sandin]

I tested it (the example) and got the following erro:

C:\Program Files\AutoIt3\Include\IMAPI2.au3 (52) : ==> Variable must be of type "Object".:
$iCount = $oDiscmaster.Count()
$iCount = $oDiscmaster^ ERROR
->15:29:37 AutoIT3.exe ended.rc:1

you had the same prob. I had, I found my solution here:

http://rs376.rapidshare.com/files/11934336...-v2-x86-ENU.exe

[sandin]

EDIT: sorry, double post ==> my NET Lags.... T_T

Edited June 17, 2008 by sandin

[monoceres]

I found a bug

After script works is done (burning done) process Autoit3.exe don`t terminate. So add this code in your UDF:

Func OnAutoitExit()
    If ProcessExists(@AutoItPID) Then
    ProcessClose(@AutoItPID)
    EndIf
EndFunc

Haven't been able to reproduce but I'll add it anyways, it doesn't hurt to do a extra check

[walle]

looking forward to a new release muttley

[LIMITER]

One question :

How can I delete a folder/file from the fs ? Is it possible ?

(I'm planning to do an app for this UDF ... muttley)

Cheers,

L|M|TER

[jaenster]

That's a bit sad.

Oh and could someone with XP confirm that the example is working?

I haven't been able to test it on a xp machine.

muttley

my burner last week die, Sorry