Public Event InstanceMoved As EventHandler(Of InstanceMovedEventArgs)

Dim instance As RetrieveClient
Dim handler As EventHandler(Of InstanceMovedEventArgs)
 
AddHandler instance.InstanceMoved, handler

public event EventHandler<InstanceMovedEventArgs> InstanceMoved

public:
event EventHandler<InstanceMovedEventArgs^>^ InstanceMoved

Public Sub RetrieveLocalDatabase()
         Leadtools.Examples.Support.Unlock()

         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

public void RetrieveLocalDatabase()
      {
         Leadtools.Examples.Support.Unlock();

         AeInfo clientInfo = new AeInfo ( );


         clientInfo.Address = Dns.GetHostName(); //local machine
         clientInfo.AETitle = "TEST_CLIENT" ;
         clientInfo.Port    = 1000 ;

         IStorageDataAccessAgent dataAccess = null ;
         bool fromConfiguration = false ;

         if ( fromConfiguration )
         {
            //Make sure that the Sotrage Data Access is configured before creating an instance.
            dataAccess = DataAccessFactory.GetInstance ( new StorageDataAccessConfigurationView  ( ) ).CreateDataAccessAgent <IStorageDataAccessAgent> ( ) ;
         }
         else
         {
            string connectionString = @"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 ) ;
         }


         DbRetrieveClient client = new DbRetrieveClient(clientInfo, dataAccess);

         client.InstanceMoved += new EventHandler<InstanceMovedEventArgs>(client_InstanceMoved);
         client.EnableLog = true;
         client.LogFileName = Path.Combine(LEAD_VARS.ImagesDir, "DicomLog.txt");
         client.LoadDataSetOnRetrieve = false ;//Enable this if you need to read information from the DICOM dataset.
         PerformClientRetrieve(client); 
      }

      void client_InstanceMoved(object sender, InstanceMovedEventArgs e)
      {
         Console.WriteLine ( "Number of moved images: {0}", e.Completed ) ;
      }

      public void PerformClientRetrieve(RetrieveClient client) 
      {
         IEnumerable <KeyValuePair <string, RetrievedDataSet>> images = client.RetrieveImages ( "", "" ) ; //perform a wild card search


         foreach ( KeyValuePair <string, RetrievedDataSet> imageInformation in images ) 
         {
            Console.WriteLine ( "SOPInstanceUID: {0}", imageInformation.Key ) ;
            Console.WriteLine ( imageInformation.Value.DataSetFilePath ) ;
            Console.WriteLine("---------------------------------------------" );
         }
      }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}