Oi amigos, alguém pode me ajudar? eu preciso de um código de gravação de cds que permita a gravação em multisessão, pois todos os que eu peguei, aceita apenas uma gravação, desde já agradeço....

Caro Jaildo, boa tarde!

Voce poderia me enviar  este codigo que vc tem onde grava direto no cd?

desde ja agradeço,

 

 

Emanuel

 

Olá Jaildo,

 

Você deve estar usando aqueles código de exemplo que usam a biblioteca do Nero, certo? Bom se for esse o caso, você terá que usar alguns truques. A biblioteca do nero pode retornar as informações do disco num objeto chamado INeroCDInfo:

 

Dim mCDInfo As NEROLib.INeroCDInfo
Dim mPasta As NEROLib.NeroFolder
Dim mCDStamp As NEROLib.NeroCDStamp

 

'Aqui você chama as infromações do CD

Call Drive.CDInfo(NERO_READ_CD_TEXT Or NERO_READ_ISRC)

 

No evento OnDoneCDInfo do Nero Drive, você captura as informações do CD:

 

Private Sub Drive_OnDoneCDInfo(ByVal pCDInfo As NEROLib.INeroCDInfo)

    Set mCDInfo = pCDInfo
    DoEvents
    DoEvents
End Sub

Depois, no evento OnDoneImport, você carrega a pasta raiz da sessão anterior e o identificador da sessão anterior:

 

Private Sub Drive_OnDoneImport(Ok As Boolean, Folder As NEROLib.INeroFolder, CDStamp As NEROLib.INeroCDStamp)
    
    Set mPasta = Folder
    Set mCDStamp = CDStamp

End Sub

 

Depois, é só mandar importar a sessão anterior:

 

Drive.ImportIsoTrack mCDInfo.Tracks.Count - 1, NERO_IMPORT_ISO_ONLY

 

Bom, a partir daí é basicamente igual ao que você já deve ter encontrado.

um abraço,

Sandro.

Jaildo sem querer abusar mas tu pode me enviar tambem, muito obreigado desde ja

 

gutoandrade_44@hotmail.com