Anyone able to convert code to programmatically burn CD/DVD?

[hua]

Can anyone convert this code for use in FWH?

Able to programmatically burn to CD/DVD would be a very nice feature to have eventhough it's only available from XP onwards.

[ukoenig]

Hua,

it would be a hard job, writing a CD-burner-app.

I found a useful freeware, because of possible COMMANDLINE-options to burn from inside a FWH-app.



Download
http://www.burnaware.com

Best Regards
Uwe

[hua]

Thanks for the reply Uwe. It's just that some customers want to be able to backup directly to a CD hence my research into this area

[StefanHaupt]

Hua,

for XP there is a dll to burn out of fwh, it´s called xpBurnObj. But it´s no more working with vista and Win 7.

Download here http://www.bayden.com/delphi/cdburner.htm

Code: Select all  Expand view

//****
FUNCTION BurnCDInXP()
//****
LOCAL cBurnPath
//
IF ( oCD := XPBurnObj() ) != NIL )
   oFSO := CreateObject( "Scripting.FileSystemObject" ) // If we get here we're in XP and this shouldn't fail...
   //
   WITH OBJECT ( oCD )
      :ClearFiles()                                     // Erases ALL files from burning area...
      //
      MakeDir( cBurnPath := ( :BurnArea + "\Backup" ) ) // Build your directory structure...
      MakeDir( cBurnPath += "\companyname" )
      //
      :AddFile( "c:\yourfile.ext" )                     // This method add the file to the root of the CD..
      oFSO:CopyFile( "u:\yourfile.zip", cBurnPath + "\backup.ext" )
                                                        // Copy to the directory you just created...
      //
      :StartBurn()                                      // Invokes the XP Burning wizard...
   END
ENDIF
//
RETURN (.T.)

//***
FUNCTION XPBurnObj()
//***
   LOCAL oBurn
   //
   IF Os_IsWinXP()
      TRY
         oBurn := CreateObject( "BaydenBurn.XPBurn" )
         IF !( oBurn:Equipped )
            oBurn := NIL
         ENDIF
      CATCH
      END
   ENDIF
   //
   RETURN ( oBurn )

[hua]

Thanks for the reply Stefan. I'm now looking into scripting + IMAPIv2.

If I could get that down, I'd be able to do it on PCs with XP SP2 up to Win 7, hopefully

[Eoeo]

Dear stephan
????