DbRetrieveClient Constructor (DbRetrieveClient)

Imports Leadtools 
         Imports Leadtools.Examples 
         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.DataAccessLayer 
         Imports Leadtools.Medical.Storage.DataAccessLayer 
         Imports Leadtools.Medical.Storage.DataAccessLayer.Configuration 
         Imports Leadtools.Medical.Workstation.Client 
         Imports Leadtools.Medical.Workstation.Client.Local 
         Imports Leadtools.Medical.Workstation.Client.Pacs 
 
         <TestMethod()> _ 
         Public Sub RetrieveLocalDatabase() 
#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() 
 
 
            clientInfo.Address = Dns.GetHostName() 'local machine 
            clientInfo.AETitle = "TEST_CLIENT" 
            clientInfo.Port = 1000 
            Dim dataAccess As Medical.Storage.DataAccessLayer.IStorageDataAccessAgent 
 
            Dim fromConfiguration As Boolean 
 
            fromConfiguration = False 
            If (fromConfiguration) Then 
 
               'Make sure that the Sotrage Data Access is configured before creating an instance. 
               dataAccess = DataAccessFactory.GetInstance(New StorageDataAccessConfigurationView()).CreateDataAccessAgent(Of IStorageDataAccessAgent)() 
            Else 
 
               Dim connectionString As String = "Data Source=local;Initial Catalog=DicomStorage;Integrated Security=True;User ID=;Password=;Pooling=True" 
               'or you can directly create the data access object which works with your database 
               dataAccess = New StorageSqlDbDataAccessAgent(connectionString) 
            End If 
            'Make sure that the MoveAddIn is configured properly before using this class. 
            Dim client As DbRetrieveClient = New DbRetrieveClient(clientInfo, dataAccess) 
 
            client.LoadDataSetOnRetrieve = False 'Enable this if you need to read information from the DICOM dataset. 
 
            AddHandler client.InstanceMoved, AddressOf client_InstanceMoved 
            client.EnableLog = True 
            client.LogFileName = Path.Combine(LEAD_VARS.ImagesDir, "DicomLog.txt") 
 
            PerformClientRetrieve(client) 
         End Sub 
 
         Sub client_InstanceMoved(ByVal sender As Object, ByVal e As InstanceMovedEventArgs) 
            Console.WriteLine("Number of moved images: {0}", e.Completed) 
         End Sub 
 
         Public Sub PerformClientRetrieve(ByVal client As RetrieveClient) 
 
 
            Dim images As IEnumerable(Of KeyValuePair(Of String, RetrievedDataSet)) 
 
            images = client.RetrieveImages("", "") 'perform a wild card search 
 
 
            For Each imageInformation As KeyValuePair(Of String, RetrievedDataSet) In images 
               Console.WriteLine("SOPInstanceUID: {0}", imageInformation.Key) 
               Console.WriteLine(imageInformation.Value.DataSetFilePath) 
               Console.WriteLine("---------------------------------------------") 
            Next imageInformation 
 
         End Sub 
 
         Public NotInheritable Class LEAD_VARS 
         Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
         End Class