Imports Leadtools
Imports Leadtools.Dicom
Public Function DicomTestConformanceCallback(ByVal element As DicomElement, ByVal flags As DicomTestConformanceFlags) As Boolean
Dim s As String = String.Format("Element: {0}", element.Tag.ToString())
If flags = DicomTestConformanceFlags.None Then
Console.WriteLine(s & " no error.")
Else
Console.WriteLine(s & " error: " & flags.ToString())
End If
Return True
End Function
Public Sub TestConformanceSample()
Dim dicomFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE3.dcm")
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
Dim ds As DicomDataSet = New DicomDataSet()
Try
'Load DICOM File
ds.Load(dicomFileName, DicomDataSetLoadFlags.None)
'Test it
ds.TestConformance(AddressOf DicomTestConformanceCallback)
Finally
CType(ds, IDisposable).Dispose()
End Try
DicomEngine.Shutdown()
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Dicom;
public bool DicomTestConformanceCallback(DicomElement element, DicomTestConformanceFlags flags)
{
string s = string.Format("Element: {0}", element.Tag.ToString());
if (flags == DicomTestConformanceFlags.None)
Console.WriteLine(s + " no error.");
else
Console.WriteLine(s + " error: " + flags.ToString());
return true;
}
public void TestConformanceSample()
{
string dicomFileName = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE3.dcm");
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
using (DicomDataSet ds = new DicomDataSet())
{
//Load DICOM File
ds.Load(dicomFileName, DicomDataSetLoadFlags.None);
//Test it
ds.TestConformance(DicomTestConformanceCallback);
}
DicomEngine.Shutdown();
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}
using Leadtools.Dicom.Constants;
using Leadtools;
using Leadtools.Dicom;
public bool DicomTestConformanceCallback(DicomElement element, DicomTestConformanceFlags flags)
{
string s = string.Format("Element: {0}", element.Tag.ToString());
if (flags == DicomTestConformanceFlags.None)
Debug.WriteLine(s + " no error.");
else
Debug.WriteLine(s + " error: " + flags.ToString());
return true;
}
public async Task TestConformanceSample()
{
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
using (DicomDataSet ds = new DicomDataSet())
{
//Load DICOM File
string filePath = @"Assets\IMAGE3.dcm";
StorageFile file = await Tools.AppInstallFolder.GetFileAsync(filePath);
ILeadStream stream = LeadStreamFactory.Create(file);
bool success = await ds.LoadAsync(stream, DicomDataSetLoadFlags.None);
Debug.Assert(success);
//Test it
ds.TestConformance(DicomTestConformanceCallback);
}
DicomEngine.Shutdown();
}
using Leadtools;
using Leadtools.Dicom;
using Leadtools.Examples;
public bool DicomTestConformanceCallback(DicomElement element, DicomTestConformanceFlags flags)
{
string s = string.Format("Element: {0}", element.Tag.ToString());
if (flags == DicomTestConformanceFlags.None)
Console.WriteLine(s + " no error.");
else
Console.WriteLine(s + " error: " + flags.ToString());
return true;
}
public void TestConformanceSample(Stream dicomStream)
{
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
using (DicomDataSet ds = new DicomDataSet())
{
//Load DICOM File
ds.Load(dicomStream, DicomDataSetLoadFlags.None);
//Test it
ds.TestConformance(DicomTestConformanceCallback);
}
DicomEngine.Shutdown();
}
Imports Leadtools
Imports Leadtools.Dicom
Public Function DicomTestConformanceCallback(ByVal element As DicomElement, ByVal flags As DicomTestConformanceFlags) As Boolean
Dim s As String = String.Format("Element: {0}", element.Tag.ToString())
If flags = DicomTestConformanceFlags.None Then
Console.WriteLine(s & " no error.")
Else
Console.WriteLine(s & " error: " & flags.ToString())
End If
Return True
End Function
Public Sub TestConformanceSample(ByVal dicomStream As Stream)
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
Using ds As DicomDataSet = New DicomDataSet()
'Load DICOM File
ds.Load(dicomStream, DicomDataSetLoadFlags.None)
'Test it
ds.TestConformance(AddressOf DicomTestConformanceCallback)
End Using
DicomEngine.Shutdown()
End Sub