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