vbAccelerator - Contents of code file: cJolietDiscRecorder.cls

This file is part of the download VB6 IMAPI Library Source, which is described in the article Image Mastering API (IMAPI) Library for VB.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cJolietDiscMaster"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_cJoliet As IVBJolietDiscMaster

Public Sub fInit(cJoliet As IVBJolietDiscMaster)
   
   Set m_cJoliet = cJoliet
   
End Sub

Public Property Get DataBlockSize() As Long
Attribute DataBlockSize.VB_Description = "Gets the size of data block on the CD
 in bytes."
Dim lSize As Long
   If Not (m_cJoliet Is Nothing) Then
      m_cJoliet.GetDataBlockSize lSize
      DataBlockSize = lSize
   Else
   End If
End Property

Public Property Get TotalDataBlocks() As Long
Attribute TotalDataBlocks.VB_Description = "Gets the total number of data
 blocks on the current media."
Dim lBlocks As Long
   If Not (m_cJoliet Is Nothing) Then
      m_cJoliet.GetTotalDataBlocks lBlocks
      TotalDataBlocks = lBlocks
   Else
   End If
End Property

Public Property Get UsedDataBlocks() As Long
Attribute UsedDataBlocks.VB_Description = "Gets the number of data blocks used
 on the current media."
Dim lBlocks As Long
   If Not (m_cJoliet Is Nothing) Then
      m_cJoliet.GetUsedDataBlocks lBlocks
      UsedDataBlocks = lBlocks
   Else
   End If
End Property

Public Property Get Properties() As cJolietDiscMasterProperties
Attribute Properties.VB_Description = "Gets the properties associated with the
 data stash."
   If Not (m_cJoliet Is Nothing) Then
      Dim cProps As New cJolietDiscMasterProperties
      cProps.fInit m_cJoliet
      Set Properties = cProps
   Else
   End If
End Property

Public Sub AddData(storage As IStorage, ByVal bOverwrite)
Attribute AddData.VB_Description = "Adds data from an IStorage interface to the
 CD."
Dim lOverwrite As Long
   If Not (m_cJoliet Is Nothing) Then
      lOverwrite = Abs(CLng(bOverwrite))
      m_cJoliet.AddData storage, lOverwrite
   Else
   End If
End Sub

Public Sub SetProperties(cProps As cJolietDiscMasterProperties)
Attribute SetProperties.VB_Description = "Updates the properties associated
 with the stash.  The properties object passed in must have previously been
 obtained using the Properties getter."
   If Not (m_cJoliet Is Nothing) Then
      Dim cP As cPropertyStorage
      Set cP = cProps.fPropertyStore
      cP.fUpdate
      m_cJoliet.SetJolietProperties cP.PropertyStorage
   Else
   End If
End Sub