StoreClient 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.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 StoreDicom() 
#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 FindAddIn is configured properly before using this class. 
            Dim queryClient As DbQueryClient = New DbQueryClient(clientInfo, dataAccess) 
 
            queryClient.EnableLog = True 
            queryClient.LogFileName = Path.Combine(LEAD_VARS.ImagesDir, "DicomLog.txt") 
 
            Dim series As DicomDataSet() = queryClient.FindSeries(New FindQuery()) 
 
            If series.Length > 0 Then 
               Dim scpInfo As DicomScp = New DicomScp() 
 
               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 StoreClient = New StoreClient(clientInfo, scpInfo, Compression.Native, dataAccess) 
 
               client.EnableLog = True 
               client.LogFileName = Path.Combine(LEAD_VARS.ImagesDir, "DicomLog.txt") 
 
               client.StoreSeries(series(0).GetValue(Of String)(DicomTag.StudyInstanceUID, String.Empty), series(0).GetValue(Of String)(DicomTag.SeriesInstanceUID, String.Empty)) 
 
               Console.WriteLine("Series {0} has been stored successfully.", series(0).GetValue(Of String)(DicomTag.SeriesInstanceUID, String.Empty)) 
            End If 
         End Sub 
 
         Public NotInheritable Class LEAD_VARS 
         Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
         End Class