Compare Method

Visual Basic
C#
Objective-C
Java
C++

[ExtensionAttribute()]
public static List<Difference> Compare( 
   DicomDataSet dataset,
   DicomDataSet compareTo
)

'Declaration
 
<ExtensionAttribute()>
Public Shared Function Compare( _
   ByVal dataset As DicomDataSet, _
   ByVal compareTo As DicomDataSet _
) As List(Of Difference)

'Usage
 
Dim dataset As DicomDataSet
Dim compareTo As DicomDataSet
Dim value As List(Of Difference)
 
value = CompareExtensions.Compare(dataset, compareTo)

[ExtensionAttribute()]
public:
static List<Difference^>^ Compare( 
   DicomDataSet^ dataset,
   DicomDataSet^ compareTo
)

Parameters

dataset: The original DICOM dataset.
compareTo: The DICOM dataset to compare to.

Return Value

A list of tag differences between the DICOM datasets.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

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

Target Platforms

Reference

CompareExtensions Class
CompareExtensions Members