Public Delegate Function SaveXmlCallback( _
   ByVal data As SaveXmlData _
) As Boolean

Dim instance As New SaveXmlCallback(AddressOf HandlerMethod)

public delegate bool SaveXmlCallback( 
   SaveXmlData data
)

public delegate bool SaveXmlCallback( 
   SaveXmlData^ data
)

Public Sub SaveXmlCallbackExample()
    Dim dicomFileNameIn As String = LeadtoolsExamples.Common.ImagesPath.Path & "IMAGE3.dcm"
    Dim xmlFileNameOut As String = LeadtoolsExamples.Common.ImagesPath.Path & "test.xml"
    Dim dicomFileNameOut As String = LeadtoolsExamples.Common.ImagesPath.Path & "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 file with no binary data
    ' For the demo, keep the xml output file size small by skipping the pixel data
    ' Use the SaveXmlCallback delegate to customize the xml file
    Dim xmlFlags As DicomDataSetSaveXmlFlags = DicomDataSetSaveXmlFlags.IgnoreBinaryData Or DicomDataSetSaveXmlFlags.TrimWhiteSpace Or DicomDataSetSaveXmlFlags.TagWithCommas

    ds.SaveXml(xmlFileNameOut, xmlFlags, New SaveXmlCallback(AddressOf MySaveXmlCallback))

    ' Use a LoadmlCallback to read the customized xml file
    ds.LoadXml(xmlFileNameOut, DicomDataSetLoadXmlFlags.None, New LoadXmlBeforeElementCallback(AddressOf MyLoadXmlBeforeElementCallback), New LoadXmlAfterElementCallback(AddressOf MyLoadXmlAfterElementCallback))

    ' Save the result -- there will be no pixel data
    ds.Save(dicomFileNameOut, DicomDataSetSaveFlags.None)

    DicomEngine.Shutdown()
End Sub

Private Function MySaveXmlCallback(ByVal data As SaveXmlData) As Boolean
    'string sTag = data.attributes["tag"];
    'if (sTag.StartsWith("0008"))
    '   return false;
    If data.NodeType = DicomXmlNodeType.Comment Then
        data.Comment = "COMMENT: customized xml file using the SaveXmlCallback"
        Return False
    End If

    If data.ElementName = "dataset" Then
        data.Attributes.Add("new_attribute", "some_value")
    ElseIf data.ElementName = "element" Then
        data.ElementName = "element_newname"
        Dim sTagValue As String = data.Attributes("tag")
        data.Attributes.Remove("tag")
        data.Attributes.Add("tag_newname", sTagValue)
    End If
    Return True
End Function

Private Function MyLoadXmlBeforeElementCallback(ByVal data As LoadXmlBeforeElementData) As Boolean
    Dim sTagValue As String = data.Attributes("tag_newname")
    Dim tag As Long = 0
    sTagValue = sTagValue.Replace(",", String.Empty)
    If Long.TryParse(sTagValue, System.Globalization.NumberStyles.HexNumber, Nothing, tag) Then
        data.Tag = tag
    End If
    Return True
End Function

Private Sub MyLoadXmlAfterElementCallback(ByVal data As LoadXmlAfterElementData)
    If data.DicomElement.Tag = DicomTag.PixelData Then
        ' here you could call one of the following to set the pixel data
        '    data.DicomDataSet.SetBinaryValue 
        '    data.DicomDataSet.SetImage()
    End If
End Sub

public void SaveXmlCallbackExample()
{
   string dicomFileNameIn = LeadtoolsExamples.Common.ImagesPath.Path + "IMAGE3.dcm";
   string xmlFileNameOut = LeadtoolsExamples.Common.ImagesPath.Path + "test.xml";
   string dicomFileNameOut = LeadtoolsExamples.Common.ImagesPath.Path + "test.dcm";

   // Initialize DICOM engine
   DicomEngine.Startup();

   DicomDataSet ds = new DicomDataSet();

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

   // Save as XML to a file with no binary data
   // For the demo, keep the xml output file size small by skipping the pixel data
   // Use the SaveXmlCallback delegate to customize the xml file
   DicomDataSetSaveXmlFlags xmlFlags =
      DicomDataSetSaveXmlFlags.IgnoreBinaryData |
      DicomDataSetSaveXmlFlags.TrimWhiteSpace |
      DicomDataSetSaveXmlFlags.TagWithCommas;

   ds.SaveXml(xmlFileNameOut, xmlFlags, new SaveXmlCallback(MySaveXmlCallback));

   // Use a LoadmlCallback to read the customized xml file
   ds.LoadXml(xmlFileNameOut, DicomDataSetLoadXmlFlags.None, new LoadXmlBeforeElementCallback(MyLoadXmlBeforeElementCallback), new LoadXmlAfterElementCallback(MyLoadXmlAfterElementCallback));

   // Save the result -- there will be no pixel data
   ds.Save(dicomFileNameOut, DicomDataSetSaveFlags.None);

   DicomEngine.Shutdown();
}

private bool MySaveXmlCallback(SaveXmlData data)
{
   //string sTag = data.attributes["tag"];
   //if (sTag.StartsWith("0008"))
   //   return false;
   if (data.NodeType == DicomXmlNodeType.Comment)
   {
      data.Comment = "COMMENT: customized xml file using the SaveXmlCallback";
      return false;
   }

   if (data.ElementName == "dataset")
   {
      data.Attributes.Add("new_attribute", "some_value");
   }
   else if (data.ElementName == "element")
   {
      data.ElementName = "element_newname";
      string sTagValue = data.Attributes["tag"];
      data.Attributes.Remove("tag");
      data.Attributes.Add("tag_newname", sTagValue);
   }
   return true;
}

private bool MyLoadXmlBeforeElementCallback(LoadXmlBeforeElementData data)
{
   string sTagValue = data.Attributes["tag_newname"];
   long tag = 0;
   sTagValue = sTagValue.Replace(",", string.Empty);
   if (long.TryParse(sTagValue, System.Globalization.NumberStyles.HexNumber, null, out tag))
      data.Tag = tag;
   return true;
}

private void MyLoadXmlAfterElementCallback(LoadXmlAfterElementData data)
{
   if (data.DicomElement.Tag == DicomTag.PixelData)
   {
      // here you could call one of the following to set the pixel data
      //    data.DicomDataSet.SetBinaryValue 
      //    data.DicomDataSet.SetImage()
   }
}