burn cd

[Silvio]

Emg,
Ho trovato un utilità su xharbour.com ...
per scrivere sui cd Burn cd
Ma a me non funziona non è che sai come fare ?

[Enrico Maria Giordano]

No, mi dispiace.

EMG

[Silvio]

probabilmente c'è un errore
secondo te non si dovrebbe usare OLe ?

Code: Select all

//****
*FUNCTION BurnCDInXP()
//****
FUNCTION main()
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:\work\prg\burncd\XPBurnObj.dll" )                     // 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 )

del tipo oBurn := TOleAuto():new( "BaydenBurn.XPBurn" )

o altrimenti come posso fare ? perchè usa il fso ?

[Silvio]

questo è il codice di VB come faccio a convertirlo in xharbour

Private Sub Command1_Click()
Dim foo As Object
Set foo = CreateObject("BaydenBurn.XPBurn")
MsgBox ("Is XP Burning ready: " & foo.Equipped)
MsgBox ("Burn staging area: " & foo.BurnArea)
MsgBox ("Add file1: " & foo.addfile("fdsafdsa"))
MsgBox ("Add file2: " & foo.addfile("C:\try.txt"))
foo.startburn
End Sub

[Enrico Maria Giordano]

probabilmente c'è un errore

Direi che quell'esempio è totalmente sballato. E comunque richiede un componente che io non ho (BaydenBurn.XPBurn).

secondo te non si dovrebbe usare OLe ?

Infatti usa OLE.

del tipo oBurn := TOleAuto():new( "BaydenBurn.XPBurn" )

TOleAuto() o CreateObject() è la stessa cosa. E' sempre OLE.

o altrimenti come posso fare ?

Non ne ho idea, mi dispiace.

perchè usa il fso ?

Se guardi bene, non lo usa.

EMG