ViewerCellCreated Event

Imports LeadtoolsExamples.Common 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Dicom 
Imports Leadtools.MedicalViewer 
Imports Leadtools.Dicom.Scu.Common 
Imports Leadtools.ImageProcessing 
Imports Leadtools.Dicom.AddIn.Common 
Imports Leadtools.Dicom.Scu 
Imports Leadtools.Medical.Workstation.Client 
Imports Leadtools.Medical.Workstation.Client.Pacs 
Imports Leadtools.Medical.Workstation.Loader 
 
 
Private viewer As New MedicalViewer() 
Public Sub LoadSeries() 
   Leadtools.Examples.Support.SetLicense() 
   Dim clientInfo As New AeInfo() 
   clientInfo.Address = Dns.GetHostName() 
   clientInfo.Port = 1000 
   clientInfo.AETitle = "TEST_CLIENT" 
 
   Dim serverInfo As New DicomScp() 
   serverInfo.AETitle = "LEAD_SERVER" 
   serverInfo.Port = 104 
   serverInfo.PeerAddress = GetLocalServerAddress() 
   serverInfo.Timeout = 30 
 
   Dim queryClient As New PacsQueryClient(clientInfo, serverInfo) 
 
   Dim queryResult() As DicomDataSet = queryClient.FindSeries(New FindQuery()) 
 
   If queryResult.Length > 0 Then 
      Dim retrieveClient As New PacsRetrieveClient(clientInfo, serverInfo) 
 
 
      'make sure you have configured the workstation database correctly for the PacsRetrieveClient to store the images. 
      retrieveClient.StoreRetrievedImages = True 'we want to store the images locally so we can view them later. 
 
      Dim loader As New MedicalViewerLoader(retrieveClient) 
 
      loader.ViewerControl = viewer 
      loader.Layout.Auto = True 
      loader.LazyLoading = True 'this will cause to load the images for displayed sub-cells only 
      loader.ViewerPreLoadedImages = 1 'this will allow to load 1 image after and before the displayed sub-cell for fast scrolling. 
 
      AddHandler loader.ProgressState, AddressOf loader_ProgressState 
      AddHandler loader.RequestedImageUpdated, AddressOf loader_RequestedImageUpdated 
 
      Dim studyInstanceUID As String = queryResult(0).GetValue(Of String)(DicomTag.StudyInstanceUID, String.Empty) 
      Dim seriesInstanceUID As String = queryResult(0).GetValue(Of String)(DicomTag.SeriesInstanceUID, String.Empty) 
 
      If loader.LoadSeries(studyInstanceUID, seriesInstanceUID) Then 
         Console.WriteLine("Number of viewer cells: {0}", viewer.Cells.Count) 
         Console.WriteLine("Number of loader created cells: {0}", loader.SeriesCells.Length) 
 
         For Each cell As MedicalViewerMultiCell In loader.FindSeriesCells(seriesInstanceUID) 
            Dim sopInstanceUID As String = loader.FindDisplayedCellInstanceInformation(cell, 0).SOPInstanceUID 
 
            Console.WriteLine("Cell #{0} has first image with SOPInstanceUID={1}", viewer.Cells.IndexOf(cell), sopInstanceUID) 
 
 
            Dim ds As DicomDataSet = loader.GetDicom(sopInstanceUID) 
            Dim imageElement As DicomElement = ds.FindFirstElement(Nothing, DicomTag.PixelData, True) 
 
            If Nothing IsNot imageElement AndAlso imageElement.Length > 0 Then 
               Using codec As New RasterCodecs() 
                  Using image As RasterImage = ds.GetImage(imageElement, 0, 24, RasterByteOrder.Gray, DicomGetImageFlags.AutoApplyModalityLut Or DicomGetImageFlags.AutoApplyVoiLut) 
                     codec.Save(image, Path.Combine(LEAD_VARS.ImagesDir, sopInstanceUID), RasterImageFormat.Jpeg, image.BitsPerPixel) 
 
                     Console.WriteLine("Image with SOPInstanceUID={0} saved to {1}", sopInstanceUID, Path.Combine(LEAD_VARS.ImagesDir, sopInstanceUID)) 
                  End Using 
               End Using 
            End If 
 
            Dim imagesPath() As String = loader.GetSeriesImages(cell) 
 
            Console.WriteLine("Cell #{0} is loaded from {1} file(s):", viewer.Cells.IndexOf(cell), imagesPath.Length) 
 
            For Each imagePath As String In imagesPath 
               Console.WriteLine(imagesPath) 
            Next imagePath 
         Next cell 
      End If 
 
      loader.Close() 
   End If 
End Sub 
 
Private Sub loader_RequestedImageUpdated(ByVal sender As Object, ByVal e As RequestedImageUpdatedEventArgs) 
   Console.WriteLine("Image streamer for cell {0}, sub-cell {1}", viewer.Cells.IndexOf(e.Cell), e.SubCellIndex) 
End Sub 
 
Private Sub loader_ProgressState(ByVal sender As Object, ByVal e As ProgressEventArgs) 
   Console.WriteLine(e.Message) 
End Sub 
 
Public Function GetLocalServerAddress() As IPAddress 
   Dim addresses() As IPAddress 
 
   'you can use any IP address which a DICOM server is listning to. 
   addresses = Dns.GetHostAddresses(Dns.GetHostName()) 
 
   For Each address As IPAddress In addresses 
      If address.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then 
         Return address 
      End If 
   Next address 
 
   Throw New InvalidOperationException("No IP Address V4 found for this machine.") 
End Function 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class