vbAccelerator - Contents of code file: cMediaInfo.cls

This file is part of the download VB5 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 = "cMediaInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_iSessions As Byte
Private m_iLastTrack As Byte
Private m_lStartAddress As Long
Private m_lNextWritable As Long
Private m_lFreeBlocks As Long
Private m_eType As MEDIA_TYPES
Private m_eFlags As MEDIA_FLAGS

Friend Sub fInit( _
      cRecorder As IVBDiscRecorder _
   )
   cRecorder.QueryMediaType m_eType, m_eFlags
   If (m_eType = 0) And (m_eFlags = 0) Then
      ' no media
   Else
      cRecorder.QueryMediaInfo _
         m_iSessions, m_iLastTrack, m_lStartAddress, m_lNextWritable,
          m_lFreeBlocks
   End If
End Sub

Public Property Get MediaPresent() As Boolean
   MediaPresent = Not ((m_eType = 0) Or (m_eFlags = 0))
End Property

Public Property Get Sessions() As Byte
Attribute Sessions.VB_Description = "Returns the number of sessions on the
 current media."
   Sessions = m_iSessions
End Property
Public Property Get LastTrack() As Byte
Attribute LastTrack.VB_Description = "Returns the last track on the current
 media."
   LastTrack = m_iLastTrack
End Property
Public Property Get StartAddress() As Long
Attribute StartAddress.VB_Description = "Returns the start address of the
 current media."
   StartAddress = m_lStartAddress
End Property
Public Property Get LastWritable() As Long
Attribute LastWritable.VB_Description = "Returns the last writable address on
 the current media."
   LastWritable = m_lNextWritable
End Property
Public Property Get FreeBlocks() As Long
Attribute FreeBlocks.VB_Description = "Returns the number of free blocks on the
 current media."
   FreeBlocks = m_lFreeBlocks
End Property
Public Property Get MediaType() As MEDIA_TYPES
   MediaType = m_eType
End Property
Public Property Get MediaFlags() As MEDIA_FLAGS
   MediaFlags = m_eFlags
End Property