PacsQueryClient Class

Imports LeadtoolsExamples.Common 
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 
 
Public Sub QueryPACS() 
    Leadtools.Examples.Support.SetLicense() 
    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