Loading a DICOM Directory (Delphi)
//global
LEADDicomDir1: TLEADDicomDir;
Procedure TForm1.TestLoadingDicomDir();
begin
// Load a DICOMDIR File. Note: It is necessary to specify
// DS_LOAD_CLOSE so that we can save the Directory later.
LEADDicomDir1.LoadDicomDir ('C:\Medical Images\DICOMDIR', DS_LOAD_CLOSE);
// Add some additional DICOM files to the loaded Directory
LEADDicomDir1.InsertDicomFile ('C:\Medical Images\Image');
LEADDicomDir1.InsertDicomFile('C:\Medical Images\Patient 2\Image1');
// Save the DICOMDIR File
LEADDicomDir1.SaveDicomDir ();
end;