LoadXml(DicomDataSet,Stream,DicomDataSetLoadXmlFlags,LoadXmlBeforeElementCallback,LoadXmlAfterElementCallback) Method

'Declaration
 
<ExtensionAttribute()>
Public Overloads Shared Sub LoadXml( _
   ByVal ds As DicomDataSet, _
   ByVal stream As Stream, _
   ByVal xmlFlags As DicomDataSetLoadXmlFlags, _
   ByVal cbBefore As LoadXmlBeforeElementCallback, _
   ByVal cbAfter As LoadXmlAfterElementCallback _
) 

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

      ' Initialize DICOM engine
      DicomEngine.Startup()

      Dim ds As DicomDataSet = New DicomDataSet()

      ' Load an existing DICOM file
      ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None)

      ' Save as XML to a stream with no binary data
      ' For the demo, keep the xml output file size small by skipping the pixel data
      Dim xmlFlags As DicomDataSetSaveXmlFlags = DicomDataSetSaveXmlFlags.IgnoreBinaryData Or DicomDataSetSaveXmlFlags.TrimWhiteSpace Or DicomDataSetSaveXmlFlags.TagWithCommas

      Dim stream As Stream = New MemoryStream()
      ds.SaveXml(stream, xmlFlags)

      ' Display contents of stream
      stream.Flush()
      stream.Position = 0
      Dim sr As StreamReader = New StreamReader(stream)
      Dim xmlString As String = sr.ReadToEnd()
      MessageBox.Show(xmlString, "xml version of " & dicomFileNameIn)

      ' Now reload the xml file from the stream.  
      ' Note that there will not be an image because we skipped the pixel data in the save
      stream.Seek(0, SeekOrigin.Begin)
      'stream.Position = 0;
      ds.LoadXml(stream, DicomDataSetLoadXmlFlags.None)

      ds.Save(dicomFileNameOut, DicomDataSetSaveFlags.None)

      DicomEngine.Shutdown()
   End Sub

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