GetImages(DicomElement,Int32,Int32,Int32,DicomGetImageFlags,DicomGetImageCallback) Method

'Declaration
 
Public Overloads Function GetImages( _
   ByVal element As DicomElement, _
   ByVal index As Integer, _
   ByVal count As Integer, _
   ByVal bitsPerPixel As Integer, _
   ByVal flags As DicomGetImageFlags, _
   ByVal callback As DicomGetImageCallback _
) As RasterImage

Private Function DicomTestGetImageCallback(index As Integer, count As Integer) As Boolean
      System.Diagnostics.Debug.WriteLine(string.Format("GetImage: {0} of {1}", index + 1, count))
      return True
   End Function

   Public Sub TestDicomGetImages()
      Dim dicomFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE1.dcm")

      ' Make sure to initialize the DICOM engine, this needs to be done only once in the whole application
      DicomEngine.Startup()
      Dim ds As DicomDataSet = New DicomDataSet()
      Using (ds)
         'Load DICOM File
         ds.Load(dicomFileName, DicomDataSetLoadFlags.None)

         Dim pixelDataElement As DicomElement = ds.FindFirstElement(Nothing, DicomTag.PixelData, True)
         If pixelDataElement Is Nothing Then
            MessageBox.Show("This dataset is missing the pixel data element", "Sample")
            Return
         End If

         If ds.GetImageCount(pixelDataElement) = 0 Then
            MessageBox.Show("This dataset has no images", "Sample")
            Return
         End If

         Dim imageInformation As DicomImageInformation = ds.GetImageInformation(pixelDataElement, 0)
         If imageInformation Is Nothing Then
            MessageBox.Show("Can't retrieve image information", "Sample")
            Return
         End If

         ' Get all the frames into a RasterImage object
         Dim image As RasterImage = ds.GetImages(pixelDataElement, 0, imageInformation.FrameCount, 0, RasterByteOrder.Gray, _
                                                 DicomGetImageFlags.AllowRangeExpansion Or DicomGetImageFlags.AutoApplyModalityLut Or DicomGetImageFlags.AutoApplyVoiLut, _
                                                 AddressOf DicomTestGetImageCallback)

         If image Is Nothing Then
            MessageBox.Show("Can't retrieve image", "Sample")
            Return
         End If

         System.Diagnostics.Debug.WriteLine(string.Format("Total Images: {0}", image.PageCount))
      End Using
      DicomEngine.Shutdown()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class