Difference Class

Imports Leadtools.Dicom.Common.Anonymization
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Common.Compare

Public Sub CompareSample()
   Dim dicomFileNameIn As String = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE3.dcm")

   Using dataset1 As New DicomDataSet()
      dataset1.Load(dicomFileNameIn, DicomDataSetLoadFlags.None)
      Using dataset2 As New DicomDataSet()
         Dim differences As List(Of Difference) = Nothing

         dataset2.Copy(dataset2, Nothing, Nothing)
         '
         ' Set a different value for patient id
         '
         dataset2.InsertElementAndSetValue(DicomTag.PatientID, "DifferentValue")
         differences = dataset1.Compare(dataset2)
         For Each difference As Difference In differences
            If difference.IsChanged() Then
               Dim info As String = String.Format("{0} has changed from {1} to {2}.", difference.Name, difference.FirstValue, difference.SecondValue)

               Console.WriteLine(info)
               Console.WriteLine("Html Diff")
               Console.WriteLine(vbTab & "{0}", difference.HtmlDiff)
            End If
         Next
      End Using
   End Using
End Sub


Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class