SaveJsonCallback Delegate

Optional delegate method that is used with the SaveJson methods.
public delegate bool SaveJsonCallback( 
   SaveJsonData data 
Public Delegate Function SaveJsonCallback( _ 
   ByVal data As SaveJsonData _ 
) As Boolean 
public delegate bool SaveJsonCallback(  
   SaveJsonData^ data 


An instance of the SaveJsonData interface containing the progress callback data.

Return Value

true to write this DICOM element in the output JSON file; false to skip writing this element in the output JSON file


This delegate is called once for each DICOM element before the DICOM element is written to the JSON file.


This example loads a sample DICOM file, and saves the contents as a JSON file. The JSON file output is customized by using the SaveJsonCallback delegate to assign a BulkDataUri.

using Leadtools.Dicom; 
using Leadtools.Dicom.Common; 
using Leadtools.Dicom.Common.Extensions; 
using Leadtools; 
using Leadtools.Dicom.Common.Linq.BasicDirectory; 
using Leadtools.Dicom.Common.DataTypes; 
public void SaveJsonCallbackExample() 
   uriIndex = 0; 
   string dicomFileNameIn = Path.Combine(LEAD_VARS.ImagesDir, "DICOM", "IMAGE3.dcm"); 
   string xmlFileNameOut = Path.Combine(LEAD_VARS.ImagesDir, "test.json"); 
   DicomDataSet ds = new DicomDataSet(); 
   // Load an existing DICOM file 
   ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None); 
   // Keep the JSON output file size small by writing binary data as BulkDataUri  
   // The URI written is modified in the callback 
   ds.SaveJson(xmlFileNameOut, DicomDataSetSaveJsonFlags.BulkDataUri, MySaveJsonCallback); 
public static int uriIndex = 0; 
public static string GenerateUri() 
   return string.Format(@"http://MySampleUri/{0}", uriIndex); 
public static bool MySaveJsonCallback(SaveJsonData d) 
   if (d.DicomElement == null) 
      return true; 
   DicomVRType vr = d.DicomElement.VR; 
   bool isBinary = ( 
                      vr == DicomVRType.OB || 
                      vr == DicomVRType.OD || 
                      vr == DicomVRType.OF || 
                      vr == DicomVRType.OW || 
                      vr == DicomVRType.UN 
   if (isBinary) 
      // Set a URI 
      d.BulkDataUri = GenerateUri(); 
   return true; 
static class LEAD_VARS 
   public const string ImagesDir = @"C:\LEADTOOLS21\Resources\Images"; 
Imports Leadtools.Dicom 
Imports Leadtools.Dicom.Common 
Imports Leadtools.Dicom.Common.Extensions 
Imports Leadtools.Dicom.Common.Linq 
Imports Leadtools.Dicom.Common.Linq.BasicDirectory 
Imports Leadtools 
Imports Leadtools.Dicom.Common.DataTypes 
Public Sub SaveJsonCallbackExample() 
   uriIndex = 0 
   Dim dicomFileNameIn As String = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE3.dcm") 
   Dim xmlFileNameOut As String = Path.Combine(LEAD_VARS.ImagesDir, "test.json") 
   Dim ds As New DicomDataSet() 
   ' Load an existing DICOM file 
   ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None) 
   ' Keep the JSON output file size small by writing binary data as BulkDataUri  
   ' The URI written is modified in the callback 
   ds.SaveJson(xmlFileNameOut, DicomDataSetSaveJsonFlags.BulkDataUri, AddressOf MySaveJsonCallback) 
End Sub 
Public Shared uriIndex As Integer = 0 
Public Shared Function GenerateUri() As String 
   uriIndex += 1 
   Return String.Format("http://MySampleUri/{0}", uriIndex) 
End Function 
Public Shared Function MySaveJsonCallback(ByVal d As SaveJsonData) As Boolean 
   If d.DicomElement Is Nothing Then 
      Return True 
   End If 
   Dim vr As DicomVRType = d.DicomElement.VR 
   Dim isBinary As Boolean = (vr = DicomVRType.OB OrElse vr = DicomVRType.OD OrElse vr = DicomVRType.OF OrElse vr = DicomVRType.OW OrElse vr = DicomVRType.UN) 
   If isBinary Then 
      ' Set a URI 
      d.BulkDataUri = GenerateUri() 
   End If 
   Return True 
End Function 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\LEADTOOLS21\Resources\Images" 
End Class 

Target Platforms

Help Version 21.0.2021.3.2
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2021 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Dicom.Common Assembly