PacsQueryClient Class

Imports Leadtools 
         Imports Leadtools.Codecs 
         Imports Leadtools.Dicom 
         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.Local 
         Imports Leadtools.Medical.Workstation.Client.Pacs 
 
         <TestMethod()> _ 
         Public Sub QueryPACS() 
#If LEADTOOLS_V175_OR_LATER Then 
                Leadtools.Examples.Support.SetLicense() 
#Else 
         Leadtools.Examples.Support.Unlock() 
#End If ''' #if LEADTOOLS_V175_OR_LATER 
 
 
 
            Dim clientInfo As AeInfo = New AeInfo() 
            Dim scpInfo As DicomScp = New DicomScp() 
 
            clientInfo.Address = Dns.GetHostName() 'local machine 
            clientInfo.AETitle = "TEST_CLIENT" 
            clientInfo.Port = 1000 
 
 
            scpInfo.AETitle = "LEAD_SERVER" 
            scpInfo.Port = 104 
            scpInfo.Timeout = 30 
 
            Dim addressFound As Boolean 
            Dim addresses As IPAddress() 
 
            addressFound = False 
            addresses = Dns.GetHostAddresses(Dns.GetHostName()) 
 
            For Each address As IPAddress In addresses 
               'we need to get an IP V4, won't work with IP V6 
               If address.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then 
                  addressFound = True 
 
                  scpInfo.PeerAddress = address 
 
                  Exit For 
               End If 
            Next address 
 
            If (Not addressFound) Then 
               Throw New ArgumentException("Couldn't resolve a valid host Address. Address must conform to IP version 4") 
            End If 
 
            Dim client As PacsQueryClient = New PacsQueryClient(clientInfo, scpInfo) 
 
            client.EnableLog = True 
            client.LogFileName = Path.Combine(LEAD_VARS.ImagesDir, "DicomLog.txt") 
 
            PerformClientQuery(client) 
         End Sub 
 
         Public Sub PerformClientQuery(ByVal client As QueryClient) 
            Dim studiesQuery As FindQuery = New FindQuery() 
 
 
            Dim studies As DicomDataSet() = client.FindStudies(studiesQuery) 
 
 
            If studies.Length > 0 Then 
               Dim study As DicomDataSet = studies(0) 
               Dim seriesQuery As FindQuery = New FindQuery() 
 
 
               seriesQuery.StudyInstanceUID = study.GetValue(Of String)(DicomTag.StudyInstanceUID, String.Empty) 
 
               Dim series As DicomDataSet() = client.FindSeries(seriesQuery) 
 
               For Each seriesDS As DicomDataSet In series 
                  Dim imagesQuery As FindQuery = New FindQuery() 
 
 
                  imagesQuery.SeriesInstanceUID = seriesDS.GetValue(Of String)(DicomTag.SeriesInstanceUID, String.Empty) 
 
                  Dim images As DicomDataSet() = client.FindImages(imagesQuery) 
 
 
                  For Each instance As DicomDataSet In images 
                     Console.WriteLine("SOPInstanceUID: {0}", instance.GetValue(Of String)(DicomTag.SOPInstanceUID, String.Empty)) 
 
                     Console.WriteLine("SeriesInstanceUID: {0}", instance.GetValue(Of String)(DicomTag.SeriesInstanceUID, String.Empty)) 
 
                     Console.WriteLine("StudyInstanceUID: {0}", instance.GetValue(Of String)(DicomTag.StudyInstanceUID, String.Empty)) 
                  Next instance 
               Next seriesDS 
            End If 
         End Sub 
 
         Public NotInheritable Class LEAD_VARS 
         Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
         End Class