Imports Leadtools
Imports Leadtools.Dicom
Private Sub RecursiveReadIOD(ByVal parentIOD As DicomIod)
Dim iod As DicomIod
If parentIOD Is Nothing Then
iod = DicomIodTable.Instance.GetFirst(Nothing, True)
Else
iod = DicomIodTable.Instance.GetChild(parentIOD)
End If
Do While Not iod Is Nothing
' Over here we can show the information about this IOD such as
' DicomIod.Type, DicomIod.Type, DicomIod.Usage and DicomIod.Description
If Not DicomIodTable.Instance.GetChild(iod) Is Nothing Then
RecursiveReadIOD(iod)
End If
iod = DicomIodTable.Instance.GetNext(iod, True)
Loop
End Sub
Private Sub TestIODTable()
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
'We don't need to call this since the DicomEngine.Startup already does that for us
'These calls are for demonstration purposes only
DicomIodTable.Instance.Reset()
DicomIodTable.Instance.Default()
' We can find the number of modules in any class
Dim moduleCount As Integer = DicomIodTable.Instance.GetModuleCount(DicomClassType.SCImageStorage)
' We can in here call any of the Find methods including FindModule and FindModuleByIndex,
' in this sample we are searching for a DICOM class, this is why we are using FindClass
Dim iod As DicomIod = DicomIodTable.Instance.FindClass(DicomClassType.SCImageStorage)
' We can get the name of the IOD
Dim name as String = iod.ToString()
DicomIodTable.Instance.Delete(iod)
Dim iod1 As DicomIod = DicomIodTable.Instance.Insert(Nothing, False, DicomClassType.SCImageStorage, "Secondary Capture Image Storage", _
DicomIodType.Class, DicomIodUsageType.MandatoryModule, "Description of the class goes in here")
Debug.Assert(DicomIodTable.Instance.Exists(iod1) = True)
DicomIodTable.Instance.SetName(iod1, "Secondary Capture Image Storage 1")
'Go through all the IODs in the IOD table
RecursiveReadIOD(Nothing)
DicomEngine.Shutdown()
End Sub
using Leadtools;
using Leadtools.Dicom;
public void RecursiveReadIOD(DicomIod parentIOD)
{
DicomIod iod;
if (parentIOD == null)
{
iod = DicomIodTable.Instance.GetFirst(null, true);
}
else
{
iod = DicomIodTable.Instance.GetChild(parentIOD);
}
while (iod != null)
{
// Over here we can show the information about this IOD such as
// DicomIod.Type, DicomIod.Type, DicomIod.Usage and DicomIod.Description
if (DicomIodTable.Instance.GetChild(iod) != null)
{
RecursiveReadIOD(iod);
}
iod = DicomIodTable.Instance.GetNext(iod, true);
}
}
void TestIODTable()
{
//Make sure to initialize the DICOM engine, this needs to be done only once.
DicomEngine.Startup();
//We don't need to call this since the DicomEngine.Startup already does that for us
//These calls are for demonstration purposes only
DicomIodTable.Instance.Reset();
DicomIodTable.Instance.Default();
// We can find the number of modules in any class
int moduleCount = DicomIodTable.Instance.GetModuleCount(DicomClassType.SCImageStorage);
// We can in here call any of the Find methods including FindModule and FindModuleByIndex,
// in this sample we are searching for a DICOM class, this is why we are using FindClass
DicomIod iod = DicomIodTable.Instance.FindClass(DicomClassType.SCImageStorage);
// We can get the name of the IOD
string name = iod.ToString();
DicomIodTable.Instance.Delete(iod);
DicomIod iod1 = DicomIodTable.Instance.Insert(null, false, DicomClassType.SCImageStorage, "Secondary Capture Image Storage", DicomIodType.Class, DicomIodUsageType.MandatoryModule, "Description of the class goes in here");
Debug.Assert(DicomIodTable.Instance.Exists(iod1) == true);
DicomIodTable.Instance.SetName(iod1, "Secondary Capture Image Storage 1");
//Go through all the IODs in the IOD table
RecursiveReadIOD(null);
DicomEngine.Shutdown();
}
using Leadtools;
using Leadtools.Dicom;
using Leadtools.Examples;
public void RecursiveReadIOD(DicomIod parentIOD)
{
DicomIod iod;
if (parentIOD == null)
{
iod = DicomIodTable.Instance.GetFirst(null, true);
}
else
{
iod = DicomIodTable.Instance.GetChild(parentIOD);
}
while (iod != null)
{
// Over here we can show the information about this IOD such as
// DicomIod.Type, DicomIod.Type, DicomIod.Usage and DicomIod.Description
if (DicomIodTable.Instance.GetChild(iod) != null)
{
RecursiveReadIOD(iod);
}
iod = DicomIodTable.Instance.GetNext(iod, true);
}
}
public void TestIODTable()
{
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
//We don't need to call this since the DicomEngine.Startup already does that for us
//These calls are for demonstration purposes only
DicomIodTable.Instance.Reset();
DicomIodTable.Instance.Default();
// We can in here call any of the Find methods including FindModule and FindModuleByIndex,
// in this sample we are searching for a DICOM class, this is why we are using FindClass
DicomIod iod = DicomIodTable.Instance.FindClass(DicomClassType.SCImageStorage);
DicomIodTable.Instance.Delete(iod);
DicomIod iod1 = DicomIodTable.Instance.Insert(null, false, DicomClassType.SCImageStorage, "Secondary Capture Image Storage", DicomIodType.Class, DicomIodUsageType.MandatoryModule, "Description of the class goes in here");
Debug.Assert(DicomIodTable.Instance.Exists(iod1) == true);
DicomIodTable.Instance.SetName(iod1, "Secondary Capture Image Storage 1");
//Go through all the IODs in the IOD table
RecursiveReadIOD(null);
DicomEngine.Shutdown();
}
Imports Leadtools
Imports Leadtools.Dicom
Public Sub RecursiveReadIOD(ByVal parentIOD As DicomIod)
Dim iod As DicomIod
If parentIOD Is Nothing Then
iod = DicomIodTable.Instance.GetFirst(Nothing, True)
Else
iod = DicomIodTable.Instance.GetChild(parentIOD)
End If
Do While Not iod Is Nothing
' Over here we can show the information about this IOD such as
' DicomIod.Type, DicomIod.Type, DicomIod.Usage and DicomIod.Description
If Not DicomIodTable.Instance.GetChild(iod) Is Nothing Then
RecursiveReadIOD(iod)
End If
iod = DicomIodTable.Instance.GetNext(iod, True)
Loop
End Sub
Public Sub TestIODTable()
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
'We don't need to call this since the DicomEngine.Startup already does that for us
'These calls are for demonstration purposes only
DicomIodTable.Instance.Reset()
DicomIodTable.Instance.Default()
' We can in here call any of the Find methods including FindModule and FindModuleByIndex,
' in this sample we are searching for a DICOM class, this is why we are using FindClass
Dim iod As DicomIod = DicomIodTable.Instance.FindClass(DicomClassType.SCImageStorage)
DicomIodTable.Instance.Delete(iod)
Dim iod1 As DicomIod = DicomIodTable.Instance.Insert(Nothing, _
False, _
DicomClassType.SCImageStorage, _
"Secondary Capture Image Storage", _
DicomIodType.Class, DicomIodUsageType.MandatoryModule, _
"Description of the class goes in here")
Debug.Assert(DicomIodTable.Instance.Exists(iod1) = True)
DicomIodTable.Instance.SetName(iod1, "Secondary Capture Image Storage 1")
'Go through all the IODs in the IOD table
RecursiveReadIOD(Nothing)
DicomEngine.Shutdown()
End Sub